summit-lantern-hook: break out EndCurl nfc

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/summit-lantern-hook.scad b/summit-lantern-hook.scad
index 955199d6331fe7fcd77ba998bd044cd0ebbfc3be..bee914d11824325b735862c0229b93fd601b5b22 100644 (file)
--- a/summit-lantern-hook.scad
+++ b/summit-lantern-hook.scad
@@ -22,18 +22,21 @@ 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(){