From 726435d79927a66ec9eed5774c1d9e0618552daa Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 13 Feb 2016 22:40:21 +0000 Subject: [PATCH] sealing-box: support $sealingbox_crude --- sealing-box.scad.m4 | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/sealing-box.scad.m4 b/sealing-box.scad.m4 index 31f7f65..6f24938 100644 --- a/sealing-box.scad.m4 +++ b/sealing-box.scad.m4 @@ -28,6 +28,7 @@ // $sealingbox_cnrrad $sealingbox_cnrrad = 10; +$sealingbox_crude = 1; m4_define(`BoxLocals',` xbox = $sealingbox_sz[0]; @@ -47,6 +48,8 @@ m4_define(`BoxLocals',` tubesealrad = 2.0; ') +m4_define(`BoxFn',`$fn=($1) / $sealingbox_crude') + 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',` @@ -80,7 +83,7 @@ m4_define(`BoxPart_Extrude_Arc',` 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)) mirror([($1)<0, 0,0]) translate([+($1),0,0]){ $3 @@ -106,7 +109,7 @@ module SealingBox_WallProfile(){ 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)); } module SealingBox_FloorProfile(){ @@ -131,7 +134,7 @@ module SealingBox_LidProfile(){ [0, -zbox] ]) { translate(t) - circle(r= tubesealrad + innertube, $fn=20); + circle(r= tubesealrad + innertube, BoxFn(20)); } } } -- 2.30.2