Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!nirvana.cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo-news!atrwide!atr-hr!atr-hr!morinaka
From: morinaka@hip.atr.co.jp (Morinaka Yukari)
Subject: newdimen
Date: Wed, 12 Jan 1994 06:06:45 GMT
Distribution: fj
Organization: ATR Human Information Processing Research Labs., Kyoto, JAPAN
Sender: news@hip.atr.co.jp (USENET News System)
Message-ID: <MORINAKA.94Jan12150645@hochspits.hip.atr.co.jp>
Lines: 57
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:4396
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=4396&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B?9Cf!w#A#T#R$H?=$7$^$9!#(B

NTT jTeX 1.32$B$r;H$C$F$$$^$9!#(B
\newdimen$B$r;H$C$F>.?t7W;;$r$7$F$$$k$N$G$9$,!"7W;;7k2L$N(B
$B>.?tE@0J2<$r@Z<N$F$F!"(Bpicture$B4D6-$NCf$G@0?tI=<($5$;$k$H!"(B
$B%Z!<%8:82<$K@Z$j<N$F$??tCM$,=P$F$7$^$$$^$9!#(B
framebox$B$N0LCV$b$:$l$F$7$^$$$^$9!#(B
$B2r7h$9$k$h$$J}K!$O$J$$$G$7$g$&$+!)(B
$BLdBj$N%=!<%9$O0J2<$NDL$j$G$9!#(B
$B$h$m$7$/$*4j$$CW$7$^$9!#(B

----------------------------------
\documentstyle{j-article}

\newdimen\$B#A9)?t(B
\newdimen\$B#B9)?t(B
\newdimen\$B#C9)?t(B
\newdimen\$B#D9)?t(B
\$B#A9)?t(B=0pt
\$B#B9)?t(B=0pt
\$B#C9)?t(B=0pt
\$B#D9)?t(B=0pt
\newcount\tmp
\newcommand{\$B9)?t(B}[4]{
\global\advance\$B#A9)?t(B by #1pt
\global\advance\$B#B9)?t(B by #2pt
\global\advance\$B#C9)?t(B by #3pt
\global\advance\$B#D9)?t(B by #4pt
}

\begin{document}
\$B9)?t(B{.1}{.2}{.3}{.4}
\$B9)?t(B{.2}{.3}{.4}{.5}
\multiply\$B#A9)?t(B by 100
\multiply\$B#B9)?t(B by 100
\multiply\$B#C9)?t(B by 100
\multiply\$B#D9)?t(B by 100
{\catcode`\p=12\catcode`\t=12\gdef\$B<B?t2=(B#1pt{#1}}
\unitlength 1mm
\begin{picture}(100,100)

\tmp=\expandafter\$B<B?t2=(B\the\$B#A9)?t(B
\put(0,100){\framebox(20,5){\the\tmp}}
\tmp=\expandafter\$B<B?t2=(B\the\$B#B9)?t(B
\put(0,90){\framebox(20,5){\the\tmp}}
\tmp=\expandafter\$B<B?t2=(B\the\$B#C9)?t(B
\put(0,80){\framebox(20,5){\the\tmp}}
\tmp=\expandafter\$B<B?t2=(B\the\$B#D9)?t(B
\put(0,70){\framebox(20,5){\the\tmp}}
\end{picture}
\end{document}
--
.    .  /// ...  ...      .  //.   .
   .    $B!y(B  . 619-02 $B5~ETI\Aj3Z74@:2ZD.8wBf#2CzL\#2(B  .   $B!z(B .     .
. .     .  $B!y(B.  .    $B#A#T#R?M4V>pJsDL?.8&5f=j(B .    $B!z(B.      . . .    .
  .   $B!y(B  .   .$B?9Cf(B  $B$f$+$j(B  morinaka@hip.atr.co.jp    $B!y(B   .    .  .

