From 29ddea2e5d8272fb8c8242359c878bd533ef72c0 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 11 Apr 2017 22:22:26 +0200
Subject: [PATCH] latin: reuse common function to display code128

---
 writing-latn.inc.pl | 23 +++++------------------
 1 file changed, 5 insertions(+), 18 deletions(-)

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 5921802..7b9b17f 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -289,24 +289,11 @@ sub dispbar {
 	132111 111123 111222 111321 121122 131121 212112 212211 211122 211221
 	221121 222111 112122 112221 122121 123111        311211
 )],
-'Code 128' => [
-	map { $U ? tr/1-3-/❘❙❚ /r : sprintf
-		'<svg width="22" height="14" viewBox="-.5 0 11 7"><path d="M0,0 %s"/></svg>',
-		join ' ',
-		map {
-			$_ eq '' ? 'm2,-7' :
-			$_ eq '.' ? 'm3,-7' :
-			$_ eq ':' ? 'm4,-7' :
-			join 'm1,-7', ('v7') x $_
-		}
-		split /([.:])?/  # each bar [123] and space [ .:]
-	}
-	# bar widths (1-3) followed by space of width 1 (implied), 2 (.) or 3 (:)
-	qw(
-		11:2 1:12 1:1:2 12:1 1:21 1:2:1 21:1 2:11 2:1:1 123  12:3 1:23 132
-		13:2 1:32 332   21:3 2:13 231   23:1 233  312   31:2 3:12 321  32:1 22.2
-	)
-],
+'Code 128' => [map { dispbar($_) } qw(
+	111323 131123 131321 112313 132113 132311 211313 231113 231311 112133
+	112331 132131 113123 113321 133121 313121 211331 231131 213113 213311
+	213131 311123 311321 331121 312113 312311        212222
+)],
 '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>' => [
 	map {
 		my $len = length $_;
-- 
2.30.0