air-hockey-puck: wip

[reprap-play.git] / steamer-handle-clip.scad

diff --git a/steamer-handle-clip.scad b/steamer-handle-clip.scad
index eb06b7b06af17ec5f5510b45e0451e30f60f3418..5001861578afbf0c7bc82c4d395ef959f5a8d340 100644 (file)
--- a/steamer-handle-clip.scad
+++ b/steamer-handle-clip.scad
@@ -1,10 +1,13 @@
 // -*- C -*-
 
 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;
@@ -13,11 +16,35 @@ c = vectorlen2d([a, b]);
 r = a / (1 - cos(2*alpha));
 C = [0, a-r];
 
-module Thing() {
-  translate(C)
-    circle(r=r);
-//  translate([0, -20])
-//    square(center=true, [width, 40]);
+$fa = 1;
+
+module HalfBaseline() {
+  intersection(){
+    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();