2 luatexbase.module_warning=function()end
4 \ifdefined\fsize\else\def\fsize{10pt}\fi
5 \edef\head{\noexpand\documentclass[\fsize,xreal]{ltjsarticle}}
6 \head\usepackage[OT1]{fontenc}\def\rmdefault{cmr}
7 \usepackage{type1cm}\normalfont\noralsize
9 \let\ltj@selectfont@patch\relax
10 \newcount\cI\newcount\cF\newdimen\szd
11 \gdef\S@#1at#2at#3\@nil{%
13 \ifx\@tempa\@empty\else
14 \@tempdima=\dimexpr#2-\@tempdimb\relax
15 \ifdim\@tempdima<\z@ \@tempdima=\@tempdima\fi
16 \ifdim\@tempdima>\szd \global\szd=\@tempdima\fi
20 \setbox0\hbox{\fontsize{#1\jsc@mpt}{10}\selectfont
22 \edef\@tempa{\scantextokens\expandafter{\fontname\font}\space at\space at}%
23 \expandafter\S@\@tempa\@nil
26 \def\js@setfontsize#1#2#3{%
27 \edef\Fsize{\the\dimexpr\directlua{tex.sprint(#2*\js@magscale)}pt}%
28 \@setfontsize#1{#2\jsc@mpt}{#3\jsc@mpt}}
30 #1\message{^^J\string#1: \fontname\font\space (ideal: \Fsize)}%
33 \def\T@#1#2#3{\global\count@=}
35 \setbox0\hbox{\fontsize{#1\jsc@mpt}{10}\selectfont
36 \expandafter\T@\romannumeral-`0\fontname\font
39 \typeout{@FAIL: #1\string\jsc@mpt\space selects cmr\the\count@
40 \space(should be cmr#2)}\szd=1pt%
43 \begin{document}\errorstopmode
44 \typeout{^^J@part 1: optical size for cmr}
60 \ifdim\szd=0pt\typeout{--> @PASSED}\fi
62 \typeout{^^J@part 2: size difference}
63 \cI=1 \loop\ifnum\cI<50 {%
64 \cF=0 \loop\ifnum\cF<10
65 \edef\@tempa{\the\cI.\the\cF}\S{\@tempa}
66 \edef\@tempa{\the\cI.\the\cF5}\S{\@tempa}
70 \directlua{print('--> @max difference = ' .. tex.getdimen('szd') .. 'sp')}