chiark / gitweb /
wardrobe-hook: wip T version
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 10 Mar 2014 17:36:05 +0000 (17:36 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 10 Mar 2014 17:36:05 +0000 (17:36 +0000)
wardrobe-hook.scad

index b746a1f..69f95b5 100644 (file)
@@ -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