blob: ed2c61bcfa0dc1e8be5e21e53bbb6be2b3717f82 (
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
source base.tcl
set w .bar
set graph [bltBarGraph $w]
# Graph
bltTest $graph -aspect 2
bltTest $graph -background red
bltTest $graph -barmode overlap
bltTest $graph -barwidth .15
#bltTest $graph -baseline
bltTest $graph -bd 50
bltTest $graph -bg green
bltTest $graph -bm 50
bltTest $graph -borderwidth 50
bltTest $graph -bottommargin 50
#bltTest $graph -bottomvariable
#bltTest $graph -bufferelements
#bltTest $graph -buffergraph
bltTest $graph -cursor cross
#bltTest $graph -fg
bltTest $graph -font "times 36 bold italic"
#bltTest $graph -foreground
#bltTest $graph -halo
bltTest $graph -height 300
#bltTest $graph -highlightbackground
#bltTest $graph -highlightcolor
#bltTest $graph -highlightthickness
bltTest $graph -invertxy yes
#bltTest $graph -justify
bltTest $graph -leftmargin 50
#bltTest $graph -leftvariable
bltTest $graph -lm 50
bltTest $graph -plotbackground cyan
bltTest $graph -plotborderwidth 50
bltTest $graph -plotpadx 50
bltTest $graph -plotpady 50
bltTest $graph -plotrelief groove
bltTest $graph -relief groove
bltTest $graph -rightmargin 50
#bltTest $graph -rightvariable
bltTest $graph -rm 50
#bltTest $graph -stackaxes
#bltTest $graph -takefocus
bltTest $graph -title "This is a Title"
bltTest $graph -tm 50
bltTest $graph -topmargin 50
#bltTest $graph -topvariable
bltTest $graph -width 300
bltTest $graph -plotwidth 300
bltTest $graph -plotheight 300
echo "done"
bltPlotDestroy $w
|
