X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=cliphook.scad;h=a6fcffe79f24683890ed3826bbdb71c29ad84064;hp=2d29506e145931836d0025de54cb7aaed076eea7;hb=e9fcf5fd1d3ff5d31afff25d68eec10501c9d168;hpb=cc74468c8111767784b9beaae81f0d1fbb8b935d

diff --git a/cliphook.scad b/cliphook.scad
index 2d29506..a6fcffe 100644
--- a/cliphook.scad
+++ b/cliphook.scad
@@ -1,3 +1,4 @@
+// -*- C -*-
 
 function ClipHook_r2(w,g,l,ye,k) = w/2 + g + w/2;
 function ClipHook_r3(w,g,l,ye,k) = k * (ClipHook_r2(w,g,l,ye,k) + w + g);
@@ -15,11 +16,11 @@ module FlatArc(cx,cy,r1,r2,a1,a2=361,$fn=$fn) {
       difference() {
 	circle(r=r2);
 	translate([0,0,-1])
-	  circle(r=r1, h=h+2);
+	  circle(r=r1);
       }
       scale(size) {
 	for (ai=[0:4]) {
-	  echo(" jarc ", a1,a2, astep, ai, a1 + astep*ai );
+	  //echo(" jarc ", a1,a2, astep, ai, a1 + astep*ai );
 	  rotate(a1 + astep*ai) {
 	    polygon([ [0,0], [1,0],
 		      [cos(astep*2),sin(astep*2)] ]);
@@ -65,14 +66,14 @@ module ClipHook(w=1.2, g=0.2, l=0.0, ye=0, k=2.0, h=3.5, demo=false,
     linear_extrude(height=h)
       ClipHook_2D(w,g,l,ye,k);
     if (cupcapg != 0) {
-      translate([0,-(w+g),h-cupcaph])
+      translate([-g+0.01,-(w+g),h-cupcapg])
       cube([w,(w+g),cupcaph+1]);
     }
   }
   if (cupcaph != 0) {
     translate([-l/2, g/2+w/2, h-0.01])
       intersection() {
-        cylinder(r=ClipHook_r2(w,g,l,ye,k)+w/2, h=cupcaph, $fn=16);
+        cylinder(r=ClipHook_r2(w,g,l,ye,k)+w*0.4, h=cupcaph, $fn=16);
 	translate([-50-g,-50,-1]) cube([50,100,h+2]);
       }
   }