commitid.scad.pl: break out chrmodname (nfc)

diff --git a/commitid.scad.pl b/commitid.scad.pl
index 973ca0aca7ec8018a1dd5d319a3ad0b56efa6a9e..ee9be882723147703c2054fff2e1151a51ea7c44 100755 (executable)
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -72,6 +72,12 @@ function Commitid__scale() =
   Commitid_pixelsz() / 0.1;
 END
 
+sub chrmodname ($) {
+    my ($chr) = @_;
+    my $chrx = sprintf '%#x', ord $chr;
+    return "Commitid__chr_$chrx";
+}
+
 sub parsefont () {
     my %cellmap;
     for (;;) {
@@ -121,8 +127,7 @@ sub parsefont () {
     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([";