From cd7a81daabcc8212c404b8e52adf97a30d66bd75 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 28 Aug 2012 18:34:05 +0100
Subject: [PATCH] filamentclip tuning

---
 filamentclip.scad | 32 ++++++++++++++++++++------------
 1 file changed, 20 insertions(+), 12 deletions(-)

diff --git a/filamentclip.scad b/filamentclip.scad
index 27e25a9..5b810ed 100644
--- a/filamentclip.scad
+++ b/filamentclip.scad
@@ -12,10 +12,12 @@ fdia=1.77;
 
 d=0.01;
 
-module FilamentClipTeeth(based=1.5, basew=4, teethw=1.5,
+module FilamentClipTeeth(teethw=1.5,
 			 stembendd=0.5,	stembendl=7, teethxl=1.5) {
   gapw = fdia-stembendd*2;
   teethbigw = gapw + teethw*2;
+  basew = fdia+teethw*2-stembendd*2;
+  based = basew/3;
 
   translate([-based, -basew/2, 0]) cube([based, basew, h]);
   difference() {
@@ -47,34 +49,40 @@ module FilamentClipTeeth(based=1.5, basew=4, teethw=1.5,
   }
 }
 
-module FilamentClip() {
-  k=1.5;
-  g=0.6;
+module our_ClipHook(ye){
+  ClipHook(h=h, w=w, g=0.6, k=1.5, g=0.6, ye=ye);
+}
 
-  rotate([0,0,-55]) {
-    translate([0,rad,0]) {
-      ClipHook(h=h, w=w, g=0.6, k=k, g=g, ye=-1.3);
+module FilamentClip() {
+  rotate([0,0,-60]) {
+    translate([0,rad-1.5,0]) {
+      rotate([0,0,8])
+	our_ClipHook(ye=-1.3);
     }
   }
 
   rotate([0,0,-30]) {
     translate([0,rad,0]) {
-      rotate([0,0,180]) ClipHook(h=h, w=w, g=g, k=k, ye=0.8);
+      rotate([0,0,180])
+	our_ClipHook(ye=0.8);
     }
   }
 
   linear_extrude(height=h) {
     assign($fn=80) {
-      FlatArc(0,0, rad-w/2,rad+w/2, 80,372);
+      FlatArc(0,0, rad-w/2,rad+w/2, 80,365);
     }
     assign($fn=30) {
       FlatArc(0,rad+looprad+w, looprad,looprad+loopw);
     }
   }
 
-  for (rot=[0,180]) {
-    rotate([0,0,rot])
-      translate([rad, 0, 0]) FilamentClipTeeth();
+  for (mir=[0,1]) {
+    mirror([mir,0,0])
+      rotate([0,0,-20])
+      translate([rad+w+fdia/2, 0, 0])
+      rotate([0,0,100])
+      FilamentClipTeeth();
   }
 }
 
-- 
2.30.2