% $Id: schild.tex,v 1.1 1995/03/13 23:18:13 schrod Exp $
%--------------------------------------------------------


% Rueckenschild fuer ein gelumbacktes Buch:
%
% \buchschild#1#2   #1 == Breite in mm       #2 == Name des Buches
%
%
% Tuerschilder ITI:
%
% \tuerschild#1     #1 == Text (ueblicherweise in Grossbuchstaben)
%                               falls zu lang, Font auf magstep3 reduzieren


\newdimen\rand
\rand=25mm

\let\buchfont=\svtnrm
\font\tuerfont=cmssdc10 scaled \magstep4     % magstep3, falls zu lang
\let\tuerschildfont=\tuerfont



\def\buchschild#1#2{%
   \vbox{%
      \offinterlineskip
      \hrule
      \hbox{%
         \vrule
         \vbox to #1mm{%
            \vfill
            \hbox{\kern\rand \buchfont #2\kern\rand}%
            \vfill
            }%
         \vrule
         }%
      \hrule
      }%
   \vskip 2cm
   }

\def\tuerschild#1{%
   \vbox{%
      \offinterlineskip
      \hrule
      \hbox{%
         \vrule
         \vbox to 10mm{%
            \rand=15mm
            \vfill
            \hbox to 155mm{\kern\rand \tuerschildfont #1\hfill}%
            \vfill
            }%
         \vrule
         }%
      \hrule
      }%
   \vskip 2cm
   }



\raggedbottom
\nopagenumbers


\endinput



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Log: schild.tex,v $
% Revision 1.1  1995/03/13  23:18:13  schrod
%     Started to manage this package with CVS. Made minor code cleanup.
%

%
% Pre-CVS Log:
%
% 92-04-15 cd renamed \schild to \buchschild
%             introduced \tuerschild
% 88-02-08 js first release