summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/js-misc/schild.tex
blob: 9bc3ef237b3c1bfbe65175dce0bb341d95936553 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
% $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