From d42e08354c899915b8313ba06dd48e79a8c256f8 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 16 Sep 2012 03:12:27 +0100
Subject: [PATCH] doveclip introduce DoveClipPairSane

---
 doveclip.scad | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

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();
-- 
2.30.2