projects
/
Printer-Zebra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
d09c10a
)
repeat should start with 0
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 5 Feb 2012 19:33:46 +0000
(20:33 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 5 Feb 2012 19:33:46 +0000
(20:33 +0100)
ZPL2pbm.pl
patch
|
blob
|
history
diff --git
a/ZPL2pbm.pl
b/ZPL2pbm.pl
index
8a7c2b7
..
796b721
100755
(executable)
--- a/
ZPL2pbm.pl
+++ b/
ZPL2pbm.pl
@@
-35,7
+35,7
@@
while( $line ) {
my $out;
# ZPL decompress
- my $repeat =
1
;
+ my $repeat =
0
;
foreach my $p ( 0 .. length($data) - 1 ) {
my $c = substr($data,$p,1);
if ( $c eq ',' ) {
@@
-50,7
+50,7
@@
while( $line ) {
$out .= "1" x $l;
} elsif ( $c eq ':' ) {
$out .= length($out) > $w ? substr($out,-$w*2) : "00" x $w;
- warn "# $p
:
\n";
+ warn "# $p
repeat last line
\n";
} elsif ( $c eq 'z' ) {
$repeat += 400;
} elsif ( $c ge 'g' && $c le 'y' ) {