%% 
%% This is file `draftcopy.sty', generated on <1995/9/16> 
%% with the docstrip utility (2.2i).
%% 
%% The original source files were:
%% 
%% draftcopy.doc  (with options: `package')
%% 
%% IMPORTANT NOTICE:
%% You are not allowed to distribute this file.
%% For distribution of the original source see
%% the copyright notice in the file draftcopy.doc .
%% 
%% Package draftcopy to use with LaTeX2e
%% Copyright (C) Juergen Vollmer, all rights reserved.
%% Juergen Vollmer, University of Karlsruhe, IPD, Germany.
%% email: vollmer@ipd.info.uni-karlruhe.de
%% WWW:   http://i44www.info.uni-karlsruhe.de/~vollmer
%% $Id: draftcopy.doc,v 2.0 1995/08/10 14:49:14 vollmer released $
%%
%% This system 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.
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{draftcopy}[1995/08/10 v2.0]

\DeclareOption{light}{
  \special{!userdict begin /draftcopy-GrayValue 0.90 def end}
}
\DeclareOption{dark}{
  \special{!userdict begin /draftcopy-GrayValue 0.85 def end}
}

\DeclareOption{first}{
  \special{!userdict begin /draftcopy-LastPage 1 def end}
}
\DeclareOption{firsttwo}{
  \special{!userdict begin /draftcopy-LastPage 2 def end}
}
\DeclareOption{all}{
  \special{!userdict begin /draftcopy-LastPage 99999 def end}
}

\DeclareOption{austrian}{
  \def\draftcopy@Name{ENTWURF}\def\draftcopy@Scale{155 }
}
\DeclareOption{american}{
  \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215 }
}
\DeclareOption{english}{
  \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215 }
}
\DeclareOption{german}{
  \def\draftcopy@Name{ENTWURF}\def\draftcopy@Scale{155 }
}
\ExecuteOptions{dark,first,english}
\ProcessOptions
\typeout{Prints "DRAFT" on pages; does not show in TeXView}
\newcommand{\draftcopySetGrey}[1]{
  \special{!userdict begin /draftcopy-GrayValue #1 def end}
}

\newcommand{\draftcopyLastPage}[1]{
  \special{!userdict begin /draftcopy-LastPage #1 def end}
}

\newcommand{\draftcopyName}[2]{
  \def\draftcopy@Name{#1}
  \def\draftcopy@Scale{#2 }
}


\AtBeginDocument{
 \special{
  !userdict begin
  /draftcopy-CurrentPage 0 def
  /bop-hook{
    /draftcopy-CurrentPage draftcopy-CurrentPage 1 add def
    draftcopy-CurrentPage draftcopy-LastPage le
    { gsave 200 30 translate 65 rotate
      /Times-Roman findfont
      \draftcopy@Scale scalefont setfont
      0 0 moveto
      draftcopy-GrayValue setgray
      (\draftcopy@Name) show
      grestore
    } if
  } def
  end
 }
}

\endinput
%% 
%% End of file `draftcopy.sty'.
