commitid.scad.pl: generate comment showing what the string is

diff --git a/commitid.scad.pl b/commitid.scad.pl
index a2793ea3db8712ba10eb9fe933f5e78a2076298c..422926e4f82cc832ce8ca913fe80e578e237fff8 100755 (executable)
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -89,6 +89,7 @@ sub gentextmodule ($@) {
     my ($form, @lines) = @_;
     my $modb = "Commitid_$form";
     p "module ${modb}_2D(){\n";
+    p " // |$_|\n" foreach @lines;
     p " scale(Commitid__scale()){\n";
     my $y = @lines;
     my $cols = 1;