From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 16 Sep 2012 02:12:27 +0000 (+0100)
Subject: doveclip introduce DoveClipPairSane
X-Git-Tag: filamentspool-v2-release~840
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=d42e08354c899915b8313ba06dd48e79a8c256f8

doveclip introduce DoveClipPairSane
---

diff --git a/doveclip.scad b/doveclip.scad
index 5291c49..ccb5125 100644
--- a/doveclip.scad
+++ b/doveclip.scad
@@ -32,6 +32,11 @@ module DoveClipPin(h=height) {
   }
 }
 
+function DoveClip_depth(baseextend) =
+  basethick + nomrad*2 + toothheight + baseextend;
+function DoveClip_width() =
+  nomrad*2 + jawthick*2 + toothgap;
+
 module DoveClipEnd(baseextend=1, h=7) {
   cubex = nomrad*2 + jawthick*2;
   cube0y = -basethick-nomrad*2-toothheight;
@@ -47,7 +52,7 @@ module DoveClipEnd(baseextend=1, h=7) {
 }
 
 module DoveClipPair(baseextend=1, h=7) {
-  delta = nomrad*2 + jawthick*2 + toothgap;
+  delta = DoveClip_width();
   for (x=[-delta/2,delta/2])
     translate([x,0,0])
       DoveClipEnd(baseextend=baseextend, h=h);
@@ -63,3 +68,11 @@ module DoveClipPairBase(baseextend=0.1, h=7) {
   translate([-delta, -intrude, 0])
     cube([delta*2, intrude+0.1, h]);
 }
+
+module DoveClipPairSane(baseextend=0, h=7) {
+  rotate([0,0,90])
+    translate([0, DoveClip_depth(baseextend=baseextend), 0])
+    DoveClipPairBase(baseextend=baseextend, h=h);
+}
+
+DoveClipPairSane();