Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!waseda-mail!wsdnws!musashi-tech!ops!uainoue
From: uainoue@ipc.musashi-tech.ac.jp (INOUE Koichi)
Subject: Re: [asobi nimo naranai TeX]: maru.sty
In-Reply-To: oki@oq-usi.ee.kyushu-u.ac.jp's message of 11 Mar 94 09:17:35 GMT
Message-ID: <UAINOUE.94Mar16171820@jupost.ipc.musashi-tech.ac.jp>
Lines: 70
Sender: usenet@musashi-tech.ac.jp
Nntp-Posting-Host: jupost
Organization: Musashi Institute of Technology
References: <OKI.94Mar11181735@oq-usi.ee.kyushu-u.ac.jp>
Distribution: fj
Date: Wed, 16 Mar 1994 08:18:20 GMT
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:4655
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=4655&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$$$N$&$($G$9!#(B

In article <OKI.94Mar11181735@oq-usi.ee.kyushu-u.ac.jp> oki@oq-usi.ee.kyushu-u.ac.jp (OKI Yuji) writes:
>\def\maru#1{%
>\settowidth{\unitlength}{$\bigcirc$}%
>\divide\unitlength by 100%
>\begin{picture}(100,100)(0,0)%
>\put(50,30){\makebox(0,0){$\bigcirc$}}%
>\put(50,30){\makebox(0,0){#1}}%
>\end{picture}%
>}

$B$3$N(B50,30$B$O$$$m$$$m$d$C$F7h$a$?$N$G$7$g$&$+!)(Bpicture$B4D6-$O=E$=$&$J$N$G!"(B
\ooalign$B$r;H$&$H$$$$$H;W$$$^$9!#!J(BplainTeX$B$N%^%/%m$G!"(BLaTeX$B$G$b;H$($?$O(B
$B$:!K(B

-----------------------------------------------------------------------
\def\oalign#1{\leavevmode\vtop{\baselineskip\z@skip \lineskip.25ex%
\ialign{##\crcr#1\crcr}}}

% put characters over each other

\def\ooalign{\lineskiplimit-\maxdimen \oalign}

% LaTeX change: \d, \b, \c redefined to work in a moving argument.

\def\pd#1{\oalign{#1\crcr\hidewidth.\hidewidth}}
\def\d{\protect\pd}
\def\pb#1{\oalign{#1\crcr\hidewidth \vbox
to.2ex{\hbox{\char22}\vss}\hidewidth}}
\def\b{\protect\pb}
\def\pc#1{\setbox\z@\hbox{#1}\ifdim\ht\z@=1ex\accent24 #1%
\else{\ooalign{\hidewidth\char24\hidewidth\crcr\unhbox\z@}}\fi}
\def\c{\protect\pc}

% end of LaTeX change to \d, \b, \c

\def\copyright{{\ooalign{\hfil\raise.07ex\hbox{c}\hfil\crcr\mathhexbox20D}}}
------------------------------------------------------------------------

\ialign$B$O(B\tabskip$B$r$"$i$+$8$a(B0pt$B$K$7$F$N(B\halign$B$G$9!#$H$$$&$o$1$G!"(B
\oalign$B$O>e2<$K(B0.25ex$BN%$7$F=E$M$?$b$N$r(Bvbox$B$KF~$l!";2>HE@$r0lHV>e$N%i%$(B
$B%s$K9g$o$;$^$9!J(Bvtop$B!K!#(B
\ooalign$B$O!">e2<$K=E$M$k$N$G$O$J$/!"!V$+$V$;!W$^$9!#(B
$B!J(B\lineskiplimit-\maxdimen$B$O!"#29T$,$I$s$J$K6a4s$C$F$b(B\lineskip$B$r;H$o$J(B
$B$$$H$$$&;XDj!K(B
\hidewidth$B$O!"(B\hskip-\maxdimen plus 1fill $B$@$C$?$+$J!)D9$5$O$[$H$s$I%^%$(B
$B%J%9L58B$@$,L58B$K?-$S$k%0%k!<$G$9!#2?$N$?$a$K$3$s$J$b$N$,$"$k$N$+$H$$$&(B
$B$H!"(B
\ooalign{\hfil AAAA\hfil\cr \hfil B\hfil}
$B$G$O!"(B\hfil$B$OL58B$K?-$S$k%0%k!<$J$N$G!"(BAAAA$B$N??Cf$K(BB$B$,=E$J$j$^$9$,!"$=$N(B
$B7k2L$G$-$?%\%C%/%9$NI}$OBg$-$$J}$N(BAAAA$B$NI}$K$J$k$N$r!"(B
\ooalign{\hidewidth AAAA\hidewidth\cr B}
$B$G$O!"7k2L$OF1$8$G$9$,(BB$B$NI}$K$J$k$N$G$=$NJ}$,ET9g$,NI$$$3$H$b$"$k$H$$$&(B
$B$o$1$G$9!#!JB>$K$bM}M3$O$"$k$H;W$&!#>e5-$N$O;d$NFI$_2r$-$G$9!#!K(B

$B$F$J$3$H$G!"(B
\def\maru#1{{\ooalign{\hfil#1\hfil\cr$\bigcirc$}}
$B$8$c$@$a$+$J$"!#(B$\bigcirc$$B$r(B\raise...\hbox{$\bigcurc$}$B$NJ}$,NI$$$+$bCN$l(B
$B$^$;$s!#$^$?!"Cf$KF~$k$b$N$K$h$C$F4]$NBg$-$5$rJQ$($k$N$J$i!"0lC6(B\box0$B$K(B
$BF~$l$F!"I}$r7W$j!"$=$l$K9g$o$;$F!J(B\ifdim$B;H$&!K(B$\bigcirc$$B$NBg$-$5$rJQ99$9(B
$B$k%^%/%m$H$J$k!)(B

$B!t$*K+$a$KM?$C$F62=L$G$9!#(B
--
         $BCg(B        $BCg(B
---$BJbJbJbJbJbJbJbJbJbJbJbJb(B---------------------------------------------
   $B2#C(HtGON6;bK[N6GOHtC(2#(B                                    $B0f>e9@0l(B
   $BH?(B  $B3Q(B  $B8WsJK18W(B  $B3Q(B  $BH?(B     e-mail : uainoue@ipc.musashi-tech.ac.jp
---$B9aI?F<6d6b2&>]6b6dF<I?9a(B--------------$B$=$l$G$b;d$OM}@-$r?.$8$F$$$^$9(B-
