summit-lantern-hook: wip

[reprap-play.git] / summit-lantern-hook.scad

diff --git a/summit-lantern-hook.scad b/summit-lantern-hook.scad
index a6c62ac25a23b1b92ed219473349b0cbc7fe58eb..7666889305a44c00833a3513217157f4a0cc162c 100644 (file)
--- a/summit-lantern-hook.scad
+++ b/summit-lantern-hook.scad
@@ -14,9 +14,10 @@ $fs = 0.3;
 // calculated
 
 upper_r = th/2;
-
 upper_ctr_maj_r = curl/2 + upper_r;
 
+zmin = curl/2 + th;
+
 module UpperPlan(){
   circle(r = upper_r);
 }
@@ -35,4 +36,25 @@ module Upper(){
   }
 }
 
-Upper();
+module Lower(){
+  difference(){
+    linextr(-zmin, 0)
+      square(center = true, [curl + th*2, th]);
+    linextr_y_xz(-th, th)
+      circle(r = curl/2);
+  }
+  linextr(-zmin, -zmin + th) {
+    square(center=true, [th, width]);
+    for (m=[0,1])
+      mirror([0,m])
+       translate([0, width/2 - th/2 ])
+       square(center=true, [ sides_depth, th ]);
+  }
+}
+
+module Hook(){
+  Upper();
+  Lower();
+}
+
+Hook();