Commitid_pixelsz() / 0.1;
END
+sub chrmodname ($) {
+ my ($chr) = @_;
+ my $chrx = sprintf '%#x', ord $chr;
+ return "Commitid__chr_$chrx";
+}
+
sub parsefont () {
my %cellmap;
for (;;) {
my @demo;
my $democols = 6;
foreach my $chr (sort keys %chrpolys) {
- my $chrx = sprintf '%#x', ord $chr;
- my $mod = "Commitid__chr_$chrx";
+ my $mod = chrmodname $chr;
p "module $mod () {\n";
foreach my $poly (@{ $chrpolys{$chr} }) {
p " polygon([";