| 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 |
| 189 | |
| OLD | NEW |