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])
// 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.
+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);
}
-SPlan();
-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();
+}