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