projects
/
Printer-Zebra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ccf3b5e
)
configure DARKNESS=0 with env variable
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 7 Feb 2012 13:38:36 +0000
(14:38 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 7 Feb 2012 13:38:36 +0000
(14:38 +0100)
pbm2ZPL.pl
patch
|
blob
|
history
diff --git
a/pbm2ZPL.pl
b/pbm2ZPL.pl
index
4b8f02c
..
2976496
100755
(executable)
--- a/
pbm2ZPL.pl
+++ b/
pbm2ZPL.pl
@@
-6,6
+6,7
@@
use Data::Dump qw(dump);
# DG compression is documented in ZPL II Programming Guide Volume Two, page 71-72
# DG compression is documented in ZPL II Programming Guide Volume Two, page 71-72
+my $darkness = $ENV{DARKNESS} || 0;
my $compress = $ENV{COMPRESS} || 1;
my $pnm_file = shift @ARGV || die "usage: $0 print.pnm > print.zpl\n";
my $compress = $ENV{COMPRESS} || 1;
my $pnm_file = shift @ARGV || die "usage: $0 print.pnm > print.zpl\n";
@@
-33,7
+34,7
@@
print '^PMN'; # print mirror Y/N
print '^LH0,0'; # label home x,y
print '^JMA'; # dots/mm A = 24/12/8/6 B = 12/6/4/3
print '^PR4,4'; # print,slew,backfeed speed in inch/s 2 .. 12 [default: 2,6,2]
print '^LH0,0'; # label home x,y
print '^JMA'; # dots/mm A = 24/12/8/6 B = 12/6/4/3
print '^PR4,4'; # print,slew,backfeed speed in inch/s 2 .. 12 [default: 2,6,2]
-print
'^MD13'
; # media darkness -30 .. 30 / XiIIIPlus 0..30/0.1 increments
+print
f '^MD%d', $darkness
; # media darkness -30 .. 30 / XiIIIPlus 0..30/0.1 increments
print '^JUS'; # configuration update F = factory default R = recall S = save
print '^LRN'; # label reverse Y/N
print '^CI0'; # change international font 0..255
print '^JUS'; # configuration update F = factory default R = recall S = save
print '^LRN'; # label reverse Y/N
print '^CI0'; # change international font 0..255