X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=test%2Ftest22-ltjs-mag.tex;h=e0aecc0b8dd68f27c4f6b899faeabbffd83e1fe5;hb=26649839d59f6fb2d9517806a2850200a16895bc;hp=4fa3941e6af36871cd66edf3ea4a91e5f04174b4;hpb=aaee6f5d2ec4639dc1f7bf4ee0e7c5111a70d6ce;p=luatex-ja%2Fluatexja.git

diff --git a/test/test22-ltjs-mag.tex b/test/test22-ltjs-mag.tex
index 4fa3941..e0aecc0 100644
--- a/test/test22-ltjs-mag.tex
+++ b/test/test22-ltjs-mag.tex
@@ -1,16 +1,70 @@
-\documentclass[14pt,xreal]{ltjsarticle}
-\usepackage{type1cm}
+\batchmode\directlua{
+  luatexbase.module_warning=function()end
+}
+\ifdefined\fsize\else\def\fsize{10pt}\fi
+\edef\head{\noexpand\documentclass[\fsize,xreal]{ltjsarticle}}
+\head\usepackage{type1cm}
 \makeatletter
-\def\R#1{{#1\typeout{\string#1: \fontname\font}}}
-\begin{document}
+\let\ltj@selectfont@patch\relax
+\newcount\cI\newcount\cF\newdimen\szd
+\gdef\S@#1at#2at#3\@nil{%
+   \def\@tempa{#2}
+   \ifx\@tempa\@empty\else
+      \@tempdima=\dimexpr#2-\@tempdimb\relax
+      \ifdim\@tempdima<\z@ \@tempdima=\@tempdima\fi
+      \ifdim\@tempdima>\szd \global\szd=\@tempdima\fi
+   \fi
+}
+\def\S#1{%
+  \setbox0\hbox{\fontsize{#1\js@mpt}{10}\selectfont
+    \@tempdimb=#1\js@mpt
+    \edef\@tempa{\scantextokens\expandafter{\fontname\font}\space at\space at}%
+    \expandafter\S@\@tempa\@nil
+  }%
+}
+\def\js@setfontsize#1#2#3{%
+  \edef\Fsize{\the\dimexpr\directlua{tex.sprint(#2*\js@magscale)}pt}%
+  \@setfontsize#1{#2\js@mpt}{#3\js@mpt}}
+\def\R#1{{%
+  #1\message{^^J\string#1: \fontname\font\space (ideal: \Fsize)}%
+}}
 
-\R\tiny
-\R\scriptsize
-\R\footnotesize
-\R\small
-\R\normalsize
-\R\large
-\R\Large
-\R\LARGE
-\R\huge
+\def\T@#1#2#3{\global\count@=}
+\def\T#1#2{%
+  \setbox0\hbox{\fontsize{#1\js@mpt}{10}\selectfont
+    \expandafter\T@\romannumeral-`0\fontname\font
+  }%
+  \ifnum\count@=#2\else
+    \typeout{@FAIL: #1\string\js@mpt\space selects cmr\the\count@
+    \space(should be cmr#2)}\szd=1pt%
+  \fi
+}
+\begin{document}\errorstopmode
+\typeout{^^J@part 1: optical size for cmr}
+\szd=0pt
+\T{5.99999}{5}
+\T66
+\T{6.99999}{6}
+\T77
+\T{7.99999}{7}
+\T88
+\T{8.99999}{8}
+\T99
+\T{9.99999}{9}
+\T{10}{10}
+\T{11.99999}{10}
+\T{12}{12}
+\T{16.99999}{12}
+\T{17}{17}
+\ifdim\szd=0pt\typeout{--> @PASSED}\fi
+
+\typeout{^^J@part 2: size difference}
+\cI=1 \loop\ifnum\cI<50 {%
+  \cF=0 \loop\ifnum\cF<10
+    \edef\@tempa{\the\cI.\the\cF}\S{\@tempa}
+    \edef\@tempa{\the\cI.\the\cF5}\S{\@tempa}
+    \advance\cF1
+  \repeat
+}\advance\cI1 \repeat
+\directlua{print('--> @max difference = ' .. tex.getdimen('szd') .. 'sp')}
 \end{document}