wardrobe-hook: straight-on version: wip

diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index 3588142ac8f50637e9fbc34aaa3826911d860b05..27b02dc984b03a2a954c4ad57dcc336918875aff 100644 (file)
--- a/wardrobe-hook.scad
+++ b/wardrobe-hook.scad
@@ -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();