+sub p { print @_ or die $!; }
+
+p <<'END';
+// *** AUTOGENERATED - DO NOT EDIT *** //
+function Commitid_pixelsz() =
+ ($Commitid_pixelsz ? $Commitid_pixelsz : 0.4) *
+ ($Commitid_scale ? $Commitid_scale : 1.0);
+function Commitid_depth() =
+ ($Commitid_depth ? $Commitid_depth : Commitid_pixelsz()) *
+ ($Commitid_depth_scale ? $Commitid_depth_scale : 1.0);
+function Commitid__scale() =
+ Commitid_pixelsz() / 0.1;
+END
+
+sub chrmodname ($) {
+ my ($chr) = @_;
+ my $chrx = sprintf '%#x', ord $chr;
+ return "Commitid__chr_$chrx";
+}
+
+sub gentextmodule ($@) {
+ my ($modulename, @lines) = @_;
+ p "module $modulename(){\n";
+ p " scale(Commitid__scale()){\n";
+ my $y = @lines;
+ foreach my $line (@lines) {
+ $y--;
+ my $x = 0;
+ foreach my $chr (split //, $line) {
+ next if $chr !~ m/\S/;
+ p sprintf " translate([%d * 0.8, %d * 1.2]) %s();\n",
+ $x, $y, chrmodname $chr;
+ $x++;
+ }
+ }
+ p " }\n";
+ p "}\n";
+}
+
+our @demo;
+