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 |