From c1e88a96979b9238c3c5f67e59e89bbd2c585607 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 13 Nov 2020 18:12:03 +0000
Subject: [PATCH] summit-lantern-hook: wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 summit-lantern-hook.scad | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

diff --git a/summit-lantern-hook.scad b/summit-lantern-hook.scad
index a6c62ac..7666889 100644
--- 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();
-- 
2.30.2