wardrobe-hook: wip T version

diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index b746a1f8e03e8a213241675f61fb1f6debd68c4a..69f95b557fa29de32bcd5eb32985cb78ad7e88fc 100644 (file)
--- a/wardrobe-hook.scad
+++ b/wardrobe-hook.scad
@@ -147,6 +147,23 @@ module SHookL(){ ///toplevel
   }
 }
 
+// straight-on version, reversed, everything prefixed with t or T
+
+thookcy = shookcy;
+tstem0leny = tuberad;
+tbend_raw = tangents_intersect_beta([0,shookcy], hookinrad,
+                                   [0,-tstem0leny], -tuberad);
+echo(tbend_raw);
+tbend = angle_map_range(90-tbend_raw, -180);
+
+module TPlan(){
+  ClipPlan(0, tstem0leny);
+  FArcSegment(0,-tstem0leny, tuberad,mainoutrad,
+             tbend, 10);
+  FArcSegment(0,shookcy, hookinrad,hookoutrad,
+             tbend_raw, 270-tbend_raw + hookcurl);
+}
+
 // other toplevels etc.
 
 module HookR(){ ////toplevel