// $sealingbox_ceilth
// $sealingbox_floorth
// $sealingbox_wallth
-// ts_cnrrad (outer radius of corners, leave at default normall)
-// xxx default should be in this file
// 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_wallth;
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 '