From 077795c844ab3ea07f3c4b624bbd2a1abc5da8a8 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 15 Sep 2012 23:42:31 +0100
Subject: [PATCH] doveclip fix pin dimensions

---
 doveclip.scad      | 17 +++++++++--------
 filamentspool.scad |  4 ++++
 2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/doveclip.scad b/doveclip.scad
index 2522f53..52f1230 100644
--- a/doveclip.scad
+++ b/doveclip.scad
@@ -15,18 +15,19 @@ basepinclear = 1.0;
 toothgap = webthick + webgap*2;
 basethick = toothheight;
 
-module DoveClipPin(height=height) {
-  translate([0,0, height/2]) intersection(){
+module DoveClipPin(h=pindepth) {
+  pinheight = nomrad*2 + jawthick*2;
+  translate([0,0, pinheight/2]) intersection(){
     union(){
       for (m=[0,1]) {
-	mirror([0,0,m]) translate([0,0,height/2]) rotate([90,0,0])
-	  cylinder($fn=20, r1=minrad, r2=maxrad, h=pindepth);
+	mirror([0,0,m]) translate([0,0,pinheight/2]) rotate([90,0,0])
+	  cylinder($fn=20, r1=minrad, r2=maxrad, h=h);
       }
-      translate([-webthick/2, -pindepth, -height/2-1])
-	cube([webthick, pindepth, height+2]);
+      translate([-webthick/2, -h, -pinheight/2-1])
+	cube([webthick, h, pinheight+2]);
     }
-    translate([-maxrad-1, -pindepth-1, -height/2])
-      cube([maxrad*2+2, pindepth+2, height]);
+    translate([-maxrad-1, -h-1, -pinheight/2])
+      cube([maxrad*2+2, h+2, pinheight]);
   }
 }
 
diff --git a/filamentspool.scad b/filamentspool.scad
index 43870e6..c2353fd 100644
--- a/filamentspool.scad
+++ b/filamentspool.scad
@@ -166,6 +166,10 @@ module CupSecuringClip(){
   }
 }
 
+module ArmDoveClipPin(){
+  DoveClipPin(h=doveclipheight);
+}
+
 //ArmEnd();
 //FilamentCup();
 //CupSecuringClip();
-- 
2.30.2