285 lines
10 KiB
Perl
285 lines
10 KiB
Perl
#!/usr/bin/perl
|
|
|
|
|
|
|
|
####################
|
|
# Variable Section #
|
|
####################
|
|
|
|
# Copyright 2000-2002 Katipo Communications
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along with
|
|
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
|
|
# Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
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";
|