Imported Upstream version 2.4.4p3

[debian/amanda] / example / EXB-8500.ps

%!
%%BoundingBox: 25 25 290 900
%%Title: AMANDA ExaLabel
%%Creator: AMANDA genlabel program
%%Pages: 1
%%EndComments

%%%%
%%%% This is a template file used by AMANDA to create PostScript tape
%%%% labels for each dump.  This file is set up for Exabyte 8mm tapes,
%%%% but you can edit it to work with anything.
%%%%

%
% The label is made up of 6 parts:  statistics, tape name, date,
% header, filesystem list, and the logo.  Geometrically, the label 
% looks like this:
%
%   +------------------------+
%   |statistics              |   <- section 'A'
%   +----+-------------------+
%   |logo|     TAPE_NAME     |   <- section 'B'  (logo) <- section 'F'
%   |    | version      date |   <- section 'C'
%   +----+--+--------+-------+
%   | h fs l| h fs l | h fs l|   <- section 'D'
%   +-------+--------+-------+
%   |       |        |       |   <- section 'E'
%   |       |        |       |
%   v       v        v       v
%
% Sections D and E, which hold the bulk of the information are 
% cut into columns.
%

% section 'A' font, start position, and line separation
%
/StatFont               { /Courier findfont 9 scalefont setfont } def
/StatPos                { 40 740 } def
/StatSep                { 8 } def

% section 'B' font and position (text centered around this point)
%
/TitleFont              { /Helvetica-Bold findfont 24 scalefont setfont } def
/TitlePos               { 180 685 } def

% section 'C' font, position of the date (left justified) and the version
%
/DateFont               { /Palatino-Bold findfont 10 scalefont setfont } def
/DatePos                { 280 670 } def
/VersFont               { /Palatino-Bold findfont 10 scalefont setfont } def
/VersPos                { 80 670 } def

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

/HeadingFont            { /Palatino-Bold findfont 8 scalefont setfont } def
/HeadingLvlPos          { 126 650 } def         % Heading is right justified
/HeadingHostPos         { 5 650 } def
/HeadingFsPos           { 45 650 } def

% section 'E' font, and line separation
%
/HostFont               { /Courier findfont 6 scalefont setfont } def
/HostSep                { 6 } def


% the following rectangles separate the regions
%
/StatBox                { 290 750 25 710 } def
/TitleBox               { 290 710 25 665 } def
/LogoBox                { 70 710 25 665 } def
/HeadingBox             { 290 665 25 645 } def
/HostBox                { 290 645 25 0 } def


% number of columns for section 'E,' column width, position of first 
% entry in first column, y coordinate of top and bottom of dividing lines
%
/NumColumns             { 2 } def
/ColumnWidth            { 132 } def
/ColumnBasePos          { 25 633 } def
/TopColDivLine          { 665 } def
/BotColDivLine          { 0 } 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
LogoBox box stroke
HeadingBox box stroke
HostBox box stroke


% draw the column dividers
%
0.5 setlinewidth                                % thin lines
/i 1 def
{
        NumColumns i sub 0 le { exit } if       % no lines if this last col.
        /xoff ColumnBasePos pop                 % get x base position
           i ColumnWidth mul add def            % offset for this column
        xoff TopColDivLine moveto 
        xoff BotColDivLine lineto stroke        
        /i i 1 add def
} loop


% draw the heading names
%
/i 0 def
HeadingFont
{
        NumColumns i sub 0 le { exit } if
        /xoff ColumnBasePos pop
          i ColumnWidth mul add def
        HeadingLvlPos exch xoff add exch moveto
          (Lv) stringwidth pop neg 0 rmoveto (Lv) show
        HeadingHostPos exch xoff add exch moveto
          (Host) show
        HeadingFsPos exch xoff add exch moveto
          (Fs) show
        /i i 1 add def
} loop


%
% the following functions draw strings for each kind of information
%

/CurrStatY StatPos exch pop def
ColumnBasePos /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


% DrawVers draws the string on the top of the stack in section 'C'
%
/DrawVers {
        VersFont
        VersPos moveto
        show
} def


% DrawHost expects five strings to be on the stack.  The strings are 
% Host Name, Partition Name, Dump Level, Tape File Number, and Output Size.
% Right now, the Output Size is discarded.
%
/DrawHost {
        HostFont
        pop pop pop                     % discard sizes and fileno
        CurrColumnX HeadingLvlPos pop add CurrColumnY moveto
        show
        CurrColumnX HeadingFsPos pop add CurrColumnY moveto
        show
        CurrColumnX HeadingHostPos pop add CurrColumnY moveto
        show
        /CurrColumnY CurrColumnY HostSep sub def
        CurrColumnY BotColDivLine lt {
                /CurrColumnY ColumnBasePos exch pop def
                /CurrColumnX CurrColumnX ColumnWidth add def
        } if
} def


%%%%
%%%% END OF TEMPLATE FILE
%%%%