X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=summit-lantern-hook.scad;h=e91573a51e2ecdc3f283b98af922ef47fb99d7ef;hb=ba7c5b240dcdab5fa3f4e3f7823bb828551471f0;hp=955199d6331fe7fcd77ba998bd044cd0ebbfc3be;hpb=b428417375b01694a259d8ff5b591a8680928ae3;p=reprap-play.git

diff --git a/summit-lantern-hook.scad b/summit-lantern-hook.scad
index 955199d..e91573a 100644
--- a/summit-lantern-hook.scad
+++ b/summit-lantern-hook.scad
@@ -3,10 +3,11 @@
 include <utils.scad>
 
 height = 60;
-th = 6;
 curl = 10;
 width = 85;
-sides_depth = 35;
+sides_depth = 50;
+th = 6;
+th2 = 4;
 
 $fa = 3;
 $fs = 0.3;
@@ -22,36 +23,35 @@ module UpperPlan(){
   circle(r = upper_r);
 }
 
+module EndCurl(){
+  rotate([90,0,0])
+    rotate_extrude(angle=180)
+    translate([upper_ctr_maj_r, 0])
+    UpperPlan();
+  translate([-upper_ctr_maj_r, 0,0])
+    sphere(r= upper_r);
+}
+
 module Upper(){
   translate([upper_ctr_maj_r, 0, 0])
     linextr(-0.1, height + 0.1)
     UpperPlan();
-  translate([0, 0, height]){
-    rotate([90,0,0])
-      rotate_extrude(angle=180)
-      translate([upper_ctr_maj_r, 0])
-      UpperPlan();
-    translate([-upper_ctr_maj_r, 0,0])
-      sphere(r= upper_r);
-  }
+  translate([0, 0, height])
+    EndCurl();
 }
 
 module Lower(){
-  difference(){
-    linextr(-zmin, 0)
-      square(center = true, [curl + th*2, th]);
-    linextr_y_xz(-th, th)
-      circle(r = curl/2);
-  }
+  rotate([180,0,0])
+    EndCurl();
   linextr(-zmin, -zmin + th) {
-    square(center=true, [th, width]);
+    square(center=true, [th2, width]);
     for (m=[0,1])
       mirror([0,m])
 	hull()
       {
 	for (x= sides_depth/2 * [-1,+1])
-	  translate([ x, width/2 - th/2 ])
-	    circle(r= th/2);
+	  translate([ x, width/2 - th2/2 ])
+	    circle(r= th2/2);
       }
   }
 }