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

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 summit-lantern-hook.scad | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 summit-lantern-hook.scad

diff --git a/summit-lantern-hook.scad b/summit-lantern-hook.scad
new file mode 100644
index 0000000..a6c62ac
--- /dev/null
+++ b/summit-lantern-hook.scad
@@ -0,0 +1,38 @@
+// -*- C -*-
+
+include <utils.scad>
+
+height = 60;
+th = 6;
+curl = 10;
+width = 85;
+sides_depth = 35;
+
+$fa = 3;
+$fs = 0.3;
+
+// calculated
+
+upper_r = th/2;
+
+upper_ctr_maj_r = curl/2 + upper_r;
+
+module UpperPlan(){
+  circle(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);
+  }
+}
+
+Upper();
-- 
2.30.2