pin-hinge: wip

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

diff --git a/pin-hinge.scad b/pin-hinge.scad
index 4eba18545d51b3e29bda4743e788ef67273fa2f0..713bd088e392639a354f2c6e7f1fa6aa52d83cb8 100644 (file)
--- a/pin-hinge.scad
+++ b/pin-hinge.scad
@@ -62,12 +62,36 @@ module HingeNegative(l){
   }
 }
 
+test_l = 30;
+test_wb = 10;
+test_h = 10;
+
 module Demo(){
   difference(){
-    HingePositive(30, 10);
-    %HingeNegative(30);
+    HingePositive(test_l, test_h/2);
+    %HingeNegative(test_l);
+  }
+}
+
+module TestBody(){
+  linextr_x_yz(0, test_l){
+    polygon([[0,0],
+            [-test_wb/2, -test_h],
+            [+test_wb/2, -test_h]]);
+  }
+}
+
+module Test(){
+  difference(){
+    union(){
+      TestBody();
+      HingePositive(test_l, test_h/2);
+    }
+    HingeNegative(test_l);
   }
 }
 
 //PlanDemo();
-Demo();
+//Demo();
+//TestBody();
+Test();