+module PropProfile(gamma, cut=0){ ////toplevel
+ // https://en.wikipedia.org/wiki/Solution_of_triangles#Two_sides_and_the_included_angle_given_(SAS)
+ p = phone_height - prlp10[0] - hppB[0];
+ x = k / (2 * sin(gamma/2)) - hppT[0];
+ b = p + x;
+
+ q = phone_height - hppT[0]; // prpp7[0] is 0 by definition
+ a = q + x;
+ c = sqrt(a*a + b*b - 2*a*b*cos(gamma));
+ alpha = acos( (b*b + c*c - a*a) / (2*b*c) );
+
+ theta = 90 - alpha;
+ beta = 180 - alpha - gamma;
+ psi = 90 - beta + atan(prop_caserecess_taper);
+ prpv1 = [ sin(psi), cos(psi) ];
+
+ prpp7 = [0, c + (lpp13[1] - prpp10[1]) ];
+
+ prp_r1 = prc_r1;
+ prp_r11 = prp_main_th/2;
+
+ prpp1 = prpp7 + [1,0] *
+ // this is approximate, but will do
+ (prop_main_th/2 + prop_prop_gap + prcp1[0] - prcp1[1]);
+ prpp3 = prpp1 + [ -prp_r1,
+ (prcp2[1] - prcp1[1]) - prop_prop_gap ];
+ prpp4 = [ prop_main_th/2, prpp3[1] ];
+ prp_r5 = prop_end_dia/2;
+ prpp5 = [ prpp1[0], prpp3[1] - prop_prong_h + prp_r5 ];
+ prpp6 = prpp4 + [0,-1] * (prop_prong_h +
+ prop_prong_heel_slope * (prpp5[0] - prpp4[0]));
+ prp_r8 = prop_main_th/2;
+ prpp8 = prpp4 + [0,-1] * prp_r8;
+ prpp9 = prpp8 + [-1,0] * prp_r8;
+ prpp12 = prpp3 + [0,1] * prop_end_dia;
+
+ if (!cut) {
+ hull(){
+ translate(prpp8)
+ intersection(){
+ circle(prp_r8);
+ rectfromto([-20,-0], [20,20]);
+ }
+ rectfromto(prpp6, prpp9);
+ circleat(prpp5, prp_r5);
+ rectfromto(prpp12 + [0,-0.1], prpp3);
+ }
+ hull(){
+ circleat(prpp1, prp_r1);
+ rectfromto(prpp12 + [0,-0.1], prpp3);
+ }
+ }
+ rotate([0,0, cut ? -theta : 0]){
+ hull(){
+ extra = cut ? prop_recess_slop : 0;
+ rectfromto(prpp6, prpp9);
+ circleat(prpp11, prp_r11 + extra);
+ circleat(prpp10, prp_r10 + extra);
+ }
+ }
+}
+