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;
gentextmodule('FontDemo', @demo);
+flush STDOUT or die $!;
+close STDOUT or die $!;
+
__DATA__
# 00 20 22 02
# # # # # # # #/ #
\## ##/ \## \## \#/ #
++ *
+
+ r
+ # ###
+### #
+ # ###
+ L