source base.tcl

set w .line
#set graph [bltLineGraph $w]
set graph [bltBarGraph $w]

#echo "done"
#bltPlotDestroy $w