-'Code 39' => [
- # ISO/IEC 16388
- 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
- )
-],
-'Code 93' => [
- map {
- sprintf
- '<svg width="18" height="14" viewBox="-.5 0 9 7"><path d="M0,0 %s"/></svg>',
- join ' ',
- map {
- join('m1,-7', ('v7') x $_->[0]), # line per bar width
- (map { sprintf 'm%d,-7', $_ + 1 } $_->[1] || ()), # space forward
- }
- pairs split //
- }
- # bar and space widths (1-3)
- qw(
- 21111 21121 21131 22111 22121 23111 11211 11221 11231
- 12211 13211 11112 11122 11132 12112 13112 21211 21221
- 21112 21122 22112 22211 11212 11222 12212 12311
- )
-],
-'Code 128' => [
- map { $U ? tr/1-3-/❘❙❚ /r : sprintf
- '<svg width="20" height="14" viewBox="-.5 0 10 7"><path d="M0,0 %s"/></svg>',
- join ' ',
- map {
- $_ eq '' ? 'm2,-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) 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
- )
-],
+'Code 39' => [map { dispbar($_) } qw(
+ 2111121121 1121121121 2121121111 1111221121 2111221111 1121221111
+ 1111122121 2111122111 1121122111 1111222111 2111111221 1121111221
+ 2121111211 1111211221 2111211211 1121211211 1111112221 2111112211
+ 1121112211 1111212211 2211111121 1221111121 2221111111 1211211121
+ 2211211111 1221211111 1221112111 0 1211212111
+)], # ISO/IEC 16388
+'Code 93' => [map { dispbar($_) } qw(
+ 211113 211212 211311 221112 221211 231111 112113 112212 112311 122112
+ 132111 111123 111222 111321 121122 131121 212112 212211 211122 211221
+ 221121 222111 112122 112221 122121 123111 311211
+)],
+'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
+)],