summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/js-misc/schild.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/plain/contrib/js-misc/schild.tex')
-rw-r--r--macros/plain/contrib/js-misc/schild.tex84
1 files changed, 84 insertions, 0 deletions
diff --git a/macros/plain/contrib/js-misc/schild.tex b/macros/plain/contrib/js-misc/schild.tex
new file mode 100644
index 0000000000..9bc3ef237b
--- /dev/null
+++ b/macros/plain/contrib/js-misc/schild.tex
@@ -0,0 +1,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