wardrobe-hook: wip T version

[reprap-play.git] / wardrobe-hook.scad

diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index 331121cffc1772c73cefc8d38e703252bbb990eb..69f95b557fa29de32bcd5eb32985cb78ad7e88fc 100644 (file)
--- a/wardrobe-hook.scad
+++ b/wardrobe-hook.scad
@@ -101,7 +101,7 @@ module PlaneAbove(){
 taperangle = -270 + tangent_intersect_beta([-hookcy, 0],
                                          hookoutrad,
                                          [-eltop[1], -eltop[0]]);
-module Hook(){ ////toplevel
+module HookL(){ ////toplevel
   difference(){
     rotate([taperangle,0,0])
       translate([0,-eltop[1],0])
@@ -114,22 +114,69 @@ module Hook(){ ////toplevel
   }
 }
 
-// frontbackly version, everything prefixed with f or F
+// straight-on version, everything prefixed with s or S
 
-fstemleny = -hookcy;
-fbend = atan((tuberad - hookinrad) / fstemleny);
+shookcy = -(stemlen-hookoutrad);
+sstemleny = -shookcy;
+sbend_raw = tangents_intersect_beta([0,0],tuberad,
+                                   [0,shookcy],hookinrad);
+sbend = angle_map_range(360-sbend_raw, -180);
 
-module FPlan(){
-  ClipPlan(fbend, fstemleny);
+module SPlan(){
+  ClipPlan(sbend, sstemleny);
+  FArcSegment(0,shookcy, hookinrad,hookoutrad,
+             270 - hookcurl,
+             hookcurl + 90 - sbend);
 }
 
-// toplevels etc.
+module SElevation(){
+  boty = shookcy - hookoutrad - 1;
+  polygon([[-1,         tubeheight],
+          [topwidth,   tubeheight],
+          [topwidth,   elmid[1]],
+          [hookwidth,  shookcy],
+          [hookwidth,  boty],
+          [-1,         boty]]);
+}
+
+module SHookL(){ ///toplevel
+  intersection(){
+    linear_extrude(height=topwidth) SPlan();
+    rotate([0,-90,0]) translate([0,0,-100]) linear_extrude(height=200)
+      SElevation();
+  }
+}
 
-module RightHook(){ ////toplevel
-  mirror([1,0,0]) Hook();
+// 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);
 }
 
-FPlan();
-translate([60,0,0]) Plan();
-//ElevationCore();
-//RightHook();
+// other toplevels etc.
+
+module HookR(){ ////toplevel
+  mirror([1,0,0]) HookL();
+}
+
+module SHookR(){ ////toplevel
+  mirror([1,0,0]) SHookL();
+}
+
+module Demo(){ ////toplevel
+  translate([-30,tubeheight,0]) HookL();
+  translate([  0,tubeheight,0]) HookR();
+  translate([ 30,         0,0]) SHookL();
+  translate([ 60,         0,0]) SHookR();
+}