$gtm_demo_i++;
}
+sub argl_formal (@) { join ', ', @_; }
+sub argl_actual (@) { join ',', map { m/=/ ? $` : $_ } @_; }
+
sub gen3dmodule ($@) {
my ($modb,@argl) = (@_);
- p "module ${modb}(".(join ', ', @argl)."){\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 " ${modb}_2D(".(join ',', map { m/=/ ? $` : $_ } @argl).");\n";
+ p " ${modb}_2D(".argl_actual(@argl).");\n";
p "}\n";
}
my ($modname, $formre) = @_;
my $fullmodname = "Commitid_${modname}_2D";
my @argl = qw(max_sz margin=Commitid_pixelsz());
- p "module $fullmodname(".(join ', ', @argl).") {\n";
+ p "module $fullmodname(".argl_formal(@argl).") {\n";
my $mbs = '$Commitid_max_best_scale';
p " sc_max = $mbs ? $mbs : 2;\n";
p " sz = max_sz - 2*[margin,margin];\n";