blob: 08960694713e91e6b219ad52bd6cd620d0de6c68 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
source base.tcl
set w .line
set graph [bltLineGraph $w]
$graph axis configure x -title "X\nAxis" -limitsformat "%g"
$graph axis configure y -title "Y\nAxis"
$graph element configure data1 -dash {8 3} -showvalues y -smooth step -symbol circle -outline yellow -outlinewidth 3 -pixels 10 -valuefont "times 14 italic" -valuerotate 45
$graph legend configure -relief raised
$graph xaxis configure -bg cyan -relief raised
$graph configure -relief raised
$graph configure -plotrelief raised
$graph postscript output foo.ps
$graph postscript configure -decorations no
$graph postscript output bar.ps
#set graph [bltBarGraph $w]
#echo "done"
#bltPlotDestroy $w
|
