dated_draft.ps

%!
%%
%% Copyright (C) 2002, 2020 Dan McMahill
%% All rights reserved.
%%
%% 
%% This program is free software; you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by
%% the Free Software Foundation; version 2 of the License.
%% 
%% This program is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%% GNU General Public License for more details.
%% 
%% You should have received a copy of the GNU General Public License
%% along with this program; if not, write to the Free Software
%% Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
%%
userdict
begin
/bop-hook {
  gsave
  /LucidaSans-Typewriter 12 selectfont
  306 20
  ( DATE ) 
  dup
  stringwidth pop 2 div
  4 -1 roll exch sub
  3 -1 roll moveto
  show
  306 34
  ( DRAFT )
  dup
  stringwidth pop 2 div
  4 -1 roll exch sub
  3 -1 roll moveto
  show
  /Helvetica-Bold 144 selectfont  
  306 396
  moveto
  -52.3 rotate
  ( DRAFT )
  dup
  stringwidth 
  pop -54                % the Y coordinate
  exch
  2 div 0 exch sub       % the X coordinate
  exch
  rmoveto
  % 1 is white, 0 is black
  0.8 setgray
  show
  grestore
} def
end