ksafe-base: tests

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/ksafe-base.scad b/ksafe-base.scad
index 79cf6bd2ef57b64ba30d672a89833ca2790916f7..4d9701fc3f7e408c8960475585a2c84d6286c602 100644 (file)
--- a/ksafe-base.scad
+++ b/ksafe-base.scad
@@ -263,6 +263,23 @@ module DemoProfiles(){
   translate([0,0,-4]) color("pink") WebProfile();
 }
 
+module RimTest(){ ////toplevel
+  intersection(){
+    Box();
+    cube(center=true, [ main_sz*2, main_sz*2,
+                       2.5 ]);
+  }
+}
+
+module BoltTest(){ ////toplevel
+  dy = 0.5 * (bolthole_width+4);
+  intersection(){
+    KsafeBase();
+    translate([ 0, -dy, -(bolt_above + bolthole_height + 1) ])
+      cube([ main_sz, dy*2, 50 ]);
+  }
+}
+
 //DemoProfiles();
 //Box();
 //KsafeBase();