Artifact
944c31d6817819b17b8e3c73e167bcefaaa651c6:
Attachment "pctestv.tcl" to
ticket [34783217f7]
added by
anonymous
2015-08-23 18:31:56.
(unpublished)
package require Plotchart
pack [canvas .cnv -background white -width 400 -height 200]
::Plotchart::plotconfig vertbars leftaxis font "Helvetica 10 italic"
::Plotchart::plotconfig vertbars background outercolor steelblue3
::Plotchart::plotconfig vertbars bottomaxis ticklength -5
set s [::Plotchart::createBarchart .cnv {A B C D E} {0.0 10.0 2.0} 2.5]
$s plot series1 {1.0 4.0 6.0 1.0 7.0} red bottom-up
$s plot series2 {0.0 3.0 7.0 9.3 2.0} green top-down dark
$s legend series1 "Series 1"
$s legend series2 "Series 2"
$s title "Arbitrary data"
