From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 10 Mar 2014 17:36:05 +0000 (+0000)
Subject: wardrobe-hook: wip T version
X-Git-Tag: filamentspool-v2-release~422
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=b769fa1064134977fdcc970bc6355866fee6fec9;ds=sidebyside

wardrobe-hook: wip T version
---

diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index b746a1f..69f95b5 100644
--- 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