blob: 7a9ce232b06963153d137dd8da08a2fdc9e52efd (
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
25
26
27
28
29
|
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 legend selection set data2
$graph legend focus data1
$graph legend configure -selectrelief groove
$graph postscript configure -decorations yes
$graph postscript output foo.ps
$graph postscript configure -decorations no
$graph postscript output bar.ps
#set graph [bltBarGraph $w]
#puts stderr "done"
#bltPlotDestroy $w
|
