Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!jingw!info-jindai!s905558
From: s905558@educ.info.kanagawa-u.ac.jp (Hiroyuki Hiramatsu)
Subject: about screen
Message-ID: <S905558.92Dec2164746@purple.educ.info.kanagawa-u.ac.jp>
Lines: 52
Sender: news@educ.info.kanagawa-u.ac.jp
Organization: Faculty of Science , Kanagawa Univ., Kanagawa, Japan.
Distribution: fj
Date: Wed, 2 Dec 1992 07:47:48 GMT
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:3059
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=3059&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$O$8$a$F!"Ej9F$7$^$9!#J?>>!w?@F`@nBg$G$9!#<:Ni$,$"$C$?$i$9$_$^$;$s!#(B

$B$9$3$7!"(BTeX$B$N%^%/%m$,FI$a$k$h$&$K$J$C$?$N$G!"(B
$BF|:"$h$/;H$&!"(Bascmac.sty$B$N(Bscreen$B4D6-$rFI$s$G$_$^$7$?!#(B
$B$=$3$G!"$J$<$=$&$J$C$F$k$N$+$o$+$i$J$$=j$,$"$C$?$N$G!"(B
$B<ALd$7$^$9!#(B
$B0J2<$K!"$=$NItJ,$r0zMQ$7$^$9!#(B
% ascmac.sty 10/28 '88
% ASCII special macros
$B!JCfN,!K(B
%% screen environment
\newdimen\@scw
\def\@hobox#1#2#3{\hbox to\@scw{\@oval(#3,#3)[#1]\hfil\@oval(#3,#3)[#2]}}
\def\@vrf@#1#2{\vskip#1\leaders\vrule width#2\vfil\vskip#1}
\def\screen{\@ifnextchar[{\@screen}{\@screen[0]}}
\def\@screen[#1]{\ifcase#1\def\@r{20}\def\@s{9.8pt}\def\@sx{10pt}\or
\def\@r{18}\def\@s{8.8pt}\def\@sx{9pt}\or
\def\@r{16}\def\@s{7.8pt}\def\@sx{8pt}\or
\def\@r{14}\def\@s{6.8pt}\def\@sx{7pt}\or
\def\@r{12}\def\@s{5.8pt}\def\@sx{6pt}\or
\def\@r{10}\def\@s{4.8pt}\def\@sx{5pt}\or
\def\@r{8}\def\@s{3.8pt}\def\@sx{4pt}\or
\def\@r{6}\def\@s{2.8pt}\def\@sx{3pt}\else
\def\@r{4}\def\@s{1.8pt}\def\@sx{2pt}\fi
\par\vspace{.3\baselineskip}\@scw\linewidth \advance\@scw -\@r pt
\setbox\scb@x=\hbox\bgroup\begin{minipage}{\@scw}}%
\def\endscreen{\end{minipage}\egroup%
\setbox\scscb@x=\hbox to\linewidth{\hfil\vbox{\offinterlineskip%
\thinlines\setlength{\unitlength}{1pt}\hrule\kern\@s%
\@hobox{tl}{tr}{\@r}\kern-\@sx\box\scb@x\@hobox{bl}{br}{\@r}%
\kern-.4pt\hrule}\hfil}\dimen0=\ht\scscb@x%
\noindent\hbox to\linewidth{\hbox to.2pt{\vbox to\dimen0{\@vrf@{\@sx}{.4pt}}%
                                    ^^^^ 
\hss}\box\scscb@x\hbox to.25pt{\hss\vbox to\dimen0{\@vrf@{\@sx}{.4pt}}}\hss}}%
                         ^^^^^
%%
$B!J8eN,!K(B

$B$^$:!"0u(B^$B$,$D$$$?$H$3$m$r8+$F2<$5$$!#(B
$B;O$a$N%\%C%/%9$N$O!"(B\hrule$B$N%G%U%)%k%H(B(0.4pt)$B$NI}$NH>J,(B(0.2pt)$B$NI}$K(B
$B$J$C$F$$$^$9!#(B
$B$7$+$7!"8e$N%\%C%/%9$O!"I}$,(B(0.25pt)$B$G$9!#(B
$B$3$N!"%\%C%/%9$NI}$N:9(B0.05$B$J$N$O!"2?$N$?$a$J$N$G$7$g$&$+!)(B
$B$*65$(2<$5$$!#(B

0.05pt$B$J$N$G!"<B:]$KJQ$($F$b0c$$$,$o$+$j$^$;$s!#(B
$B@'Hs!"65$($F2<$5$$!#(B
--
\begin{signature}
s905558@educ.info.kanagawa-u.ac.jp
          \rightline{$B?@F`@nBg3X(B $BM}3XIt(B $B>pJs2J3X2J(B 3$BG/(B 25558$BHV(B       $BJ?>>(B $B909T(B}
\end{signature}
