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
|
