From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 29 Jul 2015 11:25:49 +0000 (+0200)
Subject: latin: flag semaphore row (arrows)
X-Git-Tag: v1.8~33
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/3a93e44ec531ea7dcb5d7582d1f87e38d71932f8

latin: flag semaphore row (arrows)

Image representations widely available online, but manually encoded as
directions for schematic display using unicode arrow symbols with css to
overlap compatible hands.
---

diff --git a/latin.plp b/latin.plp
index 6be7f9f..f292f2e 100644
--- a/latin.plp
+++ b/latin.plp
@@ -50,6 +50,7 @@ my %scriptname = (
 	tap      => 'Tap code',
 	taps     => 'Tap simplified',
 	ics      => 'Maritime flags', # International Code of Signals
+	sem      => 'Flag semaphore',
 );
 
 my @table = do 'writing-latn.inc.pl';
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index b5c98c0..7d0fb06 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -134,4 +134,18 @@ ics => [
 		<path fill="$C{red}" d="M0,30 h31 l-15,-15"/>
 	},
 ],
+sem => [
+	map {
+		local $_ = $_;
+		s/[1-4]\K(?=[4-9])/ /;
+		tr/1-9/↙←↖↑↗→↘↓/;
+		s{(.)(?=.)}{<span style="position:absolute">$1</span>}
+			or s/^/<span>/ and $_ .= '</span>';
+		$_
+	}
+	qw(
+		1 2 3 4 5  6 7 21 31 46  14 15 16 17 23
+		24 25 26 27 34  35 47 56 57 36  67
+	)
+],
 );