From: Mischa POSLAWSKY Date: Wed, 29 Jul 2015 10:58:10 +0000 (+0200) Subject: latin: international maritime signal flags X-Git-Tag: v1.8~37 X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/0dd2b5ce328daf14b51f94c951acef2ca40a5fd4 latin: international maritime signal flags SVG adapted from Wikipedia . --- diff --git a/Shiar_Sheet/FormatChar.pm b/Shiar_Sheet/FormatChar.pm index 834b71b..78e4a21 100644 --- a/Shiar_Sheet/FormatChar.pm +++ b/Shiar_Sheet/FormatChar.pm @@ -231,6 +231,10 @@ sub table { $rows[-1] .= ''; next; } + elsif ($cell =~ m/^'.$cell; + next; + } $rows[-1] .= $self->cell($cell, $colspan > 1 && qq{colspan="$colspan"}, diff --git a/latin.plp b/latin.plp index eb648c3..1208b2d 100644 --- a/latin.plp +++ b/latin.plp @@ -46,6 +46,7 @@ my %scriptname = ( brai => 'Braille', morse => 'Morse', tap => 'Tap code', + ics => 'Maritime flags', # International Code of Signals ); my @table = do 'writing-latn.inc.pl'; diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl index 2885e98..3db23c4 100644 --- a/writing-latn.inc.pl +++ b/writing-latn.inc.pl @@ -10,6 +10,8 @@ sub disptap { } @_ } +my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20); + ( latn => [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 }], latfsuet => [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 }], @@ -35,4 +37,100 @@ tap => [disptap(qw{ 11 12 13 14 21 22 23 24 31 -31 -13 32 33 34 41 42 -13 43 44 15 51 52 53 -25 -31 54 })], +ics => [ + map { ''.$_.'' } + split /\n\n/, qq{ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + }, +], );