1 2 3 4 5 6 7 8
source base.tcl set w .line set bltgr [bltLineGraph $w] puts stderr "done" bltPlotDestroy $w