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
|
set Graphics(font,roman) 0
set Graphics(font,underline) 0
set Graphics(line,capstyle) butt
set Graphics(shape) image
set Graphics(font,color) #800000
set Graphics(fill,color) #ff0000
set Graphics(line,color) #000000
set Graphics(font,stipple) gray25
set Graphics(font,style) bold
set Graphics(fill,style) {}
set Graphics(progress) 0
set Graphics(line,style) {}
set Graphics(grid) 0
set Graphics(line,arrow) none
set Graphics(font,overstrike) 0
set Graphics(font,italic) 0
set Graphics(splinesteps) 20
set Graphics(gspacing) 1
set Graphics(text,anchor) c
set Graphics(font,bold) 1
set Graphics(font,normal) 0
set Graphics(line,width) 1.2
set Graphics(arrowshape) {15 18 9.3}
set Graphics(font,type) {Times New Roman}
set Graphics(line,joinstyle) miter
set Graphics(mode) {Copy object}
set Graphics(line,smooth) 0
set Graphics(ticks) 0
set Graphics(gridcell) 0
set Graphics(font,size) 54
set Graphics(mode) ""
### End of Graphics parameters
set utagCounter 58
global Canv
set Canv(H) 424
set Canv(W) 668
set Canv(SH) 1000
set Canv(SW) 1000
set Canv(bg) #ffffa8
.c config -width $Canv(W) -height $Canv(H) -bg $Canv(bg) \
-scrollregion "0 0 $Canv(SW) $Canv(SH)"
wm geometry . ""
.c xview moveto 0
.c yview moveto 0
set TextInfo(utag34) {Who is this man??}
.c create polygon 38.0 330.0 38.0 330.0 576.0 330.0 576.0 330.0 607.0 330.0 607.0 361.0 607.0 361.0 607.0 374.0 607.0 374.0 607.0 405.0 576.0 405.0 576.0 405.0 38.0 405.0 38.0 405.0 7.0 405.0 7.0 374.0 7.0 374.0 7.0 361.0 7.0 361.0 7.0 330.0 -fill #00ff80 -outline #ff0000 -smooth 1 -width 4 -tags {RoundRect obj utag35}
.c create bitmap 15.0 15.0 -anchor nw -background #ffff80 -bitmap @ouster.bmp -foreground #ff0080 -tags {image bitmap obj utag4}
.c create bitmap 245.0 15.0 -anchor nw -background #80ffff -bitmap @ouster.bmp -foreground #800040 -tags {image bitmap obj utag5}
.c create bitmap 360.0 15.0 -anchor nw -bitmap @ouster.bmp -foreground #008080 -tags {image bitmap obj utag7}
.c create bitmap 475.0 15.0 -anchor nw -bitmap @ouster.bmp -foreground #ff0000 -tags {image bitmap obj utag8}
.c create bitmap 130.0 15.0 -anchor nw -bitmap @ouster.bmp -foreground #008040 -tags {image bitmap obj utag6}
.c create bitmap 15.0 178.0 -anchor nw -bitmap @ouster.bmp -foreground #800000 -tags {image bitmap obj utag9}
.c create bitmap 245.0 178.0 -anchor nw -background #d4d4d4 -bitmap @ouster.bmp -foreground #ff8000 -tags {image bitmap obj utag10}
.c create bitmap 360.0 178.0 -anchor nw -bitmap @ouster.bmp -foreground #800040 -tags {image bitmap obj utag11}
.c create bitmap 475.0 178.0 -anchor nw -bitmap @ouster.bmp -foreground #400080 -tags {image bitmap obj utag12}
.c create bitmap 130.0 178.0 -anchor nw -bitmap @ouster.bmp -foreground #0000ff -tags {image bitmap obj utag13}
.c create rectangle 17.0 16.0 123.0 160.0 -width 2 -tags {Rectangle obj utag15}
.c create rectangle 133.0 16.0 239.0 160.0 -width 2 -tags {Rectangle obj utag16}
.c create rectangle 478.0 178.0 584.0 322.0 -width 2 -tags {Rectangle obj utag17}
.c create rectangle 479.0 17.0 584.0 160.0 -outline #ff0000 -width 2 -tags {Rectangle obj utag19}
.c create rectangle 362.0 179.0 467.0 322.0 -outline #ff0000 -width 2 -tags {Rectangle obj utag20}
.c create rectangle 247.0 178.0 353.0 323.0 -outline #0000ff -width 2 -tags {Rectangle obj utag21}
.c create rectangle 16.0 178.0 122.0 323.0 -outline #0000ff -width 2 -tags {Rectangle obj utag22}
.c create rectangle 359.0 18.0 467.0 159.0 -outline #008000 -tags {Rectangle obj utag26}
.c create rectangle 356.0 15.0 470.0 162.0 -outline #008000 -tags {Rectangle obj utag27}
.c create rectangle 247.0 17.0 351.0 160.0 -outline #00ff00 -width 3 -tags {Rectangle obj utag28}
.c create rectangle 133.0 178.0 239.0 323.0 -outline #808000 -width 2 -tags {Rectangle obj utag29}
.c create line 9.0 169.0 639.0 169.0 -arrow last -arrowshape {15 18 9.3} -fill #ff0000 -joinstyle miter -width 4 -tags {Line obj utag31}
.c create text 305.0 366.0 -fill #800000 -font {{Times New Roman} 54 bold} -stipple gray25 -text {Who is this man??} -tags {text obj utag34}
.c create polygon 595.0 18.0 642.0 37.0 610.0 48.0 639.0 64.0 612.0 73.0 634.0 89.0 615.0 99.0 632.0 114.0 619.0 124.0 628.0 139.0 607.0 124.0 621.0 115.0 603.0 98.0 618.0 87.0 599.0 71.0 621.0 62.0 598.0 48.0 619.0 35.0 -fill #0000ff -outline #000000 -tags {Polygon obj utag36}
.c create polygon 599.0 184.0 646.0 203.0 614.0 214.0 643.0 230.0 616.0 239.0 638.0 255.0 619.0 265.0 636.0 280.0 623.0 290.0 632.0 305.0 611.0 290.0 625.0 281.0 607.0 264.0 622.0 253.0 603.0 237.0 625.0 228.0 602.0 214.0 623.0 201.0 -fill #0000ff -outline #000000 -tags {Polygon obj utag37}
.c create oval 597.0 30.0 607.0 40.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag38}
.c create oval 626.0 45.0 636.0 55.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag46}
.c create oval 595.0 56.0 605.0 66.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag39}
.c create oval 626.0 71.0 636.0 81.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag47}
.c create oval 598.0 82.0 608.0 92.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag40}
.c create oval 624.0 97.0 634.0 107.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag48}
.c create oval 601.0 109.0 611.0 119.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag41}
.c create oval 625.0 123.0 635.0 133.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag49}
.c create oval 601.0 196.0 611.0 206.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag42}
.c create oval 630.0 211.0 640.0 221.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag50}
.c create oval 601.0 221.0 611.0 231.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag43}
.c create oval 630.0 238.0 640.0 248.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag51}
.c create oval 602.0 247.0 612.0 257.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag44}
.c create oval 629.0 264.0 639.0 274.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag52}
.c create oval 605.0 274.0 615.0 284.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag45}
.c create oval 629.0 288.0 639.0 298.0 -fill #ff0000 -outline #000000 -tags {Circle obj utag53}
|
