// A. Rectangular boxes
// 1. include <sealing-box.scad>
// 2. assign() values to (xxx these should be $ variables)
-// $sealingbox_wallthick
+// $sealingbox_wallth
// $sealingbox_xbox (outer dimension)
// $sealingbox_ybox (outer dimension)
-// $sealingbox_zbox (inner dimension xxx)
+// $sealingbox_zbox (inner dimension)
// $sealingbox_ceilth
// $sealingbox_floorth
-// $sealingbox_wallthick
-// ts_cnrrad (outer radius of corners, leave at default normall)
-// xxx default should be in this file
+// $sealingbox_wallth
// 3. use the modules
// SealingBox_RectBox
// SealingBox_RectLid
// 2. Define your own BoxDoShapeSomething like BoxDoShapeRect
// 3. Invoke BoxUseShape
// 4. Use the Box and Lid modules generated
+//
+// Other settings
+// $sealingbox_cnrrad
+
+$sealingbox_cnrrad = 10;
m4_define(`BoxLocals',`
- wall = $sealingbox_wallthick;
+ wall = $sealingbox_wallth;
floorth = $sealingbox_floorth;
ceilth = $sealingbox_ceilth;
xbox = $sealingbox_xbox;
ybox = $sealingbox_ybox;
zbox = $sealingbox_zbox;
+ cnrrad = $sealingbox_cnrrad;
- ts_cidoff = (ts_cnrrad * (1-.7) + wall * .8) * [1,1];
+ ts_cidoff = (cnrrad * (1-.7) + wall * .8) * [1,1];
- xbox_lin = xbox - ts_cnrrad*2;
- ybox_lin = ybox - ts_cnrrad*2;
+ xbox_lin = xbox - cnrrad*2;
+ ybox_lin = ybox - cnrrad*2;
')
m4_dnl Box_Part($1=transl_x,$2=transl_y, $3=rot_z,$4=mirror_xy)
m4_dnl BoxDoShapeRect(`profile(profileargs)');
m4_define(`BoxDoShapeRect',`
- Box_Part(0, ts_cnrrad, 0,0, Linear,`ybox_lin', `$1' )
- Box_Part(0, ybox-ts_cnrrad, 0,0, Arc,`-ts_cnrrad,90' , `$1' )
- Box_Part(ts_cnrrad, ybox, -90,0, Linear,`xbox_lin', `$1' )
- Box_Part(xbox-ts_cnrrad, ybox, -90,0, Arc,`-ts_cnrrad,90' , `$1' )
- Box_Part(xbox, ybox-ts_cnrrad, -180,0, Linear,`ybox_lin', `$1' )
- Box_Part(xbox, ts_cnrrad, -180,0, Arc,`-ts_cnrrad,90' , `$1' )
- Box_Part(xbox-ts_cnrrad, 0, -270,0, Linear,`xbox_lin', `$1' )
- Box_Part(ts_cnrrad, 0, -270,0, Arc,`-ts_cnrrad,90' , `$1' )
+ Box_Part(0, cnrrad, 0,0, Linear,`ybox_lin', `$1' )
+ Box_Part(0, ybox-cnrrad, 0,0, Arc,`-cnrrad,90' , `$1' )
+ Box_Part(cnrrad, ybox, -90,0, Linear,`xbox_lin', `$1' )
+ Box_Part(xbox-cnrrad, ybox, -90,0, Arc,`-cnrrad,90' , `$1' )
+ Box_Part(xbox, ybox-cnrrad, -180,0, Linear,`ybox_lin', `$1' )
+ Box_Part(xbox, cnrrad, -180,0, Arc,`-cnrrad,90' , `$1' )
+ Box_Part(xbox-cnrrad, 0, -270,0, Linear,`xbox_lin', `$1' )
+ Box_Part(cnrrad, 0, -270,0, Arc,`-cnrrad,90' , `$1' )
')
m4_dnl '