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 (from parent 1:
861c306
)
sealing-box: Rename some internal things (nfc)
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 13 Feb 2016 20:46:08 +0000
(20:46 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 13 Feb 2016 20:46:08 +0000
(20:46 +0000)
sealing-box.scad.m4
patch
|
blob
|
history
diff --git
a/sealing-box.scad.m4
b/sealing-box.scad.m4
index 21d54ec9873d36887b98fc5f731b6ec3e7170d38..2cb20f84ccfe0c6a3b1e801403b023f233975674 100644
(file)
--- a/
sealing-box.scad.m4
+++ b/
sealing-box.scad.m4
@@
-64,8
+64,8
@@
ts_cidoff = (ts_cnrrad * (1-.7) + wallthick * .8) * [1,1];
ts_xbox_lin = ts_xbox - ts_cnrrad*2;
ts_ybox_lin = ts_ybox - ts_cnrrad*2;
ts_xbox_lin = ts_xbox - ts_cnrrad*2;
ts_ybox_lin = ts_ybox - ts_cnrrad*2;
-m4_dnl
TestSealDoBoxShape
(`profile(profileargs)');
-m4_define(`
TestSealDoBoxShape
',`
+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(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' )
@@
-78,17
+78,17
@@
m4_define(`TestSealDoBoxShape',`
m4_dnl '
m4_dnl '
-module WallProfile(){
+module
SealingBox_
WallProfile(){
z = ts_zbox - innertube - tubesealrad;
translate([0, -0.1]) square([wallthick, z]);
translate([tubesealrad, z]) circle(r=tubesealrad, $fn=20);
}
z = ts_zbox - innertube - tubesealrad;
translate([0, -0.1]) square([wallthick, z]);
translate([tubesealrad, z]) circle(r=tubesealrad, $fn=20);
}
-module FloorProfile(){
+module
SealingBox_
FloorProfile(){
mirror([0,1]) square([wallthick, floorth]);
}
mirror([0,1]) square([wallthick, floorth]);
}
-module LidProfile(){
+module
SealingBox_
LidProfile(){
rad = tubesealrad + innertube;
morex = wallthick;
difference(){
rad = tubesealrad + innertube;
morex = wallthick;
difference(){
@@
-110,17
+110,17
@@
module LidProfile(){
}
}
}
}
-module CeilProfile(){
+module
SealingBox_
CeilProfile(){
translate([0, ts_zbox])
square([wallthick*2, ceilth]);
}
module TestSealBoxBox(){
translate([0, ts_zbox])
square([wallthick*2, ceilth]);
}
module TestSealBoxBox(){
-
TestSealDoBoxShape(
WallProfile(););
- hull(){
TestSealDoBoxShape(
FloorProfile();); }
+
BoxDoShapeRect(SealingBox_
WallProfile(););
+ hull(){
BoxDoShapeRect(SealingBox_
FloorProfile();); }
}
module TestSealBoxLid(){ ////toplevel
}
module TestSealBoxLid(){ ////toplevel
-
TestSealDoBoxShape(
LidProfile(););
- hull(){
TestSealDoBoxShape(
CeilProfile();); }
+
BoxDoShapeRect(SealingBox_
LidProfile(););
+ hull(){
BoxDoShapeRect(SealingBox_
CeilProfile();); }
}
}