// A. Rectangular boxes
// 1. include <sealing-box.scad>
// 2. assign() values to (xxx these should be $ variables)
-// $sealingbox_wallthick
-// ts_xbox (outer dimensions)
-// ts_ybox (outer dimension)
-// ts_zbox (??? xxx)
-// ts_cnrrad (outer radius of corners, leave at default normall)
-// xxx default should be in this file
+// $sealingbox_wallth
+// $sealingbox_xbox (outer dimension)
+// $sealingbox_ybox (outer dimension)
+// $sealingbox_zbox (inner dimension)
+// $sealingbox_ceilth
+// $sealingbox_floorth
+// $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
-m4_define(`BoxLocals',`
- wall = $sealingbox_wallthick;
-
- ts_cidoff = (ts_cnrrad * (1-.7) + wall * .8) * [1,1];
+$sealingbox_cnrrad = 10;
- ts_xbox_lin = ts_xbox - ts_cnrrad*2;
- ts_ybox_lin = ts_ybox - ts_cnrrad*2;
+m4_define(`BoxLocals',`
+ xbox = $sealingbox_xbox;
+ ybox = $sealingbox_ybox;
+ zbox = $sealingbox_zbox;
+ wall = $sealingbox_wallth;
+ floorth = $sealingbox_floorth;
+ ceilth = $sealingbox_ceilth;
+ cnrrad = $sealingbox_cnrrad;
+
+ 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)
m4_dnl BoxDoShapeRect(`profile(profileargs)');
m4_define(`BoxDoShapeRect',`
- Box_Part(0, ts_cnrrad, 0,0, Linear,`ts_ybox_lin', `$1' )
- Box_Part(0, ts_ybox-ts_cnrrad, 0,0, Arc,`-ts_cnrrad,90' , `$1' )
- Box_Part(ts_cnrrad, ts_ybox, -90,0, Linear,`ts_xbox_lin', `$1' )
- Box_Part(ts_xbox-ts_cnrrad, ts_ybox, -90,0, Arc,`-ts_cnrrad,90' , `$1' )
- Box_Part(ts_xbox, ts_ybox-ts_cnrrad, -180,0, Linear,`ts_ybox_lin', `$1' )
- Box_Part(ts_xbox, ts_cnrrad, -180,0, Arc,`-ts_cnrrad,90' , `$1' )
- Box_Part(ts_xbox-ts_cnrrad, 0, -270,0, Linear,`ts_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 '
module SealingBox_WallProfile(){
BoxLocals
- z = ts_zbox - innertube - tubesealrad;
+ z = zbox - innertube - tubesealrad;
translate([0, -0.1]) square([wall, z]);
translate([tubesealrad, z]) circle(r=tubesealrad, $fn=20);
}
morex = wall;
difference(){
translate([-lidoverlap - innertube,
- ts_zbox - lidoverhang - innertube])
+ zbox - lidoverhang - innertube])
square([lidoverlap + innertube + wall,
lidoverhang + innertube + ceilth]);
hull(){
translate([tubesealrad,
- ts_zbox - innertube - tubesealrad])
+ zbox - innertube - tubesealrad])
for (t=[ [0,0],
[morex*2, 0],
- [0, -ts_zbox]
+ [0, -zbox]
]) {
translate(t)
circle(r= tubesealrad + innertube, $fn=20);
module SealingBox_CeilProfile(){
BoxLocals
- translate([0, ts_zbox])
+ translate([0, zbox])
square([wall*2, ceilth]);
}
}
')
-BoxUseShape(`TestSealBox',`BoxDoShapeRect')
+BoxUseShape(`SealingBox_Rect',`BoxDoShapeRect')