From b18d3a6d1d721c71b11eded7f097cc537c4e5f8d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 15 Sep 2020 23:51:29 +0100
Subject: [PATCH] pin-hinge: wip

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

diff --git a/pin-hinge.scad b/pin-hinge.scad
index bf9aa7b..b60d1f0 100644
--- a/pin-hinge.scad
+++ b/pin-hinge.scad
@@ -1,5 +1,7 @@
 // -*- C -*-
 
+include <utils.scad>
+
 $hinge_pin_dia = 0.795 + 0.35;
 $hinge_main_dia = 4.0;
 $hinge_inter_gap = 0.50;
@@ -32,23 +34,31 @@ module PlanDemo(){
   translate([0,0,1]) color("red") HingePinPlan();
 }
 
-module HingePositive(l){
-  linetr_x_yz(0, l)
-    HingeProngPlan();
+module HingePositive(l, behind){
+  linextr_x_yz(0, l)
+    HingeProngPlan(behind);
 }  
 
 module HingeNegative(l){
-  eff_l = l + $hionge_inter_gap;
+  eff_l = l + $hinge_inter_gap;
   pairs = floor(eff_l / (2*($hinge_prong_minwidth + $hinge_inter_gap)));
   stride = eff_l / pairs;
   prong_width = stride/2 - $hinge_inter_gap;
-  linextr_x_ayz(-0.1, l+0.1)
+  linextr_x_yz(-0.1, l+0.1)
     HingePinPlan();
   for (i=[0:pairs-1]) {
     translate(stride * i * [1,0,0])
-      linextr_x_yz(0, prong_width + $hinge_inter_gap)
+      linextr_x_yz(0 + (i==0 ? -0.1 : 0), prong_width + $hinge_inter_gap)
       HingeGapPlan();
   }
 }
 
-PlanDemo();
+module Demo(){
+  difference(){
+    HingePositive(30, 10);
+    HingeNegative(30);
+  }
+}
+
+//PlanDemo();
+Demo();
-- 
2.30.2