summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/misc/scmac.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/plain/contrib/misc/scmac.tex')
-rw-r--r--macros/plain/contrib/misc/scmac.tex137
1 files changed, 137 insertions, 0 deletions
diff --git a/macros/plain/contrib/misc/scmac.tex b/macros/plain/contrib/misc/scmac.tex
new file mode 100644
index 0000000000..e1b641465a
--- /dev/null
+++ b/macros/plain/contrib/misc/scmac.tex
@@ -0,0 +1,137 @@
+
+%% scmac.tex
+%% TeX macros for typesetting scripts version 2.00
+%% Copyright (C) 1989 by Na Choon Piaw
+%% This file may be freely used, distributed, and modified provided
+%% credit is given to the original author. You can even try to sell it,
+%% assuming someone's willing to pay for this, of course.
+
+%% This is a major rewrite --- hence, no change update is given.
+%% For more information see the user's documentation.
+
+%% tell user what version
+
+\immediate\write16{Loading scmac version 2.00 Beta release ...}
+
+%% fonts --- Use Computer Modern. Substitute these with local
+%% equivalents if no Computer Modern.
+\font\bigtenrm=cmr10 scaled\magstep2 %% big font for title
+\font\rm=cmr10 %% standard roman text
+\font\bf=cmbx10 %% for bold
+\font\sl=cmsl10 %% slanted text
+\font\it=cmti10 %% italics
+
+%% variable declarations
+\newcount\fnotecnt
+\newcount\FootNoteStyle
+\newcount\Style
+\newwrite\auxfile
+\fnotecnt=1
+\FootNoteStyle=1 %% "true" footnotes
+\Style=1
+
+%% preamble handling
+\def\Title{}
+\def\transl{}
+\def\oth{}
+\def\cpmessage{}
+\def\heading#1{\global\headline={\bf #1 \hfil Page \folio}}
+\def\translator#1{\edef\transl{\noindent\it Translation by #1.\hfil}}
+\def\others#1{\edef\oth{\noindent\it #1.\hfil}}
+\footline={\hfil}
+
+%% open auxilary file.
+\immediate\openout\auxfile=\jobname.aux
+
+%% Environments
+\def\beginscript{
+ \Title
+ \cpmessage
+ \transl
+ \oth
+ %% Open output file for footnotes
+ %% Can your wordprocessor do this?
+}
+
+\def\endscript{
+\immediate\closeout\auxfile
+\ifnum\FootNoteStyle=1
+ \relax
+\else
+ %% read in from aux file.
+ \bigskip
+ \filbreak
+ \line{\bf Footnotes\hfil}
+ \openin 1 = \jobname.aux
+ \readfootnotes
+\fi
+}
+
+%% songs
+\def\beginsong{\bigskip\begingroup\obeylines\narrower}
+\def\endsong{\par\endgroup\bigskip}
+
+\def\readfootnotes{
+%% recursive TeX macro! Can WordPerfect do this?
+\def\temp{}
+\ifeof 1
+ \relax
+\else
+ \read 1 to \temp
+ \ifeof 1
+ \relax
+ \else
+ \item{[\temp]}
+ \read 1 to \temp
+ \temp
+ \readfootnotes
+ \fi
+\fi
+}
+
+%% describe and desc are unchanged.
+\def\describe#1{\sl #1 \medskip\goodbreak}
+\def\desc#1{\it (#1\/)\rm}
+
+%% footnoting
+\def\fnote#1{\ifnum\FootNoteStyle=1
+%% footnotes at bottom of page
+ \footnote{$^{\the\fnotecnt}$}{\rm #1}
+\else
+%% new-style typeinto aux file for readback
+%% remember to change the \hskip value for different fonts!
+ $^{\the\fnotecnt}$ \hskip -0.15in
+ \immediate\write\auxfile{\the\fnotecnt}
+ \immediate\write\auxfile{#1}
+\fi
+\global\advance\fnotecnt by 1
+}
+
+%% unavoidable processing
+\ifnum\Style=1
+ %% old style: version 1.xx
+ \gdef\say#1#2{
+ \centerline{\bf #1}
+ {
+ \parindent=1in
+ \rm\narrower\raggedright\noindent
+ #2
+ \par
+ }
+ \bigskip\goodbreak
+ }
+\else
+ %% version 2.xx
+ \gdef\say#1:#2\par{
+ \centerline{\bf #1}
+ {
+ \parindent=1in
+ \rm\narrower\raggedright\noindent
+ #2
+ \par
+ }
+ \bigskip\goodbreak
+ }
+\fi
+
+