+
+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);
+ }
+}
+
+//ElevationCore();
+Hook();