chiark / gitweb /
commitid.scad.pl: Provide glyphs for + and =/= (latter encoded as *)
[reprap-play.git] / commitid.scad.pl
index a2793ea3db8712ba10eb9fe933f5e78a2076298c..863e04df260bf780ced52115f9b350d764c4a0df 100755 (executable)
@@ -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;
@@ -189,6 +190,9 @@ parsefont();
 
 gentextmodule('FontDemo', @demo);
 
+flush STDOUT or die $!;
+close STDOUT or die $!;
+
 __DATA__
 
 # 00 20 22 02
@@ -215,3 +219,10 @@ a b c d e f
 # # # # #   # # #/  #
 \## ##/ \## \## \#/ #
 
++ *
+
+      r
+ #  ###
+###  #
+ #  ###
+    L