bar





# source the library


source zplot-import.tcl





# define the canvas


PsCanvas -title "bar.eps" -width 3.5in -height 2.75in





# read in the file into a table called bar (without schema, columns automatically named c0 and c1)


Table -table bar -file "data.bar" -separator ":"





# this defines one particular drawing area


set xmax [TableGetMax -column c0 -table bar]


set ymax [TableGetMax -column c1 -table bar]


Drawable -xrange "0,[expr $xmax+1]" -yrange "-6,[expr $ymax+2]" -coord 30,





# plot some data, for goodness sake


PlotVerticalBars -table bar -xfield c0 -yfield c1 -barwidth 0.9 -labelfield c1 -yloval 0 \


    -fill t -fillcolor darkred -fillstyle solid -fillsize 4 -fillskip 4 -legend "Widgets" 





# axis


AxesTicsLabels -xaxisposition 0 -xauto 1,5,1 -xlabelbgcolor white \


    -title "Bar Plot" \


    -titleplace c -xtitleplace c -ytitleplace c 


Label -coord 3,-6.5 -anchor c,h -text "Measured Thing"





# draw a legend


Legend -coord 190,170 -height 10 -width 10 -fontsize 10.0 





# and finally, render it all


PsRender -file "bar.eps"
Data: data.bar