From 42b07c5ebed142999af4cbb46b739ff71baa0676 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 16 Sep 2020 00:11:06 +0100
Subject: [PATCH] pin-hinge: wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 pin-hinge.scad | 30 +++++++++++++++++++++++++++---
 1 file changed, 27 insertions(+), 3 deletions(-)

diff --git a/pin-hinge.scad b/pin-hinge.scad
index 4eba185..713bd08 100644
--- 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();
-- 
2.30.2