+module LeverSectBot(inadj=false){
+ P6 = inadj ? P6a : P6t;
+ mirror([0,1]) {
+ LeverSect(false, inadj);
+ PsHull([P5,P6,P7]);
+ PsHull([P8b,P8eb,P9eb,P9b]);
+ Ribbles(P8eb[0],
+ P9b[0],
+ P8eb[1]);
+ 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]) StrapSectTop();
+ color("purple") translate([0,0,-10]) StrapSectBot();
+}
+
+module SomeLever() {
+ // SomeLever(){ LeverBot(inadj); LeverSectBot(); }
+ difference(){
+ linear_extrude(height=width, convexity=100) children(0);
+ for (i = [ 0 : nstraps - 1 ]) {
+ translate([0,0, (i + 0.5) / nstraps * width - strap_width/2])
+ linear_extrude(height=strap_width, convexity=10)
+ children(1);
+ }
+ }
+}
+
+module Test(){
+ linear_extrude(height=test_width, convexity=100) {
+ translate([0,2,0]) LeverSectTop();
+ LeverSectBot();
+ translate([0,kit_adj_shift]) LeverSectBot(true);
+ }
+}
+
+module LeverTop(){ ////toplevel
+ SomeLever(){
+ LeverSectTop();
+ StrapSectTop();
+ }
+}
+module LeverBot(){ ////toplevel
+ SomeLever(){
+ LeverSectBot();
+ StrapSectBot();
+ }
+}
+module LeverBotAdj(){ ////toplevel
+ SomeLever(){
+ LeverSectBot(true);
+ StrapSectBot(true);
+ }
+}
+
+module Kit(){ ////toplevel
+ translate([0,2,0]) LeverTop();
+ LeverBot();
+}
+
+module KitAdj(){ ////toplevel
+ translate([0,2,0]) LeverTop();
+ LeverBotAdj();
+}
+
+//LeverSectBot(true);
+//Demo();
+//LeverTop();
+//Test();
+//Kit();
+//KitAdj();