latin: code39 bar code row (unicode)

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).

diff --git a/latin.plp b/latin.plp
index e6ef7a2acd512d9624b5f7ba6728c41baee60863..c930dceaa8a899ebba5ba18adefeb27167c5f6bc 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>',
 );
 

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 70a479a2e1f68eca98839dbf627cb6b7b22e771b..eebe155793890177d21b3f7512e70bcab9a29a50 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -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">'