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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
#!../src/bltwish
package require BLT
source scripts/demo.tcl
proc FormatXTicks { w value } {
# Determine the element name from the value
set index [expr round($value)]
if { $index != $value } {
return $value
}
incr index -1
set name [lindex { A1 B1 A2 B2 C1 D1 C2 A3 E1 } $index]
return $name
}
source scripts/stipples.tcl
#image create picture bgTexture -file ./images/chalk.gif
option add *Button.padX 5
option add *BltTkRadiobutton.background white
option add *BltTkRadiobutton.activeBackground grey96
option add *BltTkRadiobutton.highlightThickness 0
blt::htext .title -background white -text {\
Data points with like x-coordinates, can have their bar segments displayed
in one of the following modes (using the -barmode option):
}
blt::htext .header \
-background white \
-text {
%%
blt::tk::radiobutton .header.stacked -text stacked -variable barMode \
-anchor w -value "stacked" -command {
.graph configure -barmode $barMode
}
.header append .header.stacked -width 1.0i -anchor w
%% Bars are stacked on top of each other. The overall height is the
sum of the y-coordinates.
%%
blt::tk::radiobutton .header.aligned -text aligned -variable barMode \
-anchor w -value "aligned" -command {
.graph configure -barmode $barMode
}
.header append .header.aligned -width 1.0i -fill x
%% Bars are drawn side-by-side at a fraction of their normal width.
%%
blt::tk::radiobutton .header.overlap -text "overlap" -variable barMode \
-anchor w -value "overlap" -command {
.graph configure -barmode $barMode
}
.header append .header.overlap -width 1.0i -fill x
%% Bars overlap slightly.
%%
blt::tk::radiobutton .header.normal -text "normal" -variable barMode \
-anchor w -value "normal" -command {
.graph configure -barmode $barMode
}
.header append .header.normal -width 1.0i -fill x
%% Bars are overlayed one on top of the next.
}
blt::htext .footer -background white -text { Hit %%
set im [image create picture -file ./images/stopsign.gif]
button $htext(widget).quit -image $im -command { exit }
$htext(widget) append $htext(widget).quit -pady 2
%% when you've seen enough. %%
blt::tk::label $htext(widget).logo -bitmap BLT -bg white
$htext(widget) append $htext(widget).logo
%%}
set palette [blt::palette create uniform \
-colorformat name \
-cdata {white lightblue2 white }]
set bg [blt::background create linear \
-palette $palette \
-relativeto .graph \
-jitter 10 \
-colorscale linear]
blt::barchart .graph \
-height 3i \
-title "Comparison of Simulators" \
-bg $bg \
-barwidth 0.9 \
-highlightthickness 0 \
#-plotborderwidth 10 \
#-plotpadx 10 \
#-plotpady 10
.graph legend configure \
-activeborderwidth 2 \
-activerelief raised \
-background "" \
-anchor ne \
-borderwidth 0 \
-position right
.graph pen configure activeBar \
-foreground pink \
-stipple dot3
.graph axis configure x \
-command FormatXTicks \
-title "Simulator" \
-tickdirection out \
-grid no
.graph axis configure y \
-title "Time (hours)" \
-tickdirection out \
-grid yes
blt::vector X Y0 Y1 Y2 Y3 Y4
X set { 1 2 3 4 5 6 7 8 9 }
Y0 set {
0.729111111 0.002250000 0.09108333 0.006416667 0.026509167
0.007027778 0.1628611 0.06405278 0.08786667
}
Y1 set {
0.003120278 0.004638889 0.01113889 0.048888889 0.001814722
0.291388889 0.0503500 0.13876389 0.04513333
}
Y2 set {
11.534444444 3.879722222 4.54444444 4.460277778 2.334055556
1.262194444 1.8009444 4.12194444 3.24527778
}
Y3 set {
1.015750000 0.462888889 0.49394444 0.429166667 1.053694444
0.466111111 1.4152500 2.17538889 2.55294444
}
Y4 set {
0.022018611 0.516333333 0.54772222 0.177638889 0.021703889
0.134305556 0.5189278 0.07957222 0.41155556
}
#
# Element attributes:
#
# Label yData Foreground Background Stipple Borderwidth
set attributes {
"Setup" Y1 lightyellow3 lightyellow1 fdiagonal1 1
"Read In" Y0 lightgoldenrod3 lightgoldenrod1 bdiagonal1 1
"Other" Y4 lightpink3 lightpink1 fdiagonal1 1
"Solve" Y3 cyan3 cyan1 bdiagonal1 1
"Load" Y2 lightblue3 lightblue1 fdiagonal1 1
}
foreach {label yData fg bg stipple bd} $attributes {
.graph element create -label $label -bd $bd -relief raised \
-y $yData -x X -outline $fg -fill $bg -stipple $stipple
}
.header.stacked invoke
blt::table . \
0,0 .title -fill x \
1,0 .header -fill x \
2,0 .graph -fill both \
3,0 .footer -fill x
blt::table configure . r0 r1 r3 -resize none
Blt_ZoomStack .graph
Blt_Crosshairs .graph
Blt_ActiveLegend .graph
Blt_ClosestPoint .graph
|
