"Fossies" - the Fresh Open Source Software archive

Member "mpdist-3.7.1/prologue/mp.pro.l.old" of archive mpdist-3.7.1.tar.gz:

%!PS-Adobe-1.0
%%Creator: Steve Holden
%%Modified: Rich Burridge
%%Title: @(#)mp.pro.l.old 1.1 00/03/13
%%CreationDate: see above
%%PageLength 60
%%LineLength 80
%%NumCols 2
%%Orientation: Landscape
%%DocumentFonts: Times-Bold Times-Roman Courier
%%Pages: (atend)
%%EndComments

/leftedge 0 def
/rightedge fullheight def
/bottomedge 0 def
/topedge fullwidth def
/LandscapeMode true def

/CourierBack backspacefont

/FontSize 9 def
/font1d /Times-Bold            findfont def
/font2d /Times-Roman           findfont def
/font3d /CourierBack           findfont def
/fontHd /Helvetica-BoldOblique findfont 14 scalefont def
/fontH2 /Helvetica-BoldOblique findfont 10 scalefont def
/fontNd /Times-Bold            findfont 12 scalefont def

/BoldFont      { font1d FontSize scalefont setfont } def
/pf            { font2d FontSize scalefont setfont } def
/sf            { font3d FontSize scalefont setfont } def
/fontH         { fontHd setfont } def
/fontD         { fontH2 setfont } def
/fontN         { fontNd setfont } def

/graybox	% x1 y1 x2 y2 graybox --
{
    newpath
      4 -1 roll 2 copy			% y2 x1
      10 sub exch moveto
      4 -1 roll 2 copy			% x1 y1
      10 180 270 arc
      4 -1 roll 1 copy 3 -1 roll	% x2 y1
      10 270 0 arc
      3 -1 roll 1 copy 3 1 roll		% x1 y2 x2 y2
      10 0 90 arc
      10 90 180 arc
    closepath
    0.75 setgray fill
} def

/endpage		% page_number endpage --
{
  pop                   % unused
  PageSave restore      % restore *always* before showpage
  showpage              % display it
} def

/endcol			% page_number col_number endcol --
{
  exch			% col_number page_number
  gsave
    fontH
    leftedge 50 add topedge 56 sub	% bottom lt corner
    rightedge 50 sub topedge 36 sub	% top rt corner
    graybox
    newpath
      rightedge leftedge sub 2 div topedge 46 sub 15 0 360 arc
      gsave
        1 setgray fill
      grestore
    closepath
    0 setgray stroke
    leftedge 50 add topedge 52 sub moveto
    MailFor show
    User show
    fontD
    rightedge 50 sub TimeNow stringwidth pop sub
    topedge 52 sub moveto TimeNow show
    % center the page number
    fontN
    dup stringwidth
       topedge 52 sub exch sub				% y-centered
       exch 2 div rightedge leftedge sub 2 div exch sub	% x-centered
       exch moveto show
    dup 1 eq {                                % only if col == 1
      leftedge 50 add bottomedge 50 add       % bottom lt corner
      rightedge 50 sub bottomedge 70 add      % top rt corner
      graybox
      0 setgray
      leftedge 50 add bottomedge 54 add moveto Subject show
      /FirstSubject Subject def
    } {
      FirstSubject Subject ne {               % only if new subject
          rightedge leftedge sub 2 div        % calculate column width
          exch 1 sub mul leftedge add         % (col_number - 1) * col_width
          bottomedge 54 add moveto Subject show
      } if
    } ifelse
  grestore
  /ypos topedge 92 sub def
  /xpos rightedge leftedge sub 2 div def
  xpos ypos moveto
} def

/newpage
{
  pop
  /PageSave save def
  LandscapeMode
  {
    612 0 translate
    90 rotate
    /FontSize 7 def
  } if
  /lct 0 def
  /ypos topedge 92 sub def
  /xpos leftedge 50 add def
  xpos ypos moveto
  sf
} def

/showline
{
  show
  /ypos ypos FontSize sub def
  xpos ypos moveto
} def