Ç÷¹ÀÎÅØÀ¸·Î ½ÇÇàÇÒ °Í.
\input eplain
\input realcalc
\beginpackages
\usepackage{color}
\endpackages
\magnification = 6000
\newdimen\fontpt \fontpt=10pt
\def\newfont{ \font\nextfont = cmbx10 at \fontpt \relax \nextfont}
\def\x{0.0}
\def\dimin#1{\ifx#1\end \let\next=\relax
\else\divide\fontpt by \magstephalf \multiply\fontpt by 1000
\Radd\x\x{0.02}\definecolor{mycolor}{rgb}{\x,\x,\x}%
\newfont\kern-1.8\fontpt \leavevmode\raise-1.8\fontpt
\hbox{\color{mycolor}#1}\negthinspace \let\next=\dimin\fi \next}
\fontpt=10pt \newfont
\newcount\n \n=0
\centerline{\begingroup\aftergroup\dimin
\loop\ifnum\n<50 \aftergroup\TeX \advance\n1 \repeat
\aftergroup\end\endgroup}
\bye