+module FitTest_RearCurve(){ ////toplevel
+ difference(){
+ FitTest_general([100,0], [180,100]);
+ FitTest_PairLink(true);
+ TestStrapSlots();
+ }
+}
+
+module FitTest_FrontCurve(){ ////toplevel
+ p0 = [100,-80];
+ sz = [180,80];
+ difference(){
+ intersection() {
+ Tile00();
+ translate([0,0,-8]) linear_extrude(height=18) {
+ translate(p0) square(sz);
+ translate(teststrapslots_at[3])
+ scale(2* [ teststrap_peg[0], teststrap[1] ])
+ circle(r=1, $fn=20);
+ }
+ }
+ FitTest_PairLink(true);
+ TestStrapSlots();
+ }
+}
+
+module FitTest_Entire(){ ////toplevel
+ p0 = [-33,-80];
+ szrear = [263,180];
+ szfront = [243,szrear[1]];
+ difference(){
+ FitTest_general(p0, szrear, dobrace=true, bracexx=0);
+ FitTest_PairLink(true);
+ translate(concat(p0,[0]) + [szfront[0],-10,-40])
+ cube([100, -p0[1], 80]);
+ TestStrapSlots();
+ }
+ intersection(){
+ FitTest_RearCurve();
+ translate(concat(p0,[-20])) cube(concat(szrear,[40]));
+ }
+ FitTest_FrontCurve();
+}
+
+module FitTest_EntireDemo(){ ////toplevel
+ FitTest_Entire();
+ //%Tile00();
+}
+
+module FitTest_EndEnd(){ ////toplevel
+ p0 = [-32,-32];
+ sz = [188,113];
+ sz2 = [168,100];
+ difference(){
+ FitTest_general(p0, sz);
+ translate([ p0[0] -1, p0[1]+sz2[1], -10])
+ cube([ sz2[0] +1, 50, 20 ]);
+ }
+}
+