Discussion:
How to change font size in Plain TeX?
(too old to reply)
s***@programmer.net
2007-11-03 20:30:58 UTC
Permalink
Raw Message
As installed, plain TeX uses the Computer Modern fonts in 10 point
size. I want my document to appear in 12 point everywhere. I have \font
\twelverm=cmr12 in my source file, and now when I say \twelverm the
text font increases to 12 point, but the fonts in math mode remain at
10 point. What do I have to do so these also increase to 12 point?

I'm using plain TeX, and do not want to switch to LaTeX.
Marc Olschok
2007-11-03 20:56:59 UTC
Permalink
Raw Message
Post by s***@programmer.net
As installed, plain TeX uses the Computer Modern fonts in 10 point
size. I want my document to appear in 12 point everywhere. I have \font
\twelverm=cmr12 in my source file, and now when I say \twelverm the
text font increases to 12 point, but the fonts in math mode remain at
10 point. What do I have to do so these also increase to 12 point?
I'm using plain TeX, and do not want to switch to LaTeX.
Try this one

<http://tug.ctan.org/tex-archive/macros/plain/contrib/varisize/>

Marc
s***@programmer.net
2007-11-04 19:08:29 UTC
Permalink
Raw Message
Post by Marc Olschok
<http://tug.ctan.org/tex-archive/macros/plain/contrib/varisize/>
Thanks; that works. I changed the lines

\font\twelvesy=cmsy10 scaled \magstep1
\font\twelveex=cmex10 scaled \magstep1
to
\font\twelvesy=cmsy12
\font\twelveex=cmex12

so the correct font sizes would be used (slightly better appearance
than using magnified fonts).
MB
2018-02-02 08:15:06 UTC
Permalink
Raw Message
The following text must saved in a file named xPoint.tex and 'input'ed
at the preamble of your file :

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% xPoint.tex : macros permettant de choisir une taille TAILLE
% quelconque : TAILLE entier (en points)
% Usage : xpoint[TAILLE]
% Exemple : xpoint[18] Il \'etait une fois .... $f_n(x)$ ...
% (C) Mostafa BANOUNI, Faculty of Sciences, Agadir
%---------------------------------------------------------------
% Baptême de certaines fontes pour compléter la taille tenpoint
%---------------------------------------------------------------
\chardef\catampersand=\the\catcode`\@
\catcode`\@=11
\newdimen\x@
\newdimen\x@@
\newdimen\x@@@
\newdimen\x@@@@

% New font families :
% cm fonts first :
\newfam\mibfam % cm Math bold (cmmib). N.B
\newfam\sybfam % cm Math Symbol bold (cmbsy)
\newfam\ssfam % cm Sans Serif (cmss)
\newfam\ssifam % cm Sans Serif slanted (cmssi)
\newfam\ssbffam % cm Sans Serif bold extended (cmssbx)
\newfam\scfam % cm Small Caps (cmcsc)

%%% Completer la Taille 10 pt de plain :
% 10pt :
%-------
\font\tenit = cmti10 % text italic
\font\tenmib = cmmib10 % bold math italic
\font\tensyb = cmbsy10 % bold math symbol
\font\tenss = cmss10 at 10pt % regular sans serif
\font\tenssi = cmssi10 at 10pt % regular slanted sans serif
\font\tenssbf = cmssbx10 at 10pt % Sans Serif bold extended
\font \tensc = cmcsc10 at 10pt % Small caps

% 7pt :
%------
\font\sevenit = cmti7 % text italic
\font\sevenmib = cmmib10 scaled 700 % bold math italic
\font\sevensyb = cmbsy10 scaled 700 % bold math symbol
\font\sevenss = cmss10 scaled 700 % regular sans serif
\font\sevenssi = cmssi10 scaled 700 % regular slanted sans serif
\font\sevenssbf = cmssbx10 at 7pt % Sans Serif bold extended
\font \sevensc = cmcsc10 at 7pt % Small caps

