latin: repeated signal in asl

[sheet.git] / writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index e40123609021abd10d8978b290cce44d697aac4a..43b77b341f541bf442e1c793bdd958ff14696e67 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -48,13 +48,14 @@ my $U = 0;  # optional unicode alternatives
 ],
 'Sutton <abbr title="American Sign Lanugage">ASL</abbr>' => [
        # American manual alphabet in Sutton (U+1D800+) notation
 ],
 'Sutton <abbr title="American Sign Lanugage">ASL</abbr>' => [
        # American manual alphabet in Sutton (U+1D800+) notation

-       map { pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
+       map { !!$_ && pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{

        8F7a9c    847a9c    86Da9c    801a9c    84Aa9c
        8CEa9c    8F0       815aa2    892a9c    892a9c9A2aac
        840a9c    8DCa9c    88Da9c
        819a9c    876a9c    840a9caA1 8F0a9caA1 81Aa9c
        903a9c    8FBa9c    815a9c    80Ea9c    887a9c
        806a9c    89Aa9c    800a9c945aaa
        8F7a9c    847a9c    86Da9c    801a9c    84Aa9c
        8CEa9c    8F0       815aa2    892a9c    892a9c9A2aac
        840a9c    8DCa9c    88Da9c
        819a9c    876a9c    840a9caA1 8F0a9caA1 81Aa9c
        903a9c    8FBa9c    815a9c    80Ea9c    887a9c
        806a9c    89Aa9c    800a9c945aaa

+       0         965aa6

 }],
 '<abbr title="International Telegraph Alphabet">ITA</abbr>2' => [
        map { tr/01/○●/r =~ s/..\K/ /r } qw(
 }],
 '<abbr title="International Telegraph Alphabet">ITA</abbr>2' => [
        map { tr/01/○●/r =~ s/..\K/ /r } qw(


@@ -90,14 +91,13 @@ my $U = 0;  # optional unicode alternatives
        11 12 13 14 21 22 23 20 > 31 -13 32 33
        30 41 42 -13 43 40 10 51 52 53 50 -31 -40
 })],
        11 12 13 14 21 22 23 20 > 31 -13 32 33
        30 41 42 -13 43 40 10 51 52 53 50 -31 -40
 })],

-'Half deck' => [
-       # A 2-10 J Q K
-       (map { chr( 0x1F0A0 + $_ ) } 1 .. 11, 13, 14),  # spades
-       (map { "<i>$_</i>" } map { chr( 0x1F0B0 + $_ ) } 1 .. 11, 13, 14),  # hearts
-],
+'Cards' => [(
+       map { chr(0x1F0A0 + $_), sprintf('<b>%s</b>', chr(0x1F0B0 + $_)) }  # spades, hearts
+       1 .. 11, 13, 14  # A 2-10 J Q K
+), '', chr(0x1F0CF), chr(0x1F0DF) ],

 'Maritime flags' => [
        # International Code of Signals, SVG fills
 'Maritime flags' => [
        # International Code of Signals, SVG fills

-       map { '<svg width="20" height="20" viewBox="0 0 30 30">'.s/\n?\t+//gr.'</svg>' }
+       map { !!$_ && '<svg width="20" height="20" viewBox="0 0 30 30">'.s/\n?\t+//gr.'</svg>' }

        split /\n\n/, qq{
                <path fill="$C{blue}" d="M0,0 h30 l-7.5,15 7.5,15 h-30 z"/>
                <path fill="white" d="M0,0 h15 v30 h-15"/>
        split /\n\n/, qq{
                <path fill="$C{blue}" d="M0,0 h30 l-7.5,15 7.5,15 h-30 z"/>
                <path fill="white" d="M0,0 h15 v30 h-15"/>


@@ -189,6 +189,14 @@ my $U = 0;  # optional unicode alternatives
                <path fill="$C{blue}" d="M30,0 v31 l-15,-15"/>
                <path fill="$C{yellow}" d="M0,0  h31 l-15,15"/>
                <path fill="$C{red}" d="M0,30 h31 l-15,-15"/>
                <path fill="$C{blue}" d="M30,0 v31 l-15,-15"/>
                <path fill="$C{yellow}" d="M0,0  h31 l-15,15"/>
                <path fill="$C{red}" d="M0,30 h31 l-15,-15"/>

+
+
+
+               <path fill="$C{blue}" d="M0,5 30,15 0,25"/>
+               <path fill="$C{yellow}" d="M0,9 20,15 0,21"/>
+
+               <path fill="$C{blue}" d="M0,5 30,15 0,25"/>
+               <path fill="white" d="M15,10 30,15 15,20"/>

        },
 ],
 'Flag semaphore' => [
        },
 ],
 'Flag semaphore' => [