OLD | NEW |
1 | 1 |
2 load ./libsqlite3.dylib | 2 load ./libsqlite3.dylib |
3 #package require sqlite3 | 3 #package require sqlite3 |
4 source [file join [file dirname $argv0] rtree_util.tcl] | 4 source [file join [file dirname $argv0] rtree_util.tcl] |
5 | 5 |
6 wm title . "SQLite r-tree viewer" | 6 wm title . "SQLite r-tree viewer" |
7 | 7 |
8 if {[llength $argv]!=1} { | 8 if {[llength $argv]!=1} { |
9 puts stderr "Usage: $argv0 <database-file>" | 9 puts stderr "Usage: $argv0 <database-file>" |
10 puts stderr "" | 10 puts stderr "" |
(...skipping 168 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
179 set zReport [format "Size = %.1f x %.1f Area = %.1f%%" \ | 179 set zReport [format "Size = %.1f x %.1f Area = %.1f%%" \ |
180 [expr $x2-$x1] [expr $y2-$y1] [expr 100.0*$cell_area/$total_area] | 180 [expr $x2-$x1] [expr $y2-$y1] [expr 100.0*$cell_area/$total_area] |
181 ] | 181 ] |
182 } | 182 } |
183 | 183 |
184 return $zReport | 184 return $zReport |
185 } | 185 } |
186 | 186 |
187 view_node | 187 view_node |
188 bind .c <Configure> view_node | 188 bind .c <Configure> view_node |
OLD | NEW |