summaryrefslogtreecommitdiff
path: root/macros/plain/formats/psizzl/fontdefs.psizzl
diff options
context:
space:
mode:
Diffstat (limited to 'macros/plain/formats/psizzl/fontdefs.psizzl')
-rw-r--r--macros/plain/formats/psizzl/fontdefs.psizzl221
1 files changed, 221 insertions, 0 deletions
diff --git a/macros/plain/formats/psizzl/fontdefs.psizzl b/macros/plain/formats/psizzl/fontdefs.psizzl
new file mode 100644
index 0000000000..9a1b582c03
--- /dev/null
+++ b/macros/plain/formats/psizzl/fontdefs.psizzl
@@ -0,0 +1,221 @@
+
+% FONTDEFS PSIZZL - fonts for use with version TeX 1.0,
+%
+% For reference,
+% default pointsize better(?)
+% Text 10 12 point type 14
+% Equations 10 12 point type 14
+% Superscripts 7 10 point type 10
+% Supersuperscripts 5 8 point type 7
+% \message{load fonts}
+%
+%
+%===============================================================================
+% PSIZZL uses too many fonts for the BNL VAX version of TeX. The sans
+% serif and small caps fonts have been removed with "%*****". Roman fonts are
+% substituted instead:
+\def\sr{\rm} % Roman for sans-serif
+\def\cp{\rm} % Roman for small caps
+% J. Haggerty and F. Paige, 5 Nov 1986
+%===============================================================================
+%
+%*****\font\fortyss = cmssmc40 % sanserif
+%
+\font\fifteenrm = cmr10 scaled\magstep4% % roman 14.4 point
+\font\fourteenrm = cmr10 scaled\magstep3% % roman 14.4 point
+%
+\font\twelverm = cmr10 scaled\magstep1% % roman 12 point
+\font\twelvei = cmmi10 scaled\magstep1% % mathitalic 12 point
+\font\twelveit = cmti10 scaled\magstep1% % italic 12 point
+\font\twelvebf = cmbx10 scaled\magstep1% % boldface 12 point
+\font\twelvesy = cmsy10 scaled\magstep1% % math 12 point
+\font\twelvesl = cmsl10 scaled\magstep1% % slanted 12 point
+%*****\font\twelvess = cmss10 scaled\magstep1% % sansserif 12 point
+\font\twelvett = cmtt10 scaled\magstep1% % typewriter 12 point
+\font\twelveex = cmex10 scaled\magstep1% % extra math 12 point
+%*****\font\twelvecp = cmcsc10 scaled\magstep1% % capitals at 12 point
+%
+%*****\font\tencp = cmcsc10 % capitals at 10 point
+%*****\font\tenss = cmss10 % sansserif 10 point
+%
+\font\eightbf = cmbx8 scaled\magstep1% % boldface 9.6 point
+\font\eightrm = cmr8 scaled\magstep1% % roman 9.6 point
+\font\eightsl = cmsl8 scaled\magstep1% % slanted 9.6 point
+%*****\font\eightss = cmssq8 scaled\magstep1% % sans serif 9.6 point
+\font\eightsy = cmsy8 scaled\magstep1% % symbols 9.6 point
+\font\eighti = cmmi8 scaled\magstep1% % math 9.6 point
+\font\eightit = cmti8 scaled\magstep1% % text italic 9.6 point
+\font\eighttt = cmtt8 scaled\magstep1% % typewriter 9.6 point
+%
+\font\sixbf = cmbx7 scaled\magstep1% % boldface 7.2 point
+\font\sixrm = cmr7 scaled\magstep1% % roman 7.2 point
+\font\sixsy = cmsy7 scaled\magstep1% % math 7.2 point
+\font\sixi = cmmi7 scaled\magstep1% % math italic 7.2 point
+%
+%\message{done fonts}%
+%*****\newfam\srfam
+%*****\newfam\cpfam
+%
+\def\rm{\fam0\fontrm }%
+\def\mit{\fam1 }%
+\def\cal{\fam2 }%
+\def\it{\fam\itfam\fontit}%
+%*****\def\sr{\fam\srfam\fontsr}%
+\def\sl{\fam\slfam\fontsl}%
+\def\bf{\fam\bffam\fontbf}%
+\def\tt{\fam\ttfam\fonttt}%
+%*****\def\cp{\fam\cpfam\fontcp}%
+\def\twelvep@int{% defines all the characteristics of twelve point type
+ \relax
+ \textfont0 = \twelverm % roman
+ \scriptfont0 = \eightrm
+ \scriptscriptfont0 = \sixrm
+ \let\fontrm = \twelverm
+ %
+ \textfont1 = \twelvei % math italics
+ \scriptfont1 = \eighti
+ \scriptscriptfont1 = \sixi
+ %
+ \textfont2 = \twelvesy % math symbols
+ \scriptfont2 = \eightsy
+ \scriptscriptfont2 = \sixsy
+ %
+ \textfont3 = \twelveex % extended math
+ \scriptfont3 = \twelveex
+ \scriptscriptfont3 = \twelveex
+ % there is no name for this
+ %
+ \textfont\itfam = \twelveit % text italic
+ \let\fontit = \twelveit
+ %
+%***** \textfont\srfam = \twelvess % sans serif
+%***** \let\fontsr = \twelvess
+ %
+ \textfont\slfam = \twelvesl % slanted text
+ \let\fontsl = \twelvesl
+ %
+ \textfont\bffam = \twelvebf % boldface
+ \scriptfont\bffam = \eightbf
+ \scriptscriptfont\bffam = \sixbf
+ \let\fontbf = \twelvebf
+ %
+ \textfont\ttfam = \twelvett % typewriter
+ \let\fonttt = \twelvett
+ %
+%***** \textfont\cpfam = \twelvecp % caps & smallcaps
+%***** \let\fontcp = \twelvecp
+ %
+ \fontrm
+ \spaceparams
+ }%
+\def\tenp@int{% defines all the characteristics of ten point type
+ \relax
+ \textfont0 = \tenrm % roman
+ \scriptfont0 = \sevenrm
+ \scriptscriptfont0 = \fiverm
+ \let\fontrm = \tenrm
+ %
+ \textfont1 = \teni % math italics
+ \scriptfont1 = \seveni
+ \scriptscriptfont1 = \fivei
+ %
+ \textfont2 = \tensy % math symbols
+ \scriptfont2 = \sevensy
+ \scriptscriptfont2 = \fivesy
+ %
+ \textfont3 = \tenex % extended math
+ \scriptfont3 = \tenex
+ \scriptscriptfont3 = \tenex
+ % there is no name for this
+ %
+ \textfont\itfam = \tenit % text italic
+ \let\fontit = \tenit
+ %
+%***** \textfont\srfam = \tenss % sans serif
+%***** \let\fontsr = \tenss
+ %
+ \textfont\slfam = \tensl % slanted text
+ \let\fontsl = \tensl
+ %
+ \textfont\bffam = \tenbf % boldface
+ \scriptfont\bffam = \sevenbf
+ \scriptscriptfont\bffam = \fivebf
+ \let\fontbf = \tenbf
+ %
+ \textfont\ttfam = \tentt % typewriter
+ \let\fonttt = \tentt
+ %
+%***** \textfont\cpfam = \tencp % caps & smallcaps
+%***** \let\fontcp = \tencp
+ %
+ \fontrm
+ \spaceparams
+ }%
+\def\spaceparams{% spacing parameters in a font-covariant form
+ % If we do \sevenrm\spaceparams,
+ % we will successfully switch to the new font at the correct spacing.
+ % We have taken 2.3ex to be the height of the current font.
+ \topskip 2.3ex
+ \splittopskip 2.3ex
+ \smallskipamount= .75ex plus .25ex minus .25ex
+ \medskipamount = 1.5ex plus .50ex minus .50ex
+ \bigskipamount = 3.0ex plus 1.0ex minus 1.0ex
+ %
+ \parfillskip 0ex plus 1fil
+ \parindent 2.0em
+ \abovedisplayskip 3.8ex plus .57ex minus 1.7ex
+ \belowdisplayskip 3.8ex plus .57ex minus 1.7ex
+ \abovedisplayshortskip 0ex plus .68ex
+ \belowdisplayshortskip 1.6ex plus .68ex minus .91ex
+ \maxdepth .45ex
+ \splitmaxdepth \maxdimen
+ \boxmaxdepth \maxdimen
+ \setbox\strutbox\hbox{\vrule height 3ex depth .8ex width 0em}%
+ %
+ \hfuzz .023ex
+ \vfuzz .023ex
+ \delimitershortfall 1.2ex
+ \nulldelimiterspace .27ex
+ \scriptspace .11ex
+ \overfullrule 1.2ex
+ \thinmuskip 3mu
+ \medmuskip 4mu plus 2mu minus 4mu
+ \thickmuskip 5mu plus 5mu
+ %
+ \s@tbaselines
+ }%
+\newskip\normalparskip
+\def\@nenhalf{1.5}%
+\def\s@tbaselines{%
+ \normallineskip .23ex
+ \normalbaselineskip 2.76ex
+ \normallineskiplimit 0ex
+ \normalparskip 0.00ex plus .23ex minus .00ex
+ \refsize\hsize
+ \refbetweenskip\parskip
+ %
+ \lineskip\linesp@ce\normallineskip
+ \baselineskip\linesp@ce\normalbaselineskip
+ \lineskiplimit\linesp@ce\normallineskiplimit
+ \parskip\linesp@ce\normalparskip
+ }%
+\def\singlespace{%
+ \let\linesp@ce\@ne\s@tbaselines
+ }\let\linesp@ce\@ne
+\def\normalbaselines{%
+ \let\linesp@ce\@nenhalf\s@tbaselines
+ }%
+\def\doublespace{%
+ \let\linesp@ce\tw@\s@tbaselines
+ }%
+\hsize 6.0 true in
+\vsize 8.75 true in
+%
+\newdimen\refsize
+\newskip\refbetweenskip
+%
+\def\largetype{\twelvep@int}%
+%
+\def\mediumtype{\tenp@int}%
+%
+\mediumtype\singlespace