blob: 930d935402c07ed2c93d01d7f8000fb3e409574d (
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
56
57
58
59
60
|
#!/usr/local/bin/wish -f
load ../tkzinc3.2.so
set r [zinc .r -backcolor gray -relief sunken]
set top 1
pack .r -expand t -fill both
.r configure -width 500 -height 800
.r add rectangle $top "30 50 80 100" -filled t -fillpattern AlphaStipple0
.r add text $top -position "50 110" -text "0"
.r add rectangle $top "100 50 150 100" -filled t -fillpattern AlphaStipple1
.r add text $top -position "120 110" -text "1"
.r add rectangle $top "170 50 220 100" -filled t -fillpattern AlphaStipple2
.r add text $top -position "190 110" -text "2"
.r add rectangle $top "240 50 290 100" -filled t -fillpattern AlphaStipple3
.r add text $top -position "260 110" -text "3"
.r add rectangle $top "310 50 360 100" -filled t -fillpattern AlphaStipple4
.r add text $top -position "330 110" -text "4"
.r add rectangle $top "380 50 430 100" -filled t -fillpattern AlphaStipple5
.r add text $top -position "400 110" -text "5"
.r add rectangle $top "30 150 80 200" -filled t -fillpattern AlphaStipple6
.r add text $top -position "50 210" -text "6"
.r add rectangle $top "100 150 150 200" -filled t -fillpattern AlphaStipple7
.r add text $top -position "120 210" -text "7"
.r add rectangle $top "170 150 220 200" -filled t -fillpattern AlphaStipple8
.r add text $top -position "190 210" -text "8"
.r add rectangle $top "240 150 290 200" -filled t -fillpattern AlphaStipple9
.r add text $top -position "260 210" -text "9"
.r add rectangle $top "310 150 360 200" -filled t -fillpattern AlphaStipple10
.r add text $top -position "330 210" -text "10"
.r add rectangle $top "380 150 430 200" -filled t -fillpattern AlphaStipple11
.r add text $top -position "400 210" -text "11"
.r add rectangle $top "100 250 150 300" -filled t -fillpattern AlphaStipple12
.r add text $top -position "120 310" -text "12"
.r add rectangle $top "170 250 220 300" -filled t -fillpattern AlphaStipple13
.r add text $top -position "190 310" -text "13"
.r add rectangle $top "240 250 290 300" -filled t -fillpattern AlphaStipple14
.r add text $top -position "260 310" -text "14"
.r add rectangle $top "310 250 360 300" -filled t -fillpattern AlphaStipple15
.r add text $top -position "330 310" -text "15"
.r add text $top -position "180 360" -text "AlphaStipple" \
-font "-*-lucida-bold-r-normal-*-14-*-*-*-*-*-*-*"
for {set i 0} {$i < 22} {incr i} {
set num [expr $i + 1]
.r add waypoint $top 0 \
-position "[expr 40 + ($i % 8)*60] [expr 420 + ($i / 8)*45]" \
-symbol "AtcSymbol$num"
.r add text $top \
-position "[expr 36 + ($i % 8)*60] [expr 430 + ($i / 8)*45]" \
-text "$num" \
-font "-*-helvetica-medium-r-*-*-*-120-*-*-*-*-*-*"
}
.r add text $top -position "180 560" -text "AtcSymbol" \
-font "-*-lucida-bold-r-normal-*-14-*-*-*-*-*-*-*"
|