% 5pt :
%------
\font\fiveit = cmti10 scaled 500 % text italic
\font\fivemib = cmmib10 scaled 500 % bold math italic
\font\fivesyb = cmbsy10 scaled 500 % bold math symbol
\font\fivess = cmss10 scaled 500 % regular sans serif
\font\fivessi = cmssi10 scaled 500 % regular slanted sans serif
\font\fivessbf = cmssbx10 at 5pt % Sans Serif bold extended
\font \fivesc = cmcsc10 at 5pt % Small caps

% cmti :
\textfont\itfam=\tenit \scriptfont\itfam=\sevenit
\scriptscriptfont\itfam=\fiveit \def\it{\fam\itfam\tenit}%
% cmssbx :
\textfont\ssbffam=\tenssbf \scriptfont\ssbffam=\sevenssbf
\scriptscriptfont\ssbffam=\fivessbf \def\ssbf{\fam\ssbffam\tenssbf}%
% cmscsc :
\textfont\scfam=\tensc \scriptfont\scfam=\sevensc
\scriptscriptfont\scfam=\fivesc \def\sc{\fam\scfam\tensc}%

%------------------------------------------------------------%
% Constitution des familles mib, sy, hn et hnb
%------------------------------------------------------------%
%\def\tenpoint{%
%
% Math bold cmmib :
\textfont\mibfam=\tenmib \scriptfont\mibfam=\sevenmib
\scriptscriptfont\mibfam=\fivemib \def\mib{\fam\mibfam\tenmib}%

% Math symbol bold cmbsy :
\textfont\sybfam=\tensyb \scriptfont\sybfam=\sevensyb
\scriptscriptfont\sybfam=\fivesyb \def\syb{\fam\sybfam\tensyb}%

% Sans serif :
\textfont\ssfam=\tenss \scriptfont\ssfam=\sevenss
\scriptscriptfont\ssfam=\fivess \def\ss{\fam\ssfam\tenss}%
% Sans serif slanted :
\textfont\ssifam=\tenssi \scriptfont\ssifam=\sevenssi
\scriptscriptfont\ssifam=\fivessi \def\ssi{\fam\ssifam\tenssi}%

%-------------------------------------------------------------
% Declaration de fonctions utiles et des familles x points
%-------------------------------------------------------------

\newcount\***@unt

\def\DisponibleSize[#1|#2]{\global\***@unt=0 \ConstructTable[#1|#2]|}

\def\ConstructTable[#1|#2#3|{\ifx#2] \else%
\global\advance\***@unt by 1%
\global\advance\***@unt by 0%
% \immediate\write16{!\the\***@unt ! #2}%
\expandafter\xdef\csname @#1\the\***@unt\endcsname {#2}%
\ConstructTable[#1|#3|%
%% \immediate\write16{\the\***@unt}%
\fi}

\newcount\MaxSiz@ \newcount\MinSiz@
\newcount\***@MaxSiz@ \newcount\***@MinSiz@

\def\***@ice[#1,#2]{\ignorespaces\global\***@unt=1
\global\MaxSiz@=\csname @#1\the\***@unt\endcsname
\global\MinSiz@=\MaxSiz@ % \global\***@unt=2
\SizeChoic@[#1,#2]%}
%%%%%
\***@MaxSiz@=\MaxSiz@ \***@MinSiz@ = \MinSiz@
\advance\***@MaxSiz@ by -#2 \advance\***@MinSiz@ by -#2
\ifnum\***@MaxSiz@ < 0 \multiply \***@MaxSiz@ by -1 \fi
\ifnum\***@MinSiz@ < 0 \multiply \***@MinSiz@ by -1 \fi
% \ifnum \***@MaxSiz@ < \***@MinSiz@ \relax \the\MaxSiz@ \else \the\MinSiz@ \fi
\ifnum \***@MaxSiz@ < \***@MinSiz@ \relax \else \MaxSiz@ = \MinSiz@ \fi
% \infAB[\the\MaxSiz@|\the\MinSiz@]
}

\def\SizeChoic@[#1,#2]{%
\global\advance \***@unt by 1
\global\advance \***@unt by 0% a resoudre ce pb !
\expandafter\ifx\csname @#1\the\***@unt\endcsname\relax
\else
\***@MaxSiz@=\csname @#1\the\***@unt\endcsname \relax
\ifnum#2>\***@MaxSiz@ \global\MinSiz@=\***@MaxSiz@
\else \global \MaxSiz@= \***@MaxSiz@ \SizeChoic@[#1,#2]\fi\fi}

\def\SP{ }
\def\ApplyFont[#1,#2,#3]{\***@ice[#1,#2] \font \CMRx #1\the\MaxSiz@ \SP at #3 pt \CMRx}

\DisponibleSize[cmr|{17}{12}{10}{9}{8}{7}{6}{5}]
\DisponibleSize[cmmi|{12}{10}{9}{8}{7}{6}{5}]
\DisponibleSize[cmmib|{{10}}]
\DisponibleSize[cmsy|{10}{9}{8}{7}{6}{5}]
%% \DisponibleSize[cmbsy|{10}{8}] % PC
\DisponibleSize[cmbsy|{{10}}]
\DisponibleSize[cmex|{{10}}]
\DisponibleSize[cmti|{12}{10}{9}{8}]
\DisponibleSize[cmsl|{12}{10}{9}{8}]
\DisponibleSize[cmbx|{12}{10}{9}{8}{7}{6}{5}]
\DisponibleSize[cmbxsl|{{10}}]
\DisponibleSize[cmtt|{12}{10}{9}]
\DisponibleSize[cmsltt|{{10}}]
\DisponibleSize[cmss|{17}{12}{10}{9}{8}]
\DisponibleSize[cmssi|{17}{12}{10}{9}{8}]
\DisponibleSize[cmssbx|{{10}}]
%% \DisponibleSize[cmcsc|{10}{9}]
\DisponibleSize[cmcsc|{{10}}]

\newcount\***@leF@ctor
%\def\***@ntSc@le[#1]{\ifnum #1=\MaxSiz@ \relax\else \SP scaled \the\***@leF@ctor}
\def\***@ntSc@le[#1]{\SP at \the\***@leF@ctor \SP pt}

\newdimen\@@***@n
\newdimen\Plus@@***@n
\newdimen\Minus@@***@n

\def\***@rm@***@rDim@n[#1,#2,#3,#4]{%
\@@***@n = #2pt \multiply \@@***@n by #1 \divide \@@***@n by 10
\Plus@@***@n = #3pt \multiply \Plus@@***@n by #1
\divide \Plus@@***@n by 10
\Minus@@***@n = #4pt \multiply \Minus@@***@n by #1
\divide \Minus@@***@n by 10\relax}


%----------------------------
% Définition de la taille xpt
%----------------------------
\def\xpoint[#1]{% #1 = Taille du corps "texte"
%\ifnum#1=10 \relax\else % Pas la peine de reconstruire la taille 10 points
%
%%%%%%%%% Baptme des fontes %%%%%%%%%
% ---------------------
% Text fonts (ten...) :
% ---------------------
\***@leF@ctor=#1
\ifnum \***@leF@ctor<5 \***@leF@ctor=5 \fi % to avoid very small text size!
% \multiply\***@leF@ctor by 100
%
\***@ice[cmr,#1]% % roman
\font \tenrm cmr\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmmi,#1]% % math italic
\font \tenmi cmmi\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\tenmi ='177 % for placement of accents
%
\***@ice[cmmib,#1]% % bold math italic
\font \tenmib cmmib\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\tenmib ='177 % for placement of accents
%
\***@ice[cmsy,#1]% % math symbols
\font \tensy cmsy\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\tensy ='60 % for placement of math accents
%
\***@ice[cmbsy,#1]% % bold math symbols
\font \tensyb cmbsy\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\tensyb ='60 % for placement of math accents
%
\***@ice[cmex,#1]% % exteded math symbols
\font \tenex cmex\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmti,#1]% % text italic
\font \tenit cmti\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmsl,#1]% % text slanted
\font \tensl cmsl\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmbx,#1]% % extended bold text
\font \tenbf cmbx\the\MaxSiz@ \***@ntSc@le[#1]
%
%% \***@ice[cmbxsl,#1]% % extended slanted bold text
%% \font \tenbfsl cmbxsl\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmtt,#1]% % typewriter
\font \tentt cmtt\the\MaxSiz@ \***@ntSc@le[#1]
%
%% \***@ice[cmsltt,#1]% % typewriter slanted
%% \font \tenttsl cmsltt\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmss,#1]% % sans serif
\font \tenss cmss\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmssi,#1]% % sans serif italic
\font \tenssi cmssi\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmssbx,#1]% % sans serif bold
\font \tenssbf cmssbx\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmcsc,#1]% % small caps
\font \tensc cmcsc\the\MaxSiz@ \***@ntSc@le[#1]
%
% ----------------
% Script fonts :
% ----------------
\***@leF@ctor=#1 \multiply\***@leF@ctor by 7
\advance\***@leF@ctor by 5 \divide\***@leF@ctor by 10 % cint(#1*0.7)
\ifnum \***@leF@ctor<5 \***@leF@ctor=5 \fi
%
%% \multiply\***@leF@ctor by 100
%
\***@ice[cmr,\the\***@leF@ctor]% % roman
\font \sevenrm cmr\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmmi,\the\***@leF@ctor]% % math italic
\font \sevenmi cmmi\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\sevenmi ='177 % for placement of accents
%
\***@ice[cmmib,\the\***@leF@ctor]% % bold math italic HH
\font \sevenmib cmmib\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\sevenmib ='177 % for placement of accents
%
\***@ice[cmsy,\the\***@leF@ctor]% % math symbols
\font \sevensy cmsy\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\sevensy ='60 % for placement of math accents
%
\***@ice[cmbsy,\the\***@leF@ctor]% % bold math symbols
\font \sevensyb cmbsy\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\sevensyb ='60 % for placement of math accents
%
\***@ice[cmex,\the\***@leF@ctor]% % exteded math symbols
\font \sevenex cmex\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmti,\the\***@leF@ctor]% % text italic
\font \sevenit cmti\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmsl,\the\***@leF@ctor]% % text slanted
\font \sevensl cmsl\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmbx,\the\***@leF@ctor]% % extended bold text
\font \sevenbf cmbx\the\MaxSiz@ \***@ntSc@le[#1]
%
%% \***@ice[cmbxsl,\the\***@leF@ctor]% % extended slanted bold text
%% \font \sevenbfsl cmbxsl\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmtt,\the\***@leF@ctor]% % typewriter
\font \seventt cmtt\the\MaxSiz@ \***@ntSc@le[#1]
%
%% \***@ice[cmsltt,\the\***@leF@ctor]% % typewriter slanted
%% \font \seventtsl cmsltt\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmss,\the\***@leF@ctor]% % sans serif HH
\font \sevenss cmss\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmssi,\the\***@leF@ctor]% % sans serif italic
\font \sevenssi cmssi\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmssbx,\the\***@leF@ctor]% % sans serif bold
\font \sevenssbf cmssbx\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmcsc,\the\***@leF@ctor]% % small caps
\font \sevensc cmcsc\the\MaxSiz@ \***@ntSc@le[#1]
%&
% ----------------
% ScriptScript fonts :
% ----------------
\***@leF@ctor=#1 \multiply\***@leF@ctor by 5
\advance\***@leF@ctor by 5 \divide\***@leF@ctor by 10 % cint(#1*0.5)
\ifnum \***@leF@ctor<5 \***@leF@ctor=5 \fi
%
%% \multiply\***@leF@ctor by 100
%
\***@ice[cmr,\the\***@leF@ctor]% % roman
\font \fiverm cmr\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmmi,\the\***@leF@ctor]% % math italic
\font \fivemi cmmi\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\fivemi ='177 % for placement of accents
%
\***@ice[cmmib,\the\***@leF@ctor]% % bold math italic HH
\font \fivemib cmmib\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\fivemib ='177 % for placement of accents
%
\***@ice[cmsy,\the\***@leF@ctor]% % math symbols
\font \fivesy cmsy\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\fivesy ='60 % for placement of math accents
%
\***@ice[cmbsy,\the\***@leF@ctor]% % bold math symbols
\font \fivesyb cmbsy\the\MaxSiz@ \***@ntSc@le[#1]
\skewchar\fivesyb ='60 % for placement of math accents
%
\***@ice[cmex,\the\***@leF@ctor]% % exteded math symbols
\font \fiveex cmex\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmti,\the\***@leF@ctor]% % text italic
\font \fiveit cmti\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmsl,\the\***@leF@ctor]% % text slanted
\font \fivesl cmsl\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmbx,\the\***@leF@ctor]% % extended bold text
\font \fivebf cmbx\the\MaxSiz@ \***@ntSc@le[#1]
%
%% \***@ice[cmbxsl,\the\***@leF@ctor]% % extended slanted bold text
%% \font \fivebfsl cmbxsl\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmtt,\the\***@leF@ctor]% % typewriter
\font \fivett cmtt\the\MaxSiz@ \***@ntSc@le[#1]
%
%% \***@ice[cmsltt,\the\***@leF@ctor]% % typewriter slanted
%% \font \fivettsl cmsltt\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmss,\the\***@leF@ctor]% % sans serif
\font \fivess cmss\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmssi,\the\***@leF@ctor]% % sans serif italic
\font \fivessi cmssi\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmssbx,\the\***@leF@ctor]% % sans serif bold
\font \fivessbf cmssbx\the\MaxSiz@ \***@ntSc@le[#1]
%
\***@ice[cmcsc,\the\***@leF@ctor]% % small caps
\font \fivesc cmcsc\the\MaxSiz@ \***@ntSc@le[#1]
%
%------------------------------------------%
%%%%%%%%% Constitution de familles %%%%%%%%%
%------------------------------------------%
%
% cmr :
\textfont0=\tenrm \scriptfont0=\sevenrm
\scriptscriptfont0=\fiverm \def\rm{\fam0\tenrm}%
%
% cmmi :
\textfont1=\tenmi \scriptfont1=\sevenmi
\scriptscriptfont1=\fivemi \def\oldstyle{\fam1\tenmi}%
\def\mit{\fam1\tenmi}%
%
% cmmib :
\textfont\mibfam=\tenmib \scriptfont\mibfam=\sevenmib
\scriptscriptfont\mibfam=\fivemib \def\mib{\fam\mibfam\tenmib}%
%
% cmsy :
\textfont2=\tensy \scriptfont2=\sevensy
\scriptscriptfont2=\fivesy
%
% cmbsy :
\textfont\sybfam=\tensyb \scriptfont\sybfam=\sevensyb
\scriptscriptfont\sybfam=\fivesyb \def\syb{\fam\sybfam\tensyb}%
%
% cmex :
\textfont3=\tenex \scriptfont3=\sevenex \scriptscriptfont3=\fiveex
%
% cmti :
\textfont\itfam=\tenit \scriptfont\itfam=\sevenit
\scriptscriptfont\itfam=\fiveit \def\it{\fam\itfam\tenit}%
%
% cmsl :
\textfont\slfam=\tensl \scriptfont\slfam=\sevensl
\scriptscriptfont\slfam=\fivesl \def\sl{\fam\slfam\tensl}%
%
% cmbx :
\textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf
\scriptscriptfont\bffam=\fivebf \def\bf{\fam\bffam\tenbf}%
%
% cmbxsl :
%% \textfont\bfslfam=\tenbfsl \scriptfont\bfslfam=\sevenbfsl
%% \scriptscriptfont\bfslfam=\fivebfsl \def\bfsl{\fam\bfslfam\tenbfsl}%
%
% cmtt :
\textfont\ttfam=\tentt \scriptfont\ttfam=\seventt
\scriptscriptfont\ttfam=\fivett \def\tt{\fam\ttfam\tentt\def\_{\char95}}%
%
% cmttsl :
%% \textfont\ttslfam=\tenttsl \scriptfont\ttslfam=\seventtsl
%% \scriptscriptfont\ttslfam=\fivettsl \def\ttsl{\fam\ttslfam\tenttsl}%
%
% cmss :
\textfont\ssfam=\tenss \scriptfont\ssfam=\sevenss
\scriptscriptfont\ssfam=\fivess \def\ss{\fam\ssfam\tenss}%
%
% cmssi :
\textfont\ssifam=\tenssi \scriptfont\ssifam=\sevenssi
\scriptscriptfont\ssifam=\fivessi \def\ssi{\fam\ssifam\tenssi}%
%
% cmssbx :
\textfont\ssbffam=\tenssbf \scriptfont\ssbffam=\sevenssbf
\scriptscriptfont\ssbffam=\fivessbf \def\ssbf{\fam\ssbffam\tenssbf}%
%
% cmscsc :
\textfont\scfam=\tensc \scriptfont\scfam=\sevensc
\scriptscriptfont\scfam=\fivesc \def\sc{\fam\scfam\tensc}%
%
%
\***@rm@***@rDim@n[#1,6,1,3]%
\abovedisplayskip=\@@***@n plus \Plus@@***@n minus \Minus@@***@n
%%\abovedisplayskip=6pt plus 1pt minus 3pt % Space above displayed equations
%
\***@rm@***@rDim@n[#1,0,3,0]%
\abovedisplayshortskip=\@@***@n plus \Plus@@***@n
%%\abovedisplayshortskip=0pt plus 3pt % Ditto, following short lines
%
\belowdisplayskip=\abovedisplayskip % Space after displayed equations
%
\***@rm@***@rDim@n[#1,6,1,3]%
\belowdisplayshortskip=\@@***@n plus \Plus@@***@n minus \Minus@@***@n
%%\belowdisplayshortskip=6pt plus 1pt minus 3pt % Ditto, following short lines
%
\***@rm@***@rDim@n[#1,3,1,1]%
\smallskipamount=\@@***@n plus \Plus@@***@n minus \Minus@@***@n
%%\smallskipamount=3pt plus 1pt minus 1pt %
%
\***@rm@***@rDim@n[#1,6,2,2]%
\medskipamount=\@@***@n plus \Plus@@***@n minus \Minus@@***@n
%%\medskipamount=6pt plus 2pt minus 2pt
%
\***@rm@***@rDim@n[#1,12,4,4]%
\bigskipamount=\@@***@n plus \Plus@@***@n minus \Minus@@***@n
%%\bigskipamount=12pt plus 4pt minus 4pt
%
\***@rm@***@rDim@n[#1,12,0,0]%
\normalbaselineskip=\@@***@n
%%\normalbaselineskip=12pt
%
\***@rm@***@rDim@n[#1,1,0,0]%
\normallineskip=\@@***@n
%%\normallineskip=1pt
%
\normallineskiplimit=0pt
\normalbaselines
%
%%\topskip=10pt %% as defined in Plain
%%\splittopskip=10pt %% idem
%%\parfillskip=0pt plus 1fil %% idem
%
\***@rm@***@rDim@n[#1,8.5,3.5,0]%
\setbox\strutbox=\hbox{\vrule height\@@***@n depth\Plus@@***@n width\z@}%
%%\setbox\strutbox=\hbox{\vrule height8.5pt depth3.5pt width\z@}
\x@=8.5\p@%
\multiply \x@ by #1%
\divide \x@ by 10%
\def\big##1{{\hbox{$\left##1\vbox to \x@{}\right.\***@space$}}}%
\x@@=11.5\p@%
\multiply \x@@ by #1%
\divide \x@@ by 10%
\def\Big##1{{\hbox{$\left##1\vbox to \x@@{}\right.\***@space$}}}%
\x@@@=14.5\p@%
\multiply \x@@@ by #1%
\divide \x@@@ by 10%
\def\bigg##1{{\hbox{$\left##1\vbox to \x@@@{}\right.\***@space$}}}%
\x@@@@=17.5\p@%
\multiply \x@@@@ by #1%
\divide \x@@@@ by 10%
\def\Bigg##1{{\hbox{$\left##1\vbox to \x@@@@{}\right.\***@space$}}}%
\rm}

\def\_{\leavevmode \raise-1.0ex\hbox{\char123}}

\def\eightpoint{\xpoint[8]\relax}
\def\ninepoint{\xpoint[9]\relax}

\catcode`\@=\catampersand

\endinput

Loading...