latin: minor code rewrite of long lines
[sheet.git] / writing-latn.inc.pl
index 59218023b9cce42bc44ffc27c36bab3daef85036..0ca90ae5a60b5fe51503a9e93c5e7fdbb501f259 100644 (file)
@@ -7,12 +7,16 @@ my $U = 0;  # optional unicode alternatives
 
 sub disptap {
        my $code = shift;
-       $code =~ m/\A(-?)(\d)(\d)/ or return $code;
-       return $1 . join(' ', '·' x $2, '·' x $3);
+       my ($prefix, @dots) = $code =~ m/\A(-?)(\d)(\d)/ or return $code;
+       if ($U) {
+               # unicode glyph alternative as DOMINO TILE HORIZONTAL-0a-0b
+               return $prefix . chr(0x1F031 + ($dots[0] * 7) + $dots[1]);
+       }
+       return $prefix . join(' ', map { '·' x $_ } @dots);
 }
 
 sub dispbar {
-       my $code = shift;
+       my $code = shift or return '';
 
        return join '', pairmap {
                ($a =~ tr/123/❘❙❚/r) . ($b =~ tr/321/  /dr)
@@ -38,7 +42,10 @@ sub dispbar {
 'Lowercase' => [qw{ a b c d e f g h i j k l m n o p q r s t u v w x y z }],
 'Sütterlin' => [qw{ a b c d e f g h i j k l m n o p q r ſ s t u v w x y z }],
 'Old Roman Cursive' => [
-       map { m/^(-?)(\w.*)/ ? $1.'<svg width="20" height="20" viewBox="0 0 12 20"><path d="'.$2.'"/></svg>' : $_ }
+       map {
+               !m/^(-?)(\w.+)/ ? $_ :
+               $1.'<svg width="20" height="20" viewBox="0 0 12 20"><path d="'.$2.'"/></svg>'
+       }
        "m2,4 c1,2 8,9 8,9 M2,15 6,9",
        "m2,4 c0,0 3,-2 4,1 1,2 0,9 3,9 1,-0 2,-1 2,-1 m-6,-2 c-5,4 -0,6 1,3",
        "m4,7 4,-2 m-4,4 c0,0 -2,7 3,6",
@@ -77,6 +84,41 @@ sub dispbar {
        806a9c    89Aa9c    800a9c945aaa
        0         965aa6
 }],
+'Unistrokes' => [
+       map { '<svg width="14" height="16" viewBox="-1 -1 8 10">'.$_.'</svg>' }
+       map {
+               sprintf('<circle cx="%s" cy="%s" r="1"/>', m/\AM(\d+),(\d+)(.?)/) . # start point
+               (!!$3 && qq(<path d="$_"/>))
+       }
+       'M3,8 V0',
+       'M0,0 6,4 0,8',
+       'M6,0 0,4 6,8',
+       'M6,0 0,4 6,8',
+       'M6,4 H0',
+       'M6,0 0,0 0,8',
+       'M0,8 6,8 6,0',
+       'M0,0 6,0 6,8',
+       'M3,0 V8',
+       'M6,0 6,8 0,8',
+       'M0,8 6,0',
+       'M0,0 0,8 6,8',
+       'M6,8 3,0 0,8',
+       'M0,8 3,0 6,8',
+       'M6,0 Q0,6 3,8 6,6 0,0',
+       'M0,0 Q4,8 6,4 4,0 0,8',
+       'M6,0 Q2,8 0,4 2,0 6,8',
+       'M0,0 6,8',
+       'M6,0 0,0 6,8 0,8',
+       'M0,4 H6',
+       'M6,0 3,8 0,0',
+       'M0,0 3,8 6,0',
+       'M0,0 0,8 6,0 6,8',
+       'M0,0 Q6,6 3,8 0,6 6,0',
+       'M6,0 0,8',
+       'M0,0 6,0 0,8 6,8',
+       'M3,4',
+],
+# 'Palm Graffiti' => [
 '<abbr title="International Telegraph Alphabet">ITA</abbr>2' => [
        map { tr/01/○●/r =~ s/..\K/ /r } qw(
        11000 10011 01110 10010 10000 10110 01011 00101 01100 11010 11110 01001 00111
@@ -274,39 +316,23 @@ sub dispbar {
                131001 231301 000202 023302 230003 032003 201003 101003
        )
 ],
-'Code 39' => [
-       # ISO/IEC 16388
-       map { !!$_ && tr/012/ ❘❙/r }
-       # bar widths (1-2) followed by space of width 1 (implied) or 2 (0)
-       qw(
-               211012 121012 221011 112012 212011 122011 111022 211021 121021 112021
-               211102 121102 221101 112102 212101 122101 111202 211201 121201 112201
-               201112 102112 202111 101212 201211 102211        102121 0 101221
-       )
-],
+'Code 39' => [map { dispbar($_) } qw(
+       2111121121 1121121121 2121121111 1111221121 2111221111 1121221111
+       1111122121 2111122111 1121122111 1111222111 2111111221 1121111221
+       2121111211 1111211221 2111211211 1121211211 1111112221 2111112211
+       1121112211 1111212211 2211111121 1221111121 2221111111 1211211121
+       2211211111 1221211111            1221112111 0 1211212111
+)], # ISO/IEC 16388
 'Code 93' => [map { dispbar($_) } qw(
        211113 211212 211311 221112 221211 231111 112113 112212 112311 122112
        132111 111123 111222 111321 121122 131121 212112 212211 211122 211221
-       221121 222111 112122 112221 122121 123111        311211
+       221121 222111 112122 112221 122121 123111        311211 0 111141
+)],
+'Code 128' => [map { dispbar($_) } qw(
+       111323 131123 131321 112313 132113 132311 211313 231113 231311 112133
+       112331 132131 113123 113321 133121 313121 211331 231131 213113 213311
+       213131 311123 311321 331121 312113 312311        212222 0 211412 2331112
 )],
-'Code 128' => [
-       map { $U ? tr/1-3-/❘❙❚ /r : sprintf
-               '<svg width="22" height="14" viewBox="-.5 0 11 7"><path d="M0,0 %s"/></svg>',
-               join ' ',
-               map {
-                       $_ eq '' ? 'm2,-7' :
-                       $_ eq '.' ? 'm3,-7' :
-                       $_ eq ':' ? 'm4,-7' :
-                       join 'm1,-7', ('v7') x $_
-               }
-               split /([.:])?/  # each bar [123] and space [ .:]
-       }
-       # bar widths (1-3) followed by space of width 1 (implied), 2 (.) or 3 (:)
-       qw(
-               11:2 1:12 1:1:2 12:1 1:21 1:2:1 21:1 2:11 2:1:1 123  12:3 1:23 132
-               13:2 1:32 332   21:3 2:13 231   23:1 233  312   31:2 3:12 321  32:1 22.2
-       )
-],
 '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>' => [
        map {
                my $len = length $_;
@@ -395,8 +421,10 @@ sub dispbar {
 'Chromacons' => [
        # Colour Alphabet by Paul Green-Armytage (2010)
        map {
-               sprintf !$_ ? '<span>%2$s</span>' : '<span style="background:#%s" title="%s">%s</span>',
-                       split(/:/), chr(8195);
+               sprintf('<span%s>%s</span>',
+                       !!$_ && sprintf(' style="background:#%s" title="%s"', split /:/),
+                       chr(8195), # em space
+               );
        }
        qw{
                F0A3FF:Amethyst 0075DC:Blue      993F00:Caramel  4C005C:Damson   191919:Ebony