%!

%%BoundingBox: 25 25 290 900

%%Title: AMANDA Full Page Label

%%Creator: Amanda reporter

%%Pages: 1

%%EndComments

%%%%

%%%% This is a template file used by AMANDA to create 8.5 x 11 inch

%%%% PostScript dump logs for each dump.

%%%%

%

% The label is made up of 6 parts:  statistics, tape name, date,

% header, filesystem list, and the logo.  Geometrically, the label 

% looks like this:

%

%   +----+-------------------+

%   |        TAPE_NAME       |   <- section 'A'

%   | version  Location date |   <- section 'B'

%   +------------------------+

%   |statistics  |  message  |   <- section 'C' | 'F'

%   +----+--+--------+-------+

%   | f# hst fs lvl O-KB C-KB|   <- section 'D'

%   +-------+--------+-------+

%   |       |        |       |   <- section 'E'

%   |       |        |       |

%   v       v        v       v

%

% section 'A' font and position (text centered around this point)

%

/TitleFont		{ /Helvetica-Bold findfont 24 scalefont setfont } def

/TitlePos		{ 321 728 } def

% section 'B' font, position of the date (left justified) and the version

%

/DateFont		{ /Palatino-Bold findfont 11 scalefont setfont } def

/DatePos		{ 580 715 } def

/VersFont		{ /Palatino-Bold findfont 11 scalefont setfont } def

/VersPos		{ 43 715 } def

/LocFont		{ /Helvetica-Bold findfont 12 scalefont setfont } def

/LocPos			{ 321 715 } def

% section 'C' font, start position, and line separation

%

/StatFont 		{ /Courier findfont 9 scalefont setfont } def

/StatPos		{ 43 695 } def

/StatSep		{ 9 } def

% section 'D' font, and field positions (x coord is relative to each column)

%

/HeadingFont		{ /Palatino-Bold findfont 9 scalefont setfont } def

/HeadingFilePos		{ 43 644 } def

/HeadingHostPos		{ 73 644 } def

/HeadingFsPos		{ 198 644 } def

/HeadingLvlPos		{ 333 644 } def

/HeadingOSizePos1	{ 403 652 } def

/HeadingOSizePos	{ 403 644 } def

/HeadingCSizePos1	{ 483 652 } def

/HeadingCSizePos	{ 483 644 } def

% section 'E' font, and line separation

%

/HostFont		{ /Courier findfont 9 scalefont setfont } def

/HostSep		{ 10 } def

/HostBasePos		{ 38 630 } def

% section 'F' font, and line separation

%

/MessFont		{ /Courier findfont 9 scalefont setfont } def

/MessPos                { 215 702 } def

/MessSep		{ 9 } def

% the following rectangles separate the regions

%

/TitleBox		{ 590 750 38 710 } def

/StatBox		{ 590 710 38 660 } def

/HeadingBox		{ 590 660 38 640 } def

/HostBox		{ 590 640 38 0 } def

/CFline                 { 208 710 208 660 } def

%%%%

%%%% END OF USER-CONFIGURABLE OPTIONS

%%%%

%%%% the rest of this file contains the internal functions that are used

%%%% by genlabel to draw the label

%%%%

%

% Initial Setup... draws everything that is the same for all labels

%

% function to draw a box

%

/box {

	/ury exch def

	/urx exch def

	/lly exch def

	/llx exch def

	llx lly moveto

	llx ury lineto

	urx ury lineto

	urx lly lineto

	closepath

} def

% move the origin up a bit

%

0 20 translate

% draw all of the boxes

%

0 setgray 

2 setlinewidth					% thick lines

StatBox box stroke

TitleBox box stroke

HeadingBox box stroke

HostBox box stroke

CFline moveto lineto stroke

HeadingFont

HeadingFilePos  moveto

  (File #) show

HeadingHostPos moveto

  (Host) show

HeadingFsPos moveto

  (File System) show

HeadingLvlPos moveto

  (Level) stringwidth pop 2 div neg 0 rmoveto (Level) show

HeadingOSizePos1 moveto

  (Original) stringwidth pop 2 div neg 0 rmoveto (Original) show

HeadingOSizePos moveto

  (File Size (KB)) stringwidth pop 2 div neg 0 rmoveto (File Size (KB)) show

HeadingCSizePos1 moveto

  (Compressed) stringwidth pop 2 div neg 0 rmoveto (Compressed) show

HeadingCSizePos moveto

  (File Size (KB)) stringwidth pop 2 div neg 0 rmoveto (File Size (KB)) show

%

% the following functions draw strings for each kind of information

%

/CurrStatY StatPos exch pop def

/CurrMessY MessPos exch pop def

HostBasePos /CurrColumnY exch def

/CurrColumnX exch def

% DrawStat draws the string on the top of the stack in the next position

% in section 'A'

%

/DrawStat {

	StatFont

	StatPos pop CurrStatY moveto

	show

	/CurrStatY CurrStatY StatSep sub def

} def

% DrawTitle draws the string on the top of the stack in section 'B'

%

/DrawTitle {

	TitleFont

	TitlePos moveto

	dup stringwidth pop 2 div neg 0 rmoveto

	show

} def

% DrawDate draws the string on the top of the stack in section 'C'

%

/DrawDate {

	DateFont

	DatePos moveto

	dup stringwidth pop neg 0 rmoveto

	show

} def

% DrawLoc draws the string on the top of the stack in section 'C'

%

/DrawLoc {

	LocFont

	LocPos moveto

        dup stringwidth pop 2 div neg 0 rmoveto

	show

} def

% DrawVers draws the string on the top of the stack in section 'C'

%

/DrawVers {

	VersFont

	VersPos moveto

	show

} def

% DrawMess draws the string on the top of the stack in section 'F'

%

/DrawMess {

        MessFont

        MessPos pop CurrMessY moveto

        show

        /CurrMessY CurrMessY MessSep sub def

} def

% Fill in Location name and message

%

(Magic Software Development, Inc.) DrawLoc

(To restore:) DrawMess

(    position tape at the start of the file and run:) DrawMess

(        dd if=/dev/nrst0 bs=32k skip=1 | zcat | restore -if -) DrawMess

(    or run:) DrawMess

(        amrestore -p /dev/nrst0 <host> <filesystem> | restore -if -) DrawMess

% DrawHost expects six strings to be on the stack.  The strings are 

% Host Name, Partition Name, Dump Level, Tape File Number, and Output Size.

%

/DrawHost {

	HostFont

        .25 setlinewidth			% thin lines

	HeadingCSizePos pop CurrColumnY moveto

	-22 0 rmoveto show

	HeadingOSizePos pop CurrColumnY moveto

	-22 0 rmoveto show

	HeadingFilePos pop CurrColumnY moveto

	show

	HeadingLvlPos pop CurrColumnY moveto

	show

	HeadingFsPos pop CurrColumnY moveto

	show

	HeadingHostPos pop CurrColumnY moveto

	show

        38 CurrColumnY 2.5 sub moveto 590 CurrColumnY 2.5 sub lineto stroke

	/CurrColumnY CurrColumnY HostSep sub def

} def

%%%%

%%%% END OF TEMPLATE FILE

%%%%