git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
latin: rename Tap simplified to Short Tap
[sheet.git]
/
writing-latn.inc.pl
diff --git
a/writing-latn.inc.pl
b/writing-latn.inc.pl
index b2d436f72798ba86ac04d973902022220ad998ff..4186f183721cd95fbd66c12d6dbfe61d95dfd754 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(
@@
-86,17
+87,17
@@
my $U = 0; # optional unicode alternatives
11 12 13 14 15 21 22 23 > 24 25 31 32
33 34 35 41 42 43 44 45 51 52 53 54 55
})],
11 12 13 14 15 21 22 23 > 24 25 31 32
33 34 35 41 42 43 44 45 51 52 53 54 55
})],
-'
Tap simplified
' => [disptap(qw{
+'
Short Tap
' => [disptap(qw{
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
})],
-'Cards' => [
- map { chr(0x1F0A0 + $_), sprintf('<
i>%s</i
>', chr(0x1F0B0 + $_)) } # spades, hearts
+'Cards' => [
(
+ map { chr(0x1F0A0 + $_), sprintf('<
b>%s</b
>', chr(0x1F0B0 + $_)) } # spades, hearts
1 .. 11, 13, 14 # A 2-10 J Q K
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"/>
@@
-188,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' => [
@@
-247,10
+256,12
@@
my $U = 0; # optional unicode alternatives
],
'Code 39' => [
# ISO/IEC 16388
],
'Code 39' => [
# ISO/IEC 16388
- map { tr/012/ ❘❙/r } qw(
+ 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
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
1021
21
+ 201112 102112 202111 101212 201211 102211
102121 0 1012
21
)
],
'Code 93' => [
)
],
'Code 93' => [