+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);
+ }
+ }
+ FitTest_PairLink(true);
+ }
+}
+
+module FitTest_Entire(){ ////toplevel
+ p0 = [-40,-80];
+ szrear = [270,180];
+ szfront = [250,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]);
+ }
+ intersection(){
+ FitTest_RearCurve();
+ translate(concat(p0,[-20])) cube(concat(szrear,[40]));
+ }
+ FitTest_FrontCurve();
+}
+
+module FitTest_EntireDemo(){ ////toplevel
+ FitTest_Entire();
+ //%Tile00();
+}
+