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.

diff --git a/barcodes.pl b/barcodes.pl
new file mode 100644 (file)
index 0000000..74132ec
--- /dev/null
+++ b/barcodes.pl
@@ -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";