| OLD | NEW |
| 1 #!/usr/bin/tclsh | 1 #!/usr/bin/tclsh |
| 2 # | 2 # |
| 3 # This script displays the field of rectangles used by --testset rtree | 3 # This script displays the field of rectangles used by --testset rtree |
| 4 # of speedtest1. Run this script as follows: | 4 # of speedtest1. Run this script as follows: |
| 5 # | 5 # |
| 6 # rm test.db | 6 # rm test.db |
| 7 # ./speedtest1 --testset rtree --size 25 test.db | 7 # ./speedtest1 --testset rtree --size 25 test.db |
| 8 # sqlite3 --separator ' ' test.db 'SELECT * FROM rt1' >data.txt | 8 # sqlite3 --separator ' ' test.db 'SELECT * FROM rt1' >data.txt |
| 9 # wish show_speedtest1_rtree.tcl | 9 # wish show_speedtest1_rtree.tcl |
| 10 # | 10 # |
| (...skipping 37 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 48 } | 48 } |
| 49 proc refill-yz {} { | 49 proc refill-yz {} { |
| 50 .c delete all | 50 .c delete all |
| 51 foreach {id x0 x1 y0 y1 z0 z1} $::data { | 51 foreach {id x0 x1 y0 y1 z0 z1} $::data { |
| 52 .c create rectangle $y0 $z0 $y1 $z1 | 52 .c create rectangle $y0 $z0 $y1 $z1 |
| 53 } | 53 } |
| 54 .c scale all 0 0 0.05 0.05 | 54 .c scale all 0 0 0.05 0.05 |
| 55 resize_canvas_to_fit | 55 resize_canvas_to_fit |
| 56 } | 56 } |
| 57 refill-xy | 57 refill-xy |
| OLD | NEW |