X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=steamer-handle-clip.scad;h=5001861578afbf0c7bc82c4d395ef959f5a8d340;hb=6dba99d4594590c1af949fbd0379d366a05c2ca6;hp=477070ebd0d472068a3aef6a3e659b09e0d32c4a;hpb=a691a1ec68736e82222db9b541012faf16985a81;p=reprap-play.git

diff --git a/steamer-handle-clip.scad b/steamer-handle-clip.scad
index 477070e..5001861 100644
--- a/steamer-handle-clip.scad
+++ b/steamer-handle-clip.scad
@@ -3,9 +3,11 @@
 include <funcs.scad>
 include <utils.scad>
 
-width = 20;
+width = 30 - 2;
 cup = 2.5;
-jaw = 32.36 - 2.00;
+jaw = 32.36 - 2.00 - 2.00 - 3.00;
+th = 3.0;
+l = 15;
 
 a = cup;
 b = width/2;
@@ -14,17 +16,35 @@ c = vectorlen2d([a, b]);
 r = a / (1 - cos(2*alpha));
 C = [0, a-r];
 
-module Thing() {
+$fa = 1;
+
+module HalfBaseline() {
   intersection(){
-    hull(){
-      translate(C)
-	circle(r=r);
-      translate([0, -jaw])
-	square(center=true, [width, 10]);
-    }
-    rectfromto([ -width/2, -jaw ],
-	       [  width/2,  20  ]);
+    translate(C + [0, jaw/2])
+      circle(r=r);
+    rectfromto([ -width/2, -1, ],
+	       [  width/2, jaw ]);
+  }
+}
+
+module Baseline(){
+  HalfBaseline();
+  mirror([0,1]) HalfBaseline();
+}
+
+module Plan(){
+  difference(){
+    offset(delta=th) Baseline();
+    Baseline();
+    rectfromto([-width, -jaw/2],
+	       [0,       jaw/2]);
   }
 }
 
+module Thing(){
+  linextr(0,l) Plan();
+}
+
+//HalfPlan();
+//Plan();
 Thing();