summaryrefslogtreecommitdiff
path: root/macros/ytex/yfonts.mac
diff options
context:
space:
mode:
Diffstat (limited to 'macros/ytex/yfonts.mac')
-rw-r--r--macros/ytex/yfonts.mac155
1 files changed, 0 insertions, 155 deletions
diff --git a/macros/ytex/yfonts.mac b/macros/ytex/yfonts.mac
deleted file mode 100644
index 499fbb6e9b..0000000000
--- a/macros/ytex/yfonts.mac
+++ /dev/null
@@ -1,155 +0,0 @@
-% Copyright (c) 1985, 1986 Daniel C. Brotsky. All rights reserved.
-% Font macros for yTeX. See the file YTEX.MAC for details.
-
-% CONTENTS
-
-% ^L-page contents
-% ----------------------------------------------------------------------
-% 1 %% Font macros for YTEX
-% 2 %% typesize
-% 3 %% usersize
-% 4 %% initialization
-
- \message{typesize,}
-
-\newif\ifmagscaling
-\newif\ifexactsizes
-\newdimen\typesiz@
-\newtoks\baselinefactor
-
-\def\typesize {\afterassignment\typ@size\dimen@}
-\def\typ@siz@ {%
- \let\typ@size=\siz@rr
- \ymessage{{\string\typesize=\the\dimen@}}
- \ifdim 10\p@=\dimen@ \tenp@int \csname usersizeten\endcsname
- \else \ifdim 11\p@=\dimen@ \elevenp@int \csname usersizeeleven\endcsname
- \else \ifdim 12\p@=\dimen@ \twelvep@int \csname usersizetwelve\endcsname
- \else \let\typ@size=\typ@siz@
- \errhelp={Insert `\string\typesize=<dimen>'
- where <dimen> is 10pt, 11pt, or 12pt.}%
- \errmessage{Unrecognized size (\the\dimen@) in \string\typesize.
- Try again.}\fi\fi\fi}
-\def\siz@rr {%
- \errhelp={Just continue and I'll ignore the size switch.}%
- \errmessage{You can't change sizes in the middle of a document.}%
- \relax}
-\def\fixsiz@ {%
- \ifx\typ@size\siz@rr
- \else \global\let\typ@size=\siz@rr \global\let\fixsiz@=\relax
- \errhelp={Too late now. Just continue and I'll assume you want }%
- \addtotoks\errhelp\expandafter{\the\typesiz@.}%
- \errmessage{You never gave a \string\typesize\space command.}%
- \fi}
-\let\typ@size=\typ@siz@
-
-\def\tenp@int {%
- \typesiz@=10pt
- \s@tten \mag=\magstep\z@}
-
-\def\elevenp@int {%
- \typesiz@=11pt
- \ifmagscaling
- \s@tten \ifexactsizes \mag=1100 \else \mag=\magstephalf \fi
- \else
- \s@televen \mag=\magstep\z@
- \fi}
-
-\def\twelvep@int {%
- \typesiz@=12pt
- \ifmagscaling
- \s@tten \ifexactsizes \mag=1200 \else \mag=\magstep\@ne \fi
- \else
- \s@ttwelve \mag=\magstep\z@
- \fi}
-
-\def\s@tten {%
- \let\regsize=\tenpoint
- \let\smlsize=\ninepoint
- \let\smllsize=\eightpoint
- \let\smlllsize=\eightpoint
- \let\bigsize=\twelvepoint
- \let\biggsize=\fourteenpoint
- \let\bigggsize=\eighteenpoint
- \regsize}
-
-\def\s@televen {%
- \let\regsize=\elevenpoint
- \let\smlsize=\tenpoint
- \let\smllsize=\ninepoint
- \let\smlllsize=\eightpoint
- \let\bigsize=\twelvepoint
- \let\biggsize=\fourteenpoint
- \let\bigggsize=\eighteenpoint
- \regsize}
-
-\def\s@ttwelve {%
- \let\regsize=\twelvepoint
- \let\smlsize=\tenpoint
- \let\smllsize=\ninepoint
- \let\smlllsize=\eightpoint
- \let\bigsize=\fourteenpoint
- \let\biggsize=\eighteenpoint
- \let\bigggsize=\eighteenpoint
- \regsize}
-
- \message{usersize,}
-
-% new def of \setnormalspa@cing that leaves displayskips alone
-\def\setnormalsp@cing{% SIDE EFFECT is to go into \rm
- \rm % set the em properly
- \normalbaselineskip=\the\baselinefactor em%
- \normalbaselines}
-
-% user hook to \setnormalsp@cing
-\def\setnormalbaselines {\setnormalsp@cing}
-
-\def\normalbaselines{%
- \lineskip\normallineskip
- \baselineskip\normalbaselineskip
- \lineskiplimit\normallineskiplimit
- \setbox\strutbox=\hbox{\vrule height .7\baselineskip
- depth .3\baselineskip width\z@}}
-
-\def\usereighteenpointmacro {%
- \let\smllrm=\twelverm
- \let\smlrm=\fourteenrm\let\smlit=\fourteenit
- \let\smlbf=\fourteenbf\let\smltt=\fourteentt}
-
-\def\userfourteenpointmacro {%
- \let\smllrm=\tenrm
- \let\smlrm=\twelverm\let\smlit=\twelveit
- \let\smlbf=\twelvebf\let\smltt=\twelvett}
-
-\def\usertwelvepointmacro {%
- \let\smllrm=\ninerm
- \let\smlrm=\tenrm\let\smlit=\tenit
- \let\smlbf=\tenbf\let\smltt=\eleventt}
-
-\def\userelevenpointmacro {%
- \let\smllrm=\eightrm
- \let\smlrm=\tenrm\let\smlit=\tenit
- \let\smlbf=\tenbf\let\smltt=\tentt}
-
-\def\usertenpointmacro {%
- \let\smllrm=\eightrm
- \let\smlrm=\ninerm\let\smlit=\nineit
- \let\smlbf=\ninebf\let\smltt=\ninett}
-
-\def\userninepointmacro {%
- \let\smllrm=\sevenrm
- \let\smlrm=\eightrm\let\smlit=\eightit
- \let\smlbf=\eightbf\let\smltt=\eighttt}
-
-\def\usereightpointmacro {%
- \let\smllrm=\sevenrm
- \let\smlrm=\eightrm\let\smlit=\eightit
- \let\smlbf=\eightbf\let\smltt=\eighttt}
-
- \message{initialization,}
-
-% parameters
-\magscalingtrue
-\baselinefactor={1.3}
-
-% default type size
-\tenp@int