+ts_totx = 30;
+ts_toty = 25;
+ts_totz_inner = 8;
+
+ts_box_sz = [ts_totx, ts_toty, ts_totz_inner];
+
+$sealingbox_wallth = wallthick;
+$sealingbox_floorth = wallthick;
+$sealingbox_ceilth = wallthick;
+
+module TestSealBox(){ ////toplevel
+ $sealingbox_sz = ts_box_sz;
+
+ SealingBox_RectBox();
+ ts_cidoff = ($sealingbox_cnrrad * (1-.7) + wallthick * .8) * [1,1];
+ translate(ts_cidoff)
+ Commitid_BestCount([ts_totx,ts_toty] - 2*ts_cidoff);
+}
+
+module TestSealLid(){ ////toplevel
+ $sealingbox_sz = ts_box_sz;
+
+ difference(){
+ SealingBox_RectLid();
+
+ translate([ts_totx * .75, ts_toty/2, 0])
+ cylinder(h=100, r=5);
+
+ translate([-wallthick + $sealingbox_cnrrad*.5,
+ $sealingbox_cnrrad*.5 - wallthick,
+ ts_totz_inner + $sealingbox_ceilth])
+ Commitid_BestCount([ts_totx * .75 - 2.5 - ($sealingbox_cnrrad*.5),
+ ts_toty - ($sealingbox_cnrrad*.5 - wallthick)*2]);
+ }
+}
+
+module TestSealLidPrint(){ ////toplevel
+ rotate([180,0,0]) TestSealLid();
+}
+
+module ProfileDemos(){ ////toplevel
+ $sealingbox_sz = ts_box_sz;
+
+ SealingBox_WallProfile();
+ color("blue") SealingBox_FloorProfile();
+ SealingBox_LidProfile();
+ color("blue") SealingBox_CeilProfile();
+ color("red") translate([-5,0]) square([1,ts_totz_inner]);
+}
+
+//TestWall();
+//ProfileDemos();
+//TestSealBox();
+//TestSealLid();
+//FArcSegment_mask(350);