From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 29 Jul 2015 11:45:28 +0000 (+0200)
Subject: latin: rm4scc barcode row
X-Git-Tag: v1.8~32
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/4222fe2b6b5f358e639c9f86e01ac048bc04d824

latin: rm4scc barcode row

Inline SVG generated from 4 digits describing forms (1|2 for line up/down:
unextended, ascended, descended, full height) of 4 bars as described for
example on <https://en.wikipedia.org?oldid=670826999>.

This encoding developed by Royal Mail (identical to PostNL KIX-code)
restricts the 4⁴ combinations to exactly 2 ascenders and 2 descenders each
for 2⋅(4 nCr 2) = 36 characters.
---

diff --git a/latin.plp b/latin.plp
index f292f2e..e6ef7a2 100644
--- a/latin.plp
+++ b/latin.plp
@@ -51,6 +51,7 @@ my %scriptname = (
 	taps     => 'Tap simplified',
 	ics      => 'Maritime flags', # International Code of Signals
 	sem      => 'Flag semaphore',
+	rm4scc   => '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>',
 );
 
 my @table = do 'writing-latn.inc.pl';
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 7d0fb06..70a479a 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -148,4 +148,23 @@ sem => [
 		24 25 26 27 34  35 47 56 57 36  67
 	)
 ],
+rm4scc => [
+	map { sprintf
+		'<svg width="20" height="20" viewBox="0 0 8 6">'
+		. '<path stroke="black" d="M1%s"/></svg>',
+		join ' m2',
+		map { sprintf ',%dv%dm0,-%d',
+			($_ & 1 ? 0 : 2),  2 + ($_ & 2) + ($_ & 1) * 2,
+			($_ & 1 ? 0 : 2) + 2 + ($_ & 2) + ($_ & 1) * 2,
+		}
+		split //, $_
+	}
+	qw(
+		                    2121 2301
+		0132 0312 0330 2112 2130 2310
+		1023 1203 1221 3003 3021 3201
+		1032 1212 1230 3012 3030 3210
+		1122 1302 1320 3102 3120 3300
+	)
+],
 );