racket/collects/texpict/mztp.sty
2005-05-27 18:56:37 +00:00

10 lines
239 B
TeX

\newwrite\mztpOUT
\newbox\mztpBOX
\immediate\openout\mztpOUT=\jobname.mztp
\newcommand{\mztpMeasure}[2]{%
\setbox\mztpBOX\hbox{#1}%
\immediate\write\mztpOUT{#2 \the\wd\mztpBOX\space\the\ht\mztpBOX\space\the\dp\mztpBOX}%
\usebox\mztpBOX}