chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f91c26f
)
sealing-box: support $sealingbox_crude
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 13 Feb 2016 22:40:21 +0000
(22:40 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 13 Feb 2016 22:40:21 +0000
(22:40 +0000)
sealing-box.scad.m4
patch
|
blob
|
history
diff --git
a/sealing-box.scad.m4
b/sealing-box.scad.m4
index 31f7f65a1bd06c5fb905d96953f5e080d201d033..6f249386b9d94c2717f212b5c97057d184bf6b3d 100644
(file)
--- a/
sealing-box.scad.m4
+++ b/
sealing-box.scad.m4
@@
-28,6
+28,7
@@
// $sealingbox_cnrrad
$sealingbox_cnrrad = 10;
// $sealingbox_cnrrad
$sealingbox_cnrrad = 10;
+$sealingbox_crude = 1;
m4_define(`BoxLocals',`
xbox = $sealingbox_sz[0];
m4_define(`BoxLocals',`
xbox = $sealingbox_sz[0];
@@
-47,6
+48,8
@@
m4_define(`BoxLocals',`
tubesealrad = 2.0;
')
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',`
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);
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
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]);
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(){
}
module SealingBox_FloorProfile(){
@@
-131,7
+134,7
@@
module SealingBox_LidProfile(){
[0, -zbox]
]) {
translate(t)
[0, -zbox]
]) {
translate(t)
- circle(r= tubesealrad + innertube,
$fn=20
);
+ circle(r= tubesealrad + innertube,
BoxFn(20)
);
}
}
}
}
}
}