sealing-box: document origin

[reprap-play.git] / sealing-box.scad.m4

diff --git a/sealing-box.scad.m4 b/sealing-box.scad.m4
index efc253a1077d4a74820ba7577a8767e244b63cf4..2c06917da9d21e1cc29c9b28d547ae2725e6bfa6 100644 (file)
--- a/sealing-box.scad.m4
+++ b/sealing-box.scad.m4
@@ -15,6 +15,8 @@
 //      3. use the modules
 //           SealingBox_RectBox
 //           SealingBox_RectLid
+//           (origin is notional outside corner, but at level of
+//            inside of base; box extends to positive x,y,z)
 //
 // B. Complicated shapes, but harder work
 //      1. Be a .m4 file and m4_include sealing-box.scad.m4
@@ -28,18 +30,21 @@
 $sealingbox_cnrrad = 10;
 
 m4_define(`BoxLocals',`
-  wall = $sealingbox_wallth;
-  floorth = $sealingbox_floorth;
-  ceilth = $sealingbox_ceilth;
   xbox = $sealingbox_xbox;
   ybox = $sealingbox_ybox;
   zbox = $sealingbox_zbox;
+  wall = $sealingbox_wallth;
+  floorth = $sealingbox_floorth;
+  ceilth = $sealingbox_ceilth;
   cnrrad = $sealingbox_cnrrad;
 
-  ts_cidoff = (cnrrad * (1-.7) + wall * .8) * [1,1];
-
   xbox_lin = xbox - cnrrad*2;
   ybox_lin = ybox - cnrrad*2;
+
+  innertube = 1.0 + 0.2;
+  lidoverlap = 1.5;
+  lidoverhang = 6;
+  tubesealrad = 2.0;
 ')
 
 m4_dnl Box_Part($1=transl_x,$2=transl_y, $3=rot_z,$4=mirror_xy)
@@ -154,4 +159,4 @@ m4_define(`BoxUseShape',`
   }
 ')
 
-BoxUseShape(`TestSealBox',`BoxDoShapeRect')
+BoxUseShape(`SealingBox_Rect',`BoxDoShapeRect')