From 702d0bea2fc687a577b17cab523a61dfec00a6f7 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 15 Sep 2012 17:43:08 +0100
Subject: [PATCH] dovecliptest wip

---
 dovecliptest.scad | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/dovecliptest.scad b/dovecliptest.scad
index 221e867..da30101 100644
--- a/dovecliptest.scad
+++ b/dovecliptest.scad
@@ -25,4 +25,28 @@ module DoveClipPin() {
   }
 }
 
-DoveClipPin();
+module DoveClipEnd(baseextend=1, height=7) {
+  basethick = toothheight;
+  jawthick = toothheight;
+  cubex = nomrad*2 + jawthick*2;
+  cube0y = -basethick-nomrad*2-toothheight;
+  centrey = -basethick-nomrad;
+  difference(){
+    translate([-cubex/2, cube0y, 0])
+      cube([cubex, -cube0y+baseextend, height]);
+    translate([0, centrey, -1])
+      cylinder($fn=20, r=nomrad, h=height+2);
+    translate([-toothgap/2, cube0y-1, -1])
+      cube([toothgap, toothheight+nomrad+1, height+2]);
+  }
+}
+
+for (x=[0,8])
+  translate([x,0,0]) DoveClipEnd();
+translate([-4,0,0])
+  cube([16,5,7]);
+
+//DoveClipPin();
+
+//translate([-10,
+//cube([
-- 
2.30.2