test/test22-ltjs-mag.tex

   1 \batchmode
   2 %\loggingall
   3 \directlua{
   4   luatexbase.module_warning=function()end
   5 }
   6 \ifdefined\fsize\else\def\fsize{10pt}\fi
   7 \edef\head{\noexpand\documentclass[\fsize,nomag*]{ltjsarticle}}
   8 \head%\listfiles
   9 \usepackage{type1cm}\usepackage[OT1]{fontenc}
  10 \def\rmdefault{cmr}
  11 \makeatletter
  12 \let\ltj@selectfont@patch\relax
  13 \newcount\cI\newcount\cF\newdimen\szd
  14 \gdef\S@#1at#2at#3\@nil{%
  15    \def\@tempa{#2}
  16    \ifx\@tempa\@empty\else
  17       \@tempdima=\dimexpr#2-\@tempdimb\relax
  18       \ifdim\@tempdima<\z@ \@tempdima=\@tempdima\fi
  19       \ifdim\@tempdima>\szd \global\szd=\@tempdima\fi
  20    \fi
  21 }
  22 \def\S#1{%
  23   \setbox0\hbox{\fontsize{#1\jsc@mpt}{10}\selectfont
  24     \@tempdimb=#1\jsc@mpt
  25     \edef\@tempa{\scantextokens\expandafter{\fontname\font}\space at\space at}%
  26     \expandafter\S@\@tempa\@nil
  27   }%
  28 }
  29 \def\ltjs@setfontsize#1#2#3{%
  30   \edef\Fsize{\the\dimexpr\directlua{tex.sprint(#2*\jsc@magscale)}pt}%
  31   \@setfontsize#1{#2\jsc@mpt}{#3\jsc@mpt}}
  32 \def\R#1{{%
  33   #1\message{^^J\string#1: \fontname\font\space (ideal: \Fsize)}%
  34 }}
  35
  36 \def\T@#1#2#3{\global\count@=}
  37 \def\T#1#2{%
  38   \setbox0\hbox{\fontsize{#1\jsc@mpt}{10}\selectfont
  39     \expandafter\T@\romannumeral-`0\fontname\font
  40   }%
  41   \ifnum\count@=#2\else
  42     \typeout{@FAIL: #1\string\ljsc@mpt\space selects cmr\the\count@
  43     \space(should be cmr#2)}\szd=1pt%
  44   \fi
  45 }
  46 \begin{document}\errorstopmode
  47 \typeout{^^J@part 1: optical size for cmr}
  48 \szd=0pt
  49 \T{5.99999}{5}
  50 \T66
  51 \T{6.99999}{6}
  52 \T77
  53 \T{7.99999}{7}
  54 \T88
  55 \T{8.99999}{8}
  56 \T99
  57 \T{9.99999}{9}
  58 \T{10}{10}
  59 \T{11.99999}{10}
  60 \T{12}{12}
  61 \T{16.99999}{12}
  62 \T{17}{17}
  63 \ifdim\szd=0pt\typeout{--> @PASSED}\fi
  64
  65 \typeout{^^J@part 2: size difference}
  66 \cI=1 \loop\ifnum\cI<50 {%
  67   \cF=0 \loop\ifnum\cF<10
  68     \edef\@tempa{\the\cI.\the\cF}\S{\@tempa}
  69     \edef\@tempa{\the\cI.\the\cF5}\S{\@tempa}
  70     \advance\cF1
  71   \repeat
  72 }\advance\cI1 \repeat
  73 \directlua{print('--> @max difference = ' .. tex.getdimen('szd') .. 'sp')}
  74 \end{document}