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:
e911a12
)
commitid.scad.pl: Add $size parameter to gen3dmodule (nfc as yet)
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 6 Feb 2016 19:44:23 +0000
(19:44 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 6 Feb 2016 19:44:23 +0000
(19:44 +0000)
commitid.scad.pl
patch
|
blob
|
history
diff --git
a/commitid.scad.pl
b/commitid.scad.pl
index c1d3a4c9ea36c31dc07f5241210419de990015bb..0eac05d60559242a18db26b5e5042e645d6219e9 100755
(executable)
--- a/
commitid.scad.pl
+++ b/
commitid.scad.pl
@@
-283,7
+283,9
@@
sub argl_formal (@) { join ', ', @_; }
sub argl_actual (@) { join ',', map { m/=/ ? $` : $_ } @_; }
sub gen3dmodule ($@) {
sub argl_actual (@) { join ',', map { m/=/ ? $` : $_ } @_; }
sub gen3dmodule ($@) {
- my ($modb,@argl) = (@_);
+ my ($modb,$size,@argl) = (@_);
+ $size ||= "${modb}_sz()";
+ p " // size = $size\n";
p "module ${modb}(".argl_formal(@argl)."){\n";
p " d=Commitid_depth();\n";
p " translate([0,0,-d]) linear_extrude(height=d*2)\n";
p "module ${modb}(".argl_formal(@argl)."){\n";
p " d=Commitid_depth();\n";
p " translate([0,0,-d]) linear_extrude(height=d*2)\n";
@@
-312,7
+314,7
@@
sub gentextmodule ($@) {
}
p " }\n";
p "}\n";
}
p " }\n";
p "}\n";
- gen3dmodule($modb);
+ gen3dmodule($modb
,''
);
p sprintf "function %s_sz() = Commitid__scale() * 0.1 * [ %d, %d ];\n",
$modb, 2 * ($cols * 4 - 1), 2 * (@lines * 6 - 1);
p sprintf "function %s_sz() = Commitid__scale() * 0.1 * [ %d, %d ];\n",
$modb, 2 * ($cols * 4 - 1), 2 * (@lines * 6 - 1);
@@
-590,7
+592,7
@@
END
p $_ foreach @do;
p "}\n";
p $_ foreach @do;
p "}\n";
- gen3dmodule "Commitid_$modname", @argl;
+ gen3dmodule "Commitid_$modname",
'max_sz',
@argl;
}
sub do_git_best () {
}
sub do_git_best () {