From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 23 Feb 2014 18:50:09 +0000 (+0000)
Subject: wardrobe-hook: straight-on version: wip
X-Git-Tag: filamentspool-v2-release~427
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=eb49b7376b011467575229b3214f48860588dfe2;p=reprap-play.git

wardrobe-hook: straight-on version: wip
---

diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index 3588142..27b02dc 100644
--- a/wardrobe-hook.scad
+++ b/wardrobe-hook.scad
@@ -116,13 +116,17 @@ module Hook(){ ////toplevel
 
 // straight-on version, everything prefixed with s or S
 
-sstemleny = -hookcy;
+shookcy = -(stemlen-hookoutrad);
+sstemleny = -shookcy;
 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);
+  FArcSegment(0,shookcy, hookinrad,hookoutrad,
+	      270 - hookcurl,
+	      hookcurl + 90 - sbend);
 }
 
 // toplevels etc.
@@ -132,6 +136,6 @@ module RightHook(){ ////toplevel
 }
 
 SPlan();
-translate([60,0,0]) Plan();
+translate([60,0,0]) ElevationCore();
 //ElevationCore();
 //RightHook();