From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 22 Aug 2015 00:31:37 +0000 (+0200)
Subject: latin: prussian semaphore
X-Git-Tag: v1.8~25
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/600213e037653528a856e9a5d9a23a99b8c50724?hp=3f794dd1016611b2972115a97624b41e1dd56a6c

latin: prussian semaphore

<https://en.wikipedia.org?oldid=656504197>
---

diff --git a/latin.plp b/latin.plp
index a83bc0d..ffdb581 100644
--- a/latin.plp
+++ b/latin.plp
@@ -52,6 +52,7 @@ my %scriptname = (
 	ics      => 'Maritime flags', # International Code of Signals
 	sem      => 'Flag semaphore',
 	semc     => 'Chappe semaphore',
+	semp     => 'Prussian semaphore',
 	pigpen   => 'Pigpen',
 	wingdings=> 'Wingdings',
 	code39   => 'Code 39', # ISO/IEC 16388
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 2a20b76..43728c4 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -170,6 +170,26 @@ semc => [
 	  001 101 201 301 401 501 601 701 020
 	)
 ],
+semp => [
+	map { !$_ ? '-' : sprintf
+		join('',
+			'<svg width="20" height="20" viewBox="0 0 8 18">',
+			'<path stroke="black" d="M4,1 v18"/>',
+			(map {(
+				qq(<path stroke="black" d="M0 $_ h4" transform="rotate(%d 4 $_)"/>),
+				qq(<path stroke="black" d="M4 $_ h4" transform="rotate(-%d 4 $_)"/>),
+			)} 3, 7, 14),
+			'</svg>',
+		),
+		map { ($_ - 2) * 45 % 360 } split //, $_
+	}
+	# rotation state (0-3) for left and right bar of 3 rows
+	qw(
+		003000 000200 203300 000030 033030 000130 000330 032330 031330 031330
+		022020 130120 001320 233010 030210 022310 203001 233001
+		131001 231301 000202 023302 230003 032003 201003 101003
+	)
+],
 code39 => [map { tr/012/ ❘❙/r } qw{
 	211012 121012 221011 112012 212011 122011 111022 211021 121021 112021
 	211102 121102 221101 112102 212101 122101 111202 211201 121201 112201