X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=pin-hinge.scad;h=81d527e478ad50a5550861ae5cecc98bac011b78;hb=6dba99d4594590c1af949fbd0379d366a05c2ca6;hp=b60d1f06483a5afb0d7d650bb469e6082ce73228;hpb=b18d3a6d1d721c71b11eded7f097cc537c4e5f8d;p=reprap-play.git

diff --git a/pin-hinge.scad b/pin-hinge.scad
index b60d1f0..81d527e 100644
--- a/pin-hinge.scad
+++ b/pin-hinge.scad
@@ -2,10 +2,10 @@
 
 include <utils.scad>
 
-$hinge_pin_dia = 0.795 + 0.35;
+$hinge_pin_dia = 0.795 + 0.75;
 $hinge_main_dia = 4.0;
 $hinge_inter_gap = 0.50;
-$hinge_prong_minwidth = 3.5;
+$hinge_prong_minwidth = 3.0;
 $hinge_noncrit_gap = 1.0;
 
 $fa = 3;
@@ -34,31 +34,67 @@ module PlanDemo(){
   translate([0,0,1]) color("red") HingePinPlan();
 }
 
-module HingePositive(l, behind){
-  linextr_x_yz(0, l)
-    HingeProngPlan(behind);
-}  
-
-module HingeNegative(l){
+module HingePinUnitCell(l) {
   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_yz(-0.1, l+0.1)
-    HingePinPlan();
+  $hinge__prong_width = stride/2 - $hinge_inter_gap;
   for (i=[0:pairs-1]) {
     translate(stride * i * [1,0,0])
-      linextr_x_yz(0 + (i==0 ? -0.1 : 0), prong_width + $hinge_inter_gap)
+      children(0);
+  }
+}
+
+module HingePositive(l, behind){
+  HingePinUnitCell(l){
+    linextr_x_yz(0, $hinge__prong_width)
+      HingeProngPlan(behind);
+  }
+}
+
+module HingeNegative(l){
+  linextr_x_yz(-0.1, l+0.1)
+    HingePinPlan();
+  HingePinUnitCell(l){
+    linextr_x_yz($hinge__prong_width,
+		 $hinge__prong_width*2 + 2*$hinge_inter_gap)
       HingeGapPlan();
   }
 }
 
+test_l = 30;
+test_wb = 12;
+test_h = 12;
+
+test_face_gap = 0.75;
+
 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){
+    offset(delta = -test_face_gap/2)
+      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();