X-Git-Url: http://git.rot13.org/?p=Printer-Zebra.git;a=blobdiff_plain;f=pbm2ZPL.pl;h=c570840b1661648441f524c1f65ec29afd56e170;hp=2b9e2145a9404704219fa3cec2680a0d1b3edce9;hb=8a149ec83ba4c04d06cf7458f68340e932d7c806;hpb=d8143369cc57c850cb0be9a5ad4dff3f5924e8df

diff --git a/pbm2ZPL.pl b/pbm2ZPL.pl
index 2b9e214..c570840 100755
--- a/pbm2ZPL.pl
+++ b/pbm2ZPL.pl
@@ -4,6 +4,10 @@ use strict;
 use autodie;
 use Data::Dump qw(dump);
 
+# DG compression is documented in ZPL II Programming Guide Volume Two, page 71-72
+
+my $compress = $ENV{COMPRESS} || 0;
+
 my $pnm_file = shift @ARGV || die "usage: $0 print.pnm";
 
 open(my $fh, '<', $pnm_file);
@@ -11,7 +15,7 @@ my $p4 = <$fh>; chomp $p4;
 die "no P4 header in [$p4] from $pnm_file" unless $p4 eq 'P4';
 my $size = <$fh>; chomp $size;
 my ( $w, $h ) = split(/ /,$size,$2);
-warn "WARNING: width of $pnm_file not 832!\n" if $w != 832;
+warn "WARNING: width of $pnm_file not 832 but $w !\n" if $w != 832;
 local $/ = undef;
 my $bitmap = <$fh>;
 
@@ -20,9 +24,21 @@ print "^XA~TA000~JSN^LT18^MNW^MTD^PON^PMN^LH0,0^JMA^PR4,4^MD13^JUS^LRN^CI0^XZ";
 
 printf "~DG000.GRF,%d,%d,\r\n", $w / 8 * $h, $w / 8;
 
+my $last_line = '';
+
 foreach my $y ( 0 .. $h - 1 ) {
 	my $line = substr( $bitmap, $y * ( $w / 8 ), $w / 8 );
-	print unpack('H*', $line);
+	if ( $line eq $last_line ) {
+		print ":" && warn "# $y repeat previous line\n";
+	} else {
+		my $hex = unpack('H*', $line);
+		if ( $compress ) {
+#			$last_line = $line;
+			$hex =~ s/0+$/,/  && warn "# $y fill 0 to right\n";
+			$hex =~ s/F+$/!/i && warn "# $y fill 1 to right\n";
+		}
+		print $hex;
+	}
 }
 
-print "^^XA\r\n^MMT\r\n^LL0328\r\n^PW831\r\n^LS0\r\n^FT0,352^XG000.GRF,1,1^FS\r\n^PQ1,0,1,Y^XZ\r\n^XA^ID000.GRF^FS^XZ";
+print "^XA\r\n^MMT\r\n^LL0328\r\n^PW831\r\n^LS0\r\n^FT0,352^XG000.GRF,1,1^FS\r\n^PQ1,0,1,Y^XZ\r\n^XA^ID000.GRF^FS^XZ";