summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/jsmisc/cassette.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/plain/jsmisc/cassette.tex')
-rw-r--r--Master/texmf-dist/tex/plain/jsmisc/cassette.tex166
1 files changed, 0 insertions, 166 deletions
diff --git a/Master/texmf-dist/tex/plain/jsmisc/cassette.tex b/Master/texmf-dist/tex/plain/jsmisc/cassette.tex
deleted file mode 100644
index 828260153bf..00000000000
--- a/Master/texmf-dist/tex/plain/jsmisc/cassette.tex
+++ /dev/null
@@ -1,166 +0,0 @@
-% $Id: cassette.tex,v 1.2 1995/03/16 01:17:54 schrod Exp $
-%--------------------------------------------------------
-% Written by Joachim Schrod <schrod@iti.informatik.th-darmstadt.de>.
-% Put into public domain.
-
-
-\catcode`\@=11
-
-\font\norm=cmss8
-\font\intfont=cmssi8
-\font\titfont@page=cmcsc10 scaled 800
-\font\titfont=cmss10
-\font\titintfont=cmssi10
-\font\cassfont=cmcsc10
-
-\newdimen\colwidth \colwidth=50 true mm
-\newdimen\backheight \backheight=10 true mm
-\newdimen\titheight \titheight=14 true mm
-\newdimen\pagheight \pagheight=66 true mm
-
-\def\@seite#1{%
- \global\setbox\@page=\vbox{\hsize=\colwidth
- \everypar={\global\hangindent=1em }%
- \vskip \tw@\p@
- #1\endgraf
- \vfil
- }%
- }
-
-\def\cnt#1:{[#1]}
-\def\von#1:{{\intfont #1\/}:\penalty -100 } % <== Space!
-\def\nl{\hfill\break}
-
-\def\@titel#1{%
- \global\setbox\@title=\vbox{\hsize=\colwidth
- \let\intfont=\titintfont % Font fuer Interpret
- \vfill
- \unvbox\@title
- \titfont #1\endgraf
- \vfill
- }%
- {\titfont@page
- \def\von##1:{\uppercase{##1}:\penalty -100 }% % <== Space!
- #1%
- }}
-
-
-\newbox\@seitea
-\newbox\@seiteb
-\newbox\@titela
-\newbox\@titelb
-\def\seitea{\let\@page=\@seitea \let\titel=\titela \obeylines \@seite}
-\def\seiteb{\let\@page=\@seiteb \let\titel=\titelb \obeylines \@seite}
-\def\titela{\let\@title=\@titela \@titel}
-\def\titelb{\let\@title=\@titelb \@titel}
-
-\def\titelcass#1{%
- \global\setbox\@titela=\vbox{\hsize=\colwidth
- \vfill
- \unvbox\@titela
- \titfont #1\endgraf
- \vfill
- }%
- }
-
-
-
-
-\def\begincassette#1{%
- \def\cassname{#1}%
- \setbox\@seitea\vbox{\hrule width\colwidth height\z@ depth\z@ \vfil}%
- \setbox\@seiteb\vbox{\hrule width\colwidth height\z@ depth\z@ \vfil}%
- \setbox\@titela\vbox{\hrule width\colwidth height\z@ depth\z@ \vfil}%
- \setbox\@titelb\vbox{\hrule width\colwidth height\z@ depth\z@ \vfil}%
- \splittopskip\baselineskip
- }
-
-\newif\if@text@left@
-\def\endcassette{%
- \hbox{%
- \vrule
- \vbox{%
- \hrule
- \vbox to \backheight{\hsize2\colwidth \advance\hsize by 4.4\p@
- \vfill
- \centerline{\cassfont \cassname}%
- \vfill
- }%
- \hrule
- \col{\titheight}{@titel}%
- \hrule
- \loop
- \global\@text@left@false
- \one@page
- \if@text@left@ \repeat
- }%
- \vrule
- }%
- }
-\def\one@page{%
- \col{\pagheight}{@seite}%
- \hrule
- }%
-\def\col#1#2{%
- \hbox{%
- \hskip \p@
- \split@col{#2a}{#1}%
- \hskip \p@
- \vrule
- \hskip \p@
- \split@col{#2b}{#1}%
- \hskip \p@
- }%
- }
-\def\split@col#1#2{%
- \expandafter \ifvoid \csname #1\endcsname
- \vbox to #2{\hrule width\colwidth height\z@ depth\z@ \vfil}%
- \else
- \vbox to #2{\hsize\colwidth
- \setbox\z@ \vsplit \csname #1\endcsname to #2\relax
- \unvbox\z@
- \vskip 2pt plus 1fil minus 2pt
- }%
- \expandafter \ifvoid \csname #1\endcsname
- \else \global\@text@left@true
- \fi
- \fi
- }
-
-
-\norm \baselineskip=9pt \lineskip=0pt \lineskiplimit=0pt
-\parindent=\z@ \parskip=\tw@\p@ minus \tw@\p@
-\rightskip=\z@ plus 0.7\colwidth \linepenalty=100
-\r@ggedbottomtrue
-\frenchspacing
-\nopagenumbers
-
-
-\endinput
-
-
-
-% ============================================================
-%
-% $Log: cassette.tex,v $
-% Revision 1.2 1995/03/16 01:17:54 schrod
-% Support for magnified typesetting.
-% Might be more changes as well, they looked sensible.
-%
-% Revision 1.1 1995/03/13 23:18:10 schrod
-% Started to manage this package with CVS. Made minor code cleanup.
-%
-
-%
-% Pre-CVS Log:
-%
-% 87-09-20 js Initial revision
-
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-Local Variables:
-mode: plain-TeX
-TeX-master: t
-TeX-brace-indent-level: 4
-End: