wardrobe-hook: straight-on version: wip

[reprap-play.git] / wardrobe-hook.scad

diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index 331121cffc1772c73cefc8d38e703252bbb990eb..27b02dc984b03a2a954c4ad57dcc336918875aff 100644 (file)
--- a/wardrobe-hook.scad
+++ b/wardrobe-hook.scad
@@ -114,13 +114,19 @@ module Hook(){ ////toplevel
   }
 }
 
-// frontbackly version, everything prefixed with f or F
-
-fstemleny = -hookcy;
-fbend = atan((tuberad - hookinrad) / fstemleny);
-
-module FPlan(){
-  ClipPlan(fbend, fstemleny);
+// straight-on version, everything prefixed with s or S
+
+shookcy = -(stemlen-hookoutrad);
+sstemleny = -shookcy;
+sbend_raw = tangents_intersect_beta([0,0],tuberad,
+                                   [0,shookcy],hookinrad);
+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.
@@ -129,7 +135,7 @@ module RightHook(){ ////toplevel
   mirror([1,0,0]) Hook();
 }
 
-FPlan();
-translate([60,0,0]) Plan();
+SPlan();
+translate([60,0,0]) ElevationCore();
 //ElevationCore();
 //RightHook();