Index: third_party/sqlite/sqlite-src-3080704/test/show_speedtest1_rtree.tcl |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/show_speedtest1_rtree.tcl b/third_party/sqlite/sqlite-src-3080704/test/show_speedtest1_rtree.tcl |
new file mode 100644 |
index 0000000000000000000000000000000000000000..3faa16814696b38670c84ac7cd41e5b996c202f5 |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3080704/test/show_speedtest1_rtree.tcl |
@@ -0,0 +1,57 @@ |
+#!/usr/bin/tclsh |
+# |
+# This script displays the field of rectangles used by --testset rtree |
+# of speedtest1. Run this script as follows: |
+# |
+# rm test.db |
+# ./speedtest1 --testset rtree --size 25 test.db |
+# sqlite3 --separator ' ' test.db 'SELECT * FROM rt1' >data.txt |
+# wish show_speedtest1_rtree.tcl |
+# |
+# The filename "data.txt" is hard coded into this script and so that name |
+# must be used on lines 3 and 4 above. Elsewhere, different filenames can |
+# be used. The --size N parameter can be adjusted as desired. |
+# |
+package require Tk |
+set f [open data.txt rb] |
+set data [read $f] |
+close $f |
+canvas .c |
+frame .b |
+button .b.b1 -text X-Y -command refill-xy |
+button .b.b2 -text X-Z -command refill-xz |
+button .b.b3 -text Y-Z -command refill-yz |
+pack .b.b1 .b.b2 .b.b3 -side left |
+pack .c -side top -fill both -expand 1 |
+pack .b -side top |
+proc resize_canvas_to_fit {} { |
+ foreach {x0 y0 x1 y1} [.c bbox all] break |
+ set w [expr {$x1-$x0}] |
+ set h [expr {$y1-$y0}] |
+ .c config -width $w -height $h |
+} |
+proc refill-xy {} { |
+ .c delete all |
+ foreach {id x0 x1 y0 y1 z0 z1} $::data { |
+ .c create rectangle $x0 $y0 $x1 $y1 |
+ } |
+ .c scale all 0 0 0.05 0.05 |
+ resize_canvas_to_fit |
+} |
+proc refill-xz {} { |
+ .c delete all |
+ foreach {id x0 x1 y0 y1 z0 z1} $::data { |
+ .c create rectangle $x0 $z0 $x1 $z1 |
+ } |
+ .c scale all 0 0 0.05 0.05 |
+ resize_canvas_to_fit |
+} |
+proc refill-yz {} { |
+ .c delete all |
+ foreach {id x0 x1 y0 y1 z0 z1} $::data { |
+ .c create rectangle $y0 $z0 $y1 $z1 |
+ } |
+ .c scale all 0 0 0.05 0.05 |
+ resize_canvas_to_fit |
+} |
+refill-xy |