chiark / gitweb /
Obsidian: Add islands where chart scraper is confused
[ypp-sc-tools.db-live.git] / yarrg / pantest.tcl
1 #!/usr/bin/wish
2
3 pkg_mkIndex .
4 set auto_path [concat . $auto_path]
5
6 #source panner.tcl
7 #namespace import panner::*
8
9 package require panner
10
11 set scale 50
12
13 canvas .c
14 for {set x -$scale} {$x < 500} {incr x $scale} {
15     for {set y -$scale} {$y < 500} {incr y $scale} {
16         .c create text $x $y -text "${x}x${y}" -anchor sw
17     }
18 }
19
20 panner::canvas-scroll-bbox .c
21 panner::create .p .c 200 200 1
22
23 pack .p -side right
24 pack .c -expand y -fill both -side left