+// after here is all 3D
+
+module Primary(){
+ intersection(){
+ translate([0,0, -(topwidth+10)/2])
+ linear_extrude(height=topwidth+10) Plan();
+ translate([50,0])
+ rotate([0,-90,0])
+ linear_extrude(height=100)
+ ElevationCore();
+ }
+}
+
+module PlaneAbove(){
+ translate([-100,-100,0]) cube(center=false,size=[200,200,200]);
+}
+
+taperangle = -270 + tangent_intersect_beta([-hookcy, 0],
+ hookoutrad,
+ [-eltop[1], -eltop[0]]);
+module Hook(){ ////toplevel
+ difference(){
+ rotate([taperangle,0,0])
+ translate([0,-eltop[1],0])
+ Primary();
+ translate([0,0,topwidth/2])
+ rotate([taperangle*2,0,0])
+ PlaneAbove();
+ translate([0,0,-topwidth/2])
+ mirror([0,0,1]) PlaneAbove(0);
+ }
+}
+
+// straight-on version, everything prefixed with s or S
+
+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 SPlan(){
+ ClipPlan(sbend, sstemleny);
+ FArcSegment(0,shookcy, hookinrad,hookoutrad,
+ 270 - hookcurl,
+ hookcurl + 90 - sbend);
+}
+
+module SElevation(){
+ boty = shookcy - hookoutrad - 1;
+ polygon([[-1, tubeheight],
+ [topwidth, tubeheight],
+ [topwidth, elmid[1]],
+ [hookwidth, shookcy],
+ [hookwidth, boty],
+ [-1, boty]]);
+}
+
+module SHook(){
+ intersection(){
+ linear_extrude(height=topwidth) SPlan();
+ rotate([0,-90,0]) translate([0,0,-100]) linear_extrude(height=200)
+ SElevation();
+ }
+}
+
+// toplevels etc.
+
+module RightHook(){ ////toplevel
+ mirror([1,0,0]) Hook();
+}
+
+translate([-30,0,0]) SHook();
+//SPlan();
+//translate([30,0,0]) SElevation();
+//translate([120,0,0]) ElevationCore();
+//ElevationCore();
+//RightHook();