+module HingeBaseProfile(){
+ difference(){
+ hull(){
+ circleat(hppB, hp_r1);
+ circleat(epp2o, case_th_bottom);
+ circleat(hppB + [10,0], hp_r1);
+ }
+ polygon([epp5, epp1, epp2i, epp3, bppL]);
+ }
+}
+
+module HingeLeverOuterProfile(){
+ hull(){
+ circleat(hppT, hp_r2);
+ circleat(hppB, hp_r2);
+ }
+}
+
+module HingeLeverInnerProfile(){
+ for (c = [hppT, hppB]) {
+ hull()
+ for (x=[0,20])
+ translate([x,0])
+ circleat(c, hp_rn);
+ circleat(hppB, hp_rn);
+ }
+}
+
+module HingePortion(){
+ Flip_rhs();
+}
+