+sub gen3dmodule ($@) {
+ my ($modb,@argl) = (@_);
+ p "module ${modb}(".(join ', ', @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 "}\n";
+}
+