|
0
|
1 |
# the windows in here were for debugging skew etc.
|
|
|
2 |
# not all that important anymore
|
|
|
3 |
toplevel .t
|
|
|
4 |
wm geometry .t 600x710+0+0
|
|
|
5 |
wm title .t "Image Display"
|
|
|
6 |
frame .t.f -width 600 -height 710
|
|
|
7 |
pack .t.f
|
|
|
8 |
|
|
|
9 |
canvas .t.f.c -xscrollcommand ".t.f.xscroller set" -yscrollcommand ".t.f.yscroller set" -width 700 -height 700 -background gray -xscrollincrement 40 -yscrollincrement 40
|
|
|
10 |
|
|
|
11 |
scrollbar .t.f.xscroller -command ".t.f.c xview" -orient horizontal
|
|
|
12 |
scrollbar .t.f.yscroller -command ".t.f.c yview"
|
|
|
13 |
pack .t.f.xscroller -side bottom -fill x
|
|
|
14 |
pack .t.f.c .t.f.yscroller -side left -fill y
|
|
|
15 |
# .t.f.c create bitmap 100 100 -bitmap @/amd/nfs/cochise/home/ee/cs169/fa95/class/cs169-ab/tif/test
|
|
|
16 |
toplevel .histogram
|
|
|
17 |
wm title .histogram "Skew Projections"
|
|
|
18 |
wm geometry .histogram 500x800+620+0
|
|
|
19 |
canvas .histogram.c -width 800 -height 800
|
|
|
20 |
pack .histogram.c
|
|
|
21 |
|