Script for printing barcode labels. Running this script sends raw postscript
to stdout, so redirect to a file for viewing with ghostview, or to a postscript capable printer for printing. There are some variables which can be edited at the top of the script.
This commit is contained in:
tonnesen
parent
a6dd1bcf44
commit
58e8ec498c
|
|
@ -0,0 +1,267 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
|
||||
|
||||
####################
|
||||
# Variable Section #
|
||||
####################
|
||||
my $pretext='T ';
|
||||
my $startnumber=1000;
|
||||
my $pages=2;
|
||||
my $libraryname='Copper Mountain Elementary';
|
||||
|
||||
# Shifts are given in millimeters. Positive numbers move up and to the right.
|
||||
# These variables shift the whole page to account for printer differences.
|
||||
my $shiftx=0;
|
||||
my $shifty=0;
|
||||
|
||||
####################
|
||||
|
||||
|
||||
|
||||
my $leftmargin=5;
|
||||
my $rightmargin=3;
|
||||
my $topmargin=18;
|
||||
my $botmargin=10;
|
||||
|
||||
|
||||
my $rightside=215;
|
||||
my $topside=280;
|
||||
|
||||
|
||||
my $barcodewidth=length("$pretext$startnumber")+2;
|
||||
|
||||
my $bcwidthfactor=8-$barcodewidth/2;
|
||||
print STDERR "$barcodewidth $bcwidthfactor\n";
|
||||
|
||||
my $width=$rightside-($leftmargin+$rightmargin);
|
||||
my $height=$topside-$topmargin-$botmargin;
|
||||
|
||||
print << "EOF";
|
||||
%!PS-Adobe-2.0
|
||||
%%Title: barcode.ps
|
||||
%%Creator: Willem van Schaik
|
||||
%%CreationDate: aug 1992
|
||||
%%Pages: 1
|
||||
%%DocumentFonts: Helvetica Code39
|
||||
%%BoundingBox: 0 0 595 842
|
||||
%%EndComments
|
||||
|
||||
/newfont 10 dict def
|
||||
newfont begin
|
||||
/FontType 3 def
|
||||
/FontMatrix [0.01 0 0 0.01 0 0] def
|
||||
/FontBBox [0 0 100 100] def
|
||||
|
||||
/Encoding 256 array def
|
||||
0 1 255 {Encoding exch /.notdef put} for
|
||||
Encoding 32 /barSpace put
|
||||
Encoding 36 /barDollar put
|
||||
Encoding 37 /barPercent put
|
||||
Encoding 42 /barAsterisk put
|
||||
Encoding 43 /barPlus put
|
||||
Encoding 45 /barHyphen put
|
||||
Encoding 46 /barPeriod put
|
||||
Encoding 47 /barSlash put
|
||||
Encoding 48 /bar0 put
|
||||
Encoding 49 /bar1 put
|
||||
Encoding 50 /bar2 put
|
||||
Encoding 51 /bar3 put
|
||||
Encoding 52 /bar4 put
|
||||
Encoding 53 /bar5 put
|
||||
Encoding 54 /bar6 put
|
||||
Encoding 55 /bar7 put
|
||||
Encoding 56 /bar8 put
|
||||
Encoding 57 /bar9 put
|
||||
Encoding 65 /barA put
|
||||
Encoding 66 /barB put
|
||||
Encoding 67 /barC put
|
||||
Encoding 68 /barD put
|
||||
Encoding 69 /barE put
|
||||
Encoding 70 /barF put
|
||||
Encoding 71 /barG put
|
||||
Encoding 72 /barH put
|
||||
Encoding 73 /barI put
|
||||
Encoding 74 /barJ put
|
||||
Encoding 75 /barK put
|
||||
Encoding 76 /barL put
|
||||
Encoding 77 /barM put
|
||||
Encoding 78 /barN put
|
||||
Encoding 79 /barO put
|
||||
Encoding 80 /barP put
|
||||
Encoding 81 /barQ put
|
||||
Encoding 82 /barR put
|
||||
Encoding 83 /barS put
|
||||
Encoding 84 /barT put
|
||||
Encoding 85 /barU put
|
||||
Encoding 86 /barV put
|
||||
Encoding 87 /barW put
|
||||
Encoding 88 /barX put
|
||||
Encoding 89 /barY put
|
||||
Encoding 90 /barZ put
|
||||
|
||||
/CharProcs 45 dict def
|
||||
CharProcs begin
|
||||
/.notdef {} def
|
||||
/barSpace {0 7 17 17 7 7 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barDollar {0 7 17 7 17 7 17 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barPercent {0 7 7 7 17 7 17 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barAsterisk {0 7 17 7 7 17 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barPlus {0 7 17 7 7 7 17 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barHyphen {0 7 17 7 7 7 7 17 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barPeriod {0 17 17 7 7 7 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barSlash {0 7 17 7 17 7 7 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/bar0 {0 7 7 7 17 17 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/bar1 {0 17 7 7 17 7 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/bar2 {0 7 7 17 17 7 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/bar3 {0 17 7 17 17 7 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/bar4 {0 7 7 7 17 17 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/bar5 {0 17 7 7 17 17 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/bar6 {0 7 7 17 17 17 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/bar7 {0 7 7 7 17 7 7 17 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/bar8 {0 17 7 7 17 7 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/bar9 {0 7 7 17 17 7 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barA {0 17 7 7 7 7 17 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barB {0 7 7 17 7 7 17 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barC {0 17 7 17 7 7 17 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barD {0 7 7 7 7 17 17 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barE {0 17 7 7 7 17 17 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barF {0 7 7 17 7 17 17 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barG {0 7 7 7 7 7 17 17 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barH {0 17 7 7 7 7 17 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barI {0 7 7 17 7 7 17 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barJ {0 7 7 7 7 17 17 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barK {0 17 7 7 7 7 7 7 17 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barL {0 7 7 17 7 7 7 7 17 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barM {0 17 7 17 7 7 7 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barN {0 7 7 7 7 17 7 7 17 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barO {0 17 7 7 7 17 7 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barP {0 7 7 17 7 17 7 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barQ {0 7 7 7 7 7 7 17 17 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barR {0 17 7 7 7 7 7 17 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barS {0 7 7 17 7 7 7 17 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barT {0 7 7 7 7 17 7 17 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barU {0 17 17 7 7 7 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barV {0 7 17 17 7 7 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barW {0 17 17 17 7 7 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barX {0 7 17 7 7 17 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barY {0 17 17 7 7 17 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
/barZ {0 7 17 17 7 17 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
|
||||
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
|
||||
end
|
||||
|
||||
/BuildChar
|
||||
{ 100 0 0 0 93 100 setcachedevice
|
||||
exch
|
||||
begin
|
||||
Encoding exch get
|
||||
CharProcs exch get
|
||||
end
|
||||
exec
|
||||
} def
|
||||
end
|
||||
|
||||
/Code39 newfont definefont pop
|
||||
|
||||
%%EndProlog
|
||||
|
||||
EOF
|
||||
|
||||
my $number=$startnumber;
|
||||
while ($page<$pages) {
|
||||
my $data='';
|
||||
for ($i=$leftmargin; $i<$rightside-$rightmargin; $i+=$width/4) {
|
||||
for ($j=$botmargin; $j<$topside-$topmargin-$botmargin; $j+=$height/20) {
|
||||
my $x=$i+$width/8;
|
||||
my $y=$j+$height/40;
|
||||
my $schooly=$y+5.8;
|
||||
my $labely=$y-2.2;
|
||||
my $lox=$x-2;
|
||||
my $hix=$x+2;
|
||||
my $loy=$y-2;
|
||||
my $hiy=$y+2;
|
||||
$data.=<<"EOF";
|
||||
$x $y moveto
|
||||
/Code39 findfont [$bcwidthfactor 0 0 5 0 0] makefont setfont
|
||||
(*$pretext$number*) dup stringwidth pop 2 div neg 0 rmoveto show
|
||||
/Helvetica findfont 1.7 scalefont setfont
|
||||
$x $schooly moveto
|
||||
($schoolname) dup stringwidth pop 2 div neg 0 rmoveto show
|
||||
/Helvetica findfont 2.3 scalefont setfont
|
||||
$x $labely moveto
|
||||
($pretext$number) dup stringwidth pop 2 div neg 0 rmoveto show
|
||||
|
||||
|
||||
EOF
|
||||
$number++;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
$page++;
|
||||
print << "EOF";
|
||||
%%Page: $page $page
|
||||
%%PagerFonts:
|
||||
|
||||
$shiftx $shifty translate
|
||||
72 25.4 div dup scale
|
||||
|
||||
/Code39 findfont [4 0 0 5 0 0] makefont setfont
|
||||
/Times-Roman findfont
|
||||
1 scalefont
|
||||
setfont
|
||||
$data
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
showpage
|
||||
|
||||
|
||||
EOF
|
||||
}
|
||||
print "%%Trailer\n";
|
||||
Loading…
Reference in New Issue