// 1. include <sealing-box.scad>
// 2. assign() values to (xxx these should be $ variables)
// $sealingbox_wallth
-// $sealingbox_xbox (outer dimension)
-// $sealingbox_ybox (outer dimension)
-// $sealingbox_zbox (inner dimension xxx)
+// $sealingbox_sz[0] (outer dimension)
+// $sealingbox_sz[1] (outer dimension)
+// $sealingbox_sz[2] (inner dimension)
// $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
+// (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
// 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;
+$sealingbox_crude = false;
+$sealingbox_inner_slop = 0.2;
m4_define(`BoxLocals',`
+ xbox = $sealingbox_sz[0];
+ ybox = $sealingbox_sz[1];
+ zbox = $sealingbox_sz[2];
wall = $sealingbox_wallth;
floorth = $sealingbox_floorth;
ceilth = $sealingbox_ceilth;
- xbox = $sealingbox_xbox;
- ybox = $sealingbox_ybox;
- zbox = $sealingbox_zbox;
-
- ts_cidoff = (ts_cnrrad * (1-.7) + wall * .8) * [1,1];
+ cnrrad = $sealingbox_cnrrad;
- xbox_lin = xbox - ts_cnrrad*2;
- ybox_lin = ybox - ts_cnrrad*2;
+ xbox_lin = xbox - cnrrad*2;
+ ybox_lin = ybox - cnrrad*2;
')
+m4_define(`innertube', `(1.0 + 0.2)')
+m4_define(`lidoverlap', `1.5')
+m4_define(`lidoverhang', `6')
+m4_define(`tubesealrad', `2.0')
+
+m4_define(`BoxFn',`$fn= $sealingbox_crude ? ($2) : ($1)')
+
m4_dnl Box_Part($1=transl_x,$2=transl_y, $3=rot_z,$4=mirror_xy)
m4_dnl $5=kind, $6=kindargs, $7=profile(profileargsargs))
m4_define(`Box_Part',`
scale(500)
mirror([($1)<0, 0,0])
FArcSegment_mask($2);
- rotate_extrude(convexity=10, $fs=1, $fn=36)
+ rotate_extrude(convexity=10, $fs=1, BoxFn(36,8))
mirror([($1)<0, 0,0])
translate([+($1),0,0]){
$3
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 '
BoxLocals
z = zbox - innertube - tubesealrad;
translate([0, -0.1]) square([wall, z]);
- translate([tubesealrad, z]) circle(r=tubesealrad, $fn=20);
+ translate([tubesealrad, z]) circle(r=tubesealrad, BoxFn(20,6));
}
module SealingBox_FloorProfile(){
mirror([0,1]) square([wall, floorth]);
}
+function SealingBox_lidbigger() = lidoverlap + innertube;
+
module SealingBox_LidProfile(){
BoxLocals
rad = tubesealrad + innertube;
morex = wall;
+ inner_buttress_h = tubesealrad*1.5 + innertube + ceilth;
+
difference(){
- translate([-lidoverlap - innertube,
- zbox - lidoverhang - innertube])
- square([lidoverlap + innertube + wall,
+ translate([0, zbox + ceilth]) mirror([0,1]) {
+ translate([-SealingBox_lidbigger(),
+ 0])
+ square([lidoverlap + innertube + tubesealrad,
lidoverhang + innertube + ceilth]);
+ square([tubesealrad*2 + innertube + lidoverlap,
+ inner_buttress_h]);
+ }
hull(){
translate([tubesealrad,
zbox - innertube - tubesealrad])
for (t=[ [0,0],
- [morex*2, 0],
[0, -zbox]
]) {
translate(t)
- circle(r= tubesealrad + innertube, $fn=20);
+ circle(r= tubesealrad + innertube, BoxFn(20,6));
}
}
}
+ translate([tubesealrad*2 + $sealingbox_inner_slop,
+ zbox + ceilth]) {
+ mirror([0,1]) {
+ square([lidoverlap + innertube,
+ inner_buttress_h]);
+ }
+ }
}
module SealingBox_CeilProfile(){
}
')
-BoxUseShape(`TestSealBox',`BoxDoShapeRect')
+BoxUseShape(`SealingBox_Rect',`BoxDoShapeRect')