☰

VTEX で長さをセンチメートル単位で印刷するにはどうすればいいですか?

tag-icon • tag-icon lengths
VTEX で長さをセンチメートル単位で印刷するにはどうすればいいですか? 
\documentclass{article}
\begin{document}
\newdimen\mylength
 \mylength=1in
 \the\mylength
 \end{document}

出力は72.27ptです

しかし、VTeX を使用して出力をセンチメートル単位で表示したいのです。

答え1

Claudio Beccari によるマクロの使用widetable.sty:

\documentclass{article}

\makeatletter
\dimendef\wt@Numer=2
\dimendef\wt@Denom=4
\countdef\wt@Num=2
\countdef\wt@Den=4
\countdef\wt@I=6
\def\wt@segno{}

\def\dividi#1\per#2\in#3{%
  \begingroup
  \wt@Numer #1\relax \wt@Denom #2\relax
  \ifdim\wt@Denom<\z@ \wt@Denom -\wt@Denom \wt@Numer -\wt@Numer\fi
  \ifdim\wt@Numer<\z@ \def\wt@segno{-}\wt@Numer -\wt@Numer\fi
  \ifdim\wt@Denom=\z@
    \edef\wt@Q{\ifdim\wt@Numer<\z@-\fi\strip@pt\maxdimen}%
  \else
    \wt@Num=\wt@Numer \wt@Den=\wt@Denom \divide\wt@Num\wt@Den
    \edef\wt@Q{\number\wt@Num.}%
    \advance\wt@Numer -\wt@Q\wt@Denom \wt@I=6
    \@whilenum \wt@I>\z@ \do{\wt@dividiDec\advance\wt@I\m@ne}%
  \fi
  \edef\x{\noexpand\endgroup\noexpand\def\noexpand#3{\wt@segno\wt@Q}}
  \x
}

\def\wt@dividiDec{%
  \wt@Numer=10\wt@Numer \wt@Num=\wt@Numer \divide\wt@Num\wt@Den
  \edef\wt@q{\number\wt@Num}\edef\wt@Q{\wt@Q\wt@q}%
  \advance\wt@Numer -\wt@q\wt@Denom}

\makeatletter

\newcommand{\convert}[2]{\dividi#1\per 1#2\in\temp\temp\,#2}

\begin{document}

\convert{1in}{pt}

\convert{1in}{cm}

\newlength\mylength
\setlength\mylength{.3in}

\convert{\mylength}{cm}

\end{document}

3桁を超える精度は保証されませんが、十分な精度であるはずです。

ここに画像の説明を入力してください

答え2

ご質問の意味が理解できれば、eTeX プリミティブが利用できない、あまり知られていない TeX システムで単位変換を行う必要があるということですね。まず、これがよい考えかどうか自問してみてください。現在の LaTeX パッケージのほとんどは、eTeX プリミティブを必要とします。

eTeX を使用せずに TeX 単位を変換する必要がある場合は、64 ビット整数演算が利用できないため、精度の低下を覚悟する必要があります。たとえば、次のマクロを次の\printinように使用できます。

\printin{unit}\register

例えば：

\printin{cm}\hsize

レジスタをcm単位で出力します\hsize。\printinマクロは次のように実装できます。

{\lccode`\?=`\p \lccode`\!=`\t  \lowercase{\gdef\ignorept#1?!{#1}}}
\newdimen\tmpdim
\newcount\tmpnum

\def\printin#1#2{%
    \tmpnum=1073741824 \tmpdim=1#1
    \divide\tmpdim by4
    \divide\tmpnum by\tmpdim
    \tmpdim=\the\tmpnum sp
    \tmpdim=\expandafter\ignorept\the#2\tmpdim
    \expandafter\ignorept\the\tmpdim#1%                
}

関連情報