Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!nirvana.cs.titech!wnoc-tyo-news!waseda-mail!wsdnws!musashi-tech!ops!uainoue
From: uainoue@ipc.musashi-tech.ac.jp (INOUE Koichi)
Subject: [asobi no TeX] wakubun.sty
Message-ID: <UAINOUE.94Jan26182105@jupost.ipc.musashi-tech.ac.jp>
Lines: 27
Sender: usenet@musashi-tech.ac.jp
Nntp-Posting-Host: jupost
Organization: Musashi Institute of Technology
Distribution: fj
Date: Wed, 26 Jan 1994 09:21:05 GMT
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:4485
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=4485&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

$B30OH$N$"$kJ8=q$r:n$j$^$9!#!J$3$s$J<BMQE*!J$=$&$+!)!K$J$b$N:n$C$F$k$h$&$8$c(B
$B$$$+$s$J$"!K(B

---------------------wakubun.sty------------------------------------------
\newtoks\latexoutput
\newdimen\frameheight
\newdimen\framewidth
\frameheight\textheight
\advance\frameheight2\baselineskip
\framewidth\textwidth
\advance\framewidth4em
\latexoutput\output
\output{\setbox255\vbox{\baselineskip0pt\lineskip0pt\copy\bodyframe\unvbox255}\the\latexoutput}
\newbox\bodyframe
\setbox\bodyframe\vbox to \frameheight{\leaders\vrule\vfill}
\ht\bodyframe0pt
\setbox\bodyframe\vbox to \frameheight{\hbox to
\framewidth{\copy\bodyframe\hrulefill\box\bodyframe}\vfill\hbox to
\framewidth{\hrulefill}}
\setbox\bodyframe\vbox{\kern-\baselineskip\hbox{\kern-2em\box\bodyframe}}
\ht\bodyframe0pt
------------------------------------------------------------------------

$B;H$$J}$O(B\documentstyle[....,wakubun]{....}$B$H$7$F$/$@$5$$!#OH$NB@$5$H$+%^!<(B
$B%8%s$@$H$+$OE,Ev$KD4@a$7$F2<$5$$!#(B
