+module LeverSectBot(inadj=false){
+ P6 = inadj ? P6a : P6t;
+ mirror([0,1]) {
+ LeverSect(false, inadj);
+ PsHull([P5,P6,P7]);
+ translate([pivot_x,0]) circle(r=pivot_r, $fn=20);
+ }
+}
+
+module Demo(){
+ translate([0,0,-5]) color("white") ExtrusionSect();
+ LeverSectTop();
+ translate([0,0,5]) LeverSectBot();
+ color("black") LeverSectBot(true);
+ color("blue") translate([0,0,10]) StrapSect();
+}
+
+module LeverTop(){
+ linear_extrude(height=width, convexity=100) LeverSectTop();
+}
+
+module LeverBot(inadj=false){
+ linear_extrude(height=width, convexity=100) LeverSectBot(inadj);
+}
+
+module Test(){
+ translate([0,2,0]) LeverTop();
+ LeverBot();
+ translate([0,-opening_height - 2,0]) LeverBot(true);
+}
+
+//LeverSectBot(true);
+//Demo();
+Test();