chiark / gitweb /
commitid.scad.pl: break out chrmodname (nfc)
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 5 Feb 2016 02:57:24 +0000 (02:57 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 5 Feb 2016 02:57:24 +0000 (02:57 +0000)
commitid.scad.pl

index 973ca0a..ee9be88 100755 (executable)
@@ -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([";