From eb49b7376b011467575229b3214f48860588dfe2 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 23 Feb 2014 18:50:09 +0000
Subject: [PATCH] wardrobe-hook: straight-on version: wip

---
 wardrobe-hook.scad | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

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();
-- 
2.30.2