chiark / gitweb /
wardrobe-hook: straight-on version: wip
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 23 Feb 2014 18:50:09 +0000 (18:50 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 23 Feb 2014 18:50:09 +0000 (18:50 +0000)
wardrobe-hook.scad

index 3588142..27b02dc 100644 (file)
@@ -116,13 +116,17 @@ module Hook(){ ////toplevel
 
 // straight-on version, everything prefixed with s or S
 
 
 // straight-on version, everything prefixed with s or S
 
-sstemleny = -hookcy;
+shookcy = -(stemlen-hookoutrad);
+sstemleny = -shookcy;
 sbend_raw = tangents_intersect_beta([0,0],tuberad,
 sbend_raw = tangents_intersect_beta([0,0],tuberad,
-                                   [0,-(stemlen-hookinrad)],hookinrad);
+                                   [0,shookcy],hookinrad);
 sbend = angle_map_range(360-sbend_raw, -180);
 
 module SPlan(){
   ClipPlan(sbend, sstemleny);
 sbend = angle_map_range(360-sbend_raw, -180);
 
 module SPlan(){
   ClipPlan(sbend, sstemleny);
+  FArcSegment(0,shookcy, hookinrad,hookoutrad,
+             270 - hookcurl,
+             hookcurl + 90 - sbend);
 }
 
 // toplevels etc.
 }
 
 // toplevels etc.
@@ -132,6 +136,6 @@ module RightHook(){ ////toplevel
 }
 
 SPlan();
 }
 
 SPlan();
-translate([60,0,0]) Plan();
+translate([60,0,0]) ElevationCore();
 //ElevationCore();
 //RightHook();
 //ElevationCore();
 //RightHook();