latin: code39 bar code row (unicode)
authorMischa POSLAWSKY <perl@shiar.org>
Wed, 29 Jul 2015 11:55:06 +0000 (13:55 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 21 Sep 2015 22:20:08 +0000 (00:20 +0200)
Use U+200A hair space, U+2758 light bar, and U+2759 medium bar
to represent 3 widths of 6 columns (restricted to 2 wide and 3 narrow bars
(2 nCr 5 = 10) with 1 dividing space (4 positions) for 40 characters).

latin.plp
writing-latn.inc.pl

index e6ef7a2..c930dce 100644 (file)
--- 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',
+       code39   => 'Code 39', # ISO/IEC 16388
        rm4scc   => '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>',
 );
 
index 70a479a..eebe155 100644 (file)
@@ -148,6 +148,11 @@ sem => [
                24 25 26 27 34  35 47 56 57 36  67
        )
 ],
+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
+       201112 102112 202111 101212 201211 102211
+}],
 rm4scc => [
        map { sprintf
                '<svg width="20" height="20" viewBox="0 0 8 6">'