Version 0 of Some more Plotchart examples

Updated 2011-07-05 07:21:52 by arjen

Arjen Markus (5 july 2011) Working on the next version of Plotchart I created two more examples of plots/charts.

*Stack The first one shows how to stack plots vertically using the same x-axis. Besides the use of the -box and -axesbox options, note the little trick that suppresses the axis label at the top: the maximum value is slightly smaller than a multiple of the stepsize.

Here is the code for this example:

# testmultixy.tcl --
#     Demonstrate how to plot a number of XY-plots above
#     each other with a common x-axis
#
#     Note that the upper limit for the axis is slightly
#     smaller than a full multiple of the step!
#
source plotchart.tcl
package require Plotchart

pack [canvas .c -width 500 -height 500]

set p1 [::Plotchart::createXYPlot .c {0.0 100.0 10.0} {0.0 19.9  5.0} -box {0 300 500 200}]

set plotarea [$p1 plotarea]
set width    [lindex $plotarea 4]

set p2 [::Plotchart::createXYPlot .c {0.0 100.0 ""}   {0.0 99.9 25.0} -axesbox [list $p1 nw 0 150 $width 150] -xlabels {}]
set p3 [::Plotchart::createXYPlot .c {0.0 100.0 ""}   {0.0  1.9  0.5} -axesbox [list $p2 nw 0 150 $width 150] -xlabels {}]

$p1 title "Multiple plots with one x-axis"

And the picture: