[comp.sys.hp] Postscript to label HP-UX binder spine cards

bb@beach.cis.ufl.edu (Brian Bartholomew) (07/19/90)

What follows is some mediocre Postscript written to print high-
contrast, white-on-black labels bearing the notice "MASTER COPY",
to be used to denote the master copies of HP-UX documentation
which get locked up, and are not to leave the room.  It will print
on Avery label stock #5160.  Directions for installation are in
the Postscript.  The labels look really sharp on the manuals, and
for some graphics art reason that I cannot fathom, they look sharp
applied whole to the upper left corners of the booklets, too; the
edges of the labels were left white as an attempt to save toner
during debugging, and I never changed it.  Please send me any
substantive changed made by users back by email.  I am particularly
looking for a barcode label format, perhaps bearing the HP part
number and a 1-of-n code, to perhaps be placed under the plastic
window on the inside of the spine, in the binder.


"Any sufficiently advanced technology is indistinguishable from a rigged demo."
-------------------------------------------------------------------------------
Brian Bartholomew	UUCP:       ...gatech!uflorida!beach.cis.ufl.edu!bb
University of Florida	Internet:   bb@beach.cis.ufl.edu


----- Do the obvious cut thing here. -----

%!

%
%  mastercp.ps
%
%  Created 07/16/90 by Brian Bartholomew - bb@beach.cis.ufl.edu
%
%  Prints "Master Copy" labels onto Avery #5160 labels, useful for
%  denoting restricted copies of documentation, and specifically
%  tailored in size to fit on spine card of HP-UX manuals.  Take
%  spine card out of binder, center label horizontally, with top
%  edge of label lining up and just covering top of white HP logo,
%  flip card over, and trim off excess.  Rub down *softly* with
%  fingers on face; don't turn over and burnish as toner will
%  rub off.  Stick back into binder, and burnish at will.  Note
%  that font chosen matches, at least to my tin eye, to the font
%  used to print the titles in on the spine cards.  Looks sharp.
%
%  You can uncomment the do_outline line at the bottom, if you
%  wish to check the alignment of the Postscript with the labels
%  before you print.  Leave it out for the final run, as it will
%  make a mess on the label edges when it unavoidably doesn't
%  line up perfectly.
%
%  Don't criticize my Postscript code.  I know that it's a hack.
%  I wrote it as a hack.  This is called making the precision of
%  the solution match the precision of the problem.  Let it be.
%

/do_outline {
	gsave
	translate
	1.3 0 translate		% middle bottom of label
	0 0 moveto
	1.3 0 1.3 1 0.09 arcto
	4 {pop} repeat
	1.3 1 -1.3 1 0.09 arcto
	4 {pop} repeat
	-1.3 1 -1.3 0 0.09 arcto
	4 {pop} repeat
	-1.3 0 0 0 0.09 arcto
	4 {pop} repeat
	closepath
	stroke
	grestore
} bind def

/do_fill {
	gsave
	translate			% lower left corner of label
	0 setlinewidth
	0.3 -0.05 moveto		% +0.05" for a trap
	2.3 -0.05 lineto
	2.3 1.05 lineto
	0.3 1.05 lineto
	closepath
	fill
	0.05 setlinewidth
	1 setgray
	0.3 0.125 moveto
	2.3 0.125 lineto
	stroke
	0.3 0.875 moveto
	2.3 0.875 lineto
	stroke
	grestore
} bind def


/do_text {
	gsave
	translate
	1.3 0.5 translate		% center of label	
	1 setgray
%	/Palatino-Bold findfont 0.19 scalefont setfont
%	/Helvetica-Narrow findfont 0.25 scalefont setfont
	% Stretch it 32 percent vertically
	/Palatino-Bold findfont [0.19 0 0 0.25 0 0] makefont setfont
	(MASTER) dup stringwidth pop 2 div neg 0.045 moveto show
	(COPY) dup stringwidth pop 2 div neg -0.2 moveto show
	stroke
	grestore
} bind def


72 72 scale
0.2 0.5 translate
0 setgray
1 300 div setlinewidth

0 2.75 7.25 {
	/x exch def
	0 1 9 {
		/y exch def
 		% x y do_outline
		x y do_fill
		x y do_text
	} for
} for


showpage


--
"Any sufficiently advanced technology is indistinguishable from a rigged demo."
-------------------------------------------------------------------------------
Brian Bartholomew	UUCP:       ...gatech!uflorida!beach.cis.ufl.edu!bb
University of Florida	Internet:   bb@beach.cis.ufl.edu