Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!etlinn.etl.go.jp!etl.go.jp!trc.rwcp!rwc-tyo!news.iij.ad.jp!rim.or.jp!news.kddnet.ad.jp!news.dvlp.kddnet.ad.jp!news.cs.ritsumei.ac.jp!igakukei!ume2!hagi!chiba-ns!news.chiba-u.ac.jp!news.ipc.chiba-u!eclnews!sinetnews!news.nacsis.ac.jp!alps!cryst!escargot!t-server!news.nc.u-tokyo.ac.jp!news.iis.u-tokyo!isspsun!news
From: aonuma@kappa.issp.u-tokyo.ac.jp (Shuji AONUMA)
Subject: Re: [Q] name cards
Message-ID: <966CBdN.aonuma@kappa.issp.u-tokyo.ac.jp>
To: hideaki@higashi.hit-u.ac.jp
Sender: news@isspsun.issp.u-tokyo.ac.jp
Organization: Institute for Solid State Physics, Tokyo, Japan
References: <4otre7$dr4@sol.cc.hit-u.ac.jp> <4p2vhl$ia3@masamune.dais.is.tohoku.ac.jp>
Date: Wed, 5 Jun 1996 04:18:37 GMT
Lines: 99
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:8009
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=8009&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.

In article <4p2vhl$ia3@masamune.dais.is.tohoku.ac.jp>,
Kazunori Aoshima (aoshimak@dais.is.tohoku.ac.jp) wrote:
|K> hideaki@higashi.hit-u.ac.jp$B$5$s$O=q$-$^$7$?!#(B
|K> =>$B0lKg0lKg$NL>;I$r(Bminipage$B$K$9$k$J$I$7$F!"0u:~NN0h$r(B10$B8D(B
|K> =>$B;XDj$9$l$P$$$$$N$O$o$+$j$^$9$,!"F1$8J8LL$r(B10$B2s7+$j$+$($9(B
|K> =>$B$H$$$&$h$&$J%F%/%K%C%/$,J,$+$j$^$;$s!#$=$N$h$&$J$d$jJ}$,(B
|K> =>$B<($5$l$F$$$k=q@R!"$"$k$$$OF1$8J8LL$r7+$jJV$70u:~$9$k$h$&$J(B
|K> =>$B%F%/%K%C%/$,;HMQ$5$l$F$$$k%9%?%$%k$J$I65$($FD:$1$^$;$s$G$7$g$&$+!#(B
|K> 
|K> \savebox
|K> \usebox
|K> $B$N#2$D$r;H$($P!"$&$^$/$$$-$^$9!#(B
|K> $BCm0U$9$kE@$O!"I}$@$1$,7h$a$i$l$k$?$a!"9b$5$NJ}$O%\%C%/%9$J$I$G(B
|K> $B<+NO$GHyD4@0$7$J$1$l$P$$$1$J$$;v$G$9!#(B

$B$=$l$H!"7+$jJV$7$K$O(B\loop$B$r;H$&$G$9$M!#(B


--  ___
  (~._.~)    
  _{ Y }_
( )_~~~_( )
 (_)---(_)   $B@D(B $B>B(B  $B=((B $B;y(B (aonuma@kappa.issp.u-tokyo.ac.jp)


%$B$*<jK\$K$O$J$i$J$$$G$9$,!"(B\savebox, \usebox, \loop$B$r;H$C$?Nc(B
%$B$A$g$C$H!"J}4c;f$,$J$+$C$?$N$GB(@J$G:n$C$?$d$D$G$9!#8E$$(BLaTeX$BMQ$G$9!#(B
%RCS info. $Header: notepad.tev  1.1  96/04/16 21:46:28  noteASC2-issp  Brief $
\documentstyle[%
a4wide%paper size: a4, wide
]{article}

\newcount\Count
\newcount\VCount
\newcount\HCount
\newcount\LCount
\newbox\LineBox

%$B%I%C%H$NBg$-$5(B
\def\P{\rule{0.1pt}{0.1pt}}

\def\VDots{%
\VCount=0%
\offinterlineskip%
\vbox to 10mm{%
\loop%
\hbox to 0mm{\P\hss}\vss%
\advance\VCount1%
\ifnum\VCount<10\repeat%
}
}

\def\HDots{%
\HCount=0%
\loop%
\hbox to 1mm{\P\hss}%
\advance\HCount1%
\ifnum\HCount<10\repeat%
}

\setbox\LineBox=\hbox{%
\offinterlineskip%
\Count=0%
\loop%
\leavevmode\hbox to 1cm{\vbox{\hbox{\VDots}\nointerlineskip\hbox{\HDots}}}%%
\advance\Count1%
\ifnum\Count<15\repeat%
\VDots
}
\def\Line{
%\vskip-0.13913mm
\usebox\LineBox\relax
%\hbox to 1ex{\hss\tiny\number\LCount}
}

\def\TopLine{%
\offinterlineskip%
\Count=0%
\loop%
\leavevmode\hbox to 1cm{\vbox{%\hbox{\tiny\number\Count}\nointerlineskip
\hbox{\HDots}}}%%
\advance\Count1%
\ifnum\Count<15\repeat%
%\hbox{\tiny\number\Count}
}
\pagestyle{empty}
\textwidth=17cm
\textheight=25cm
\raggedbottom
\begin{document}
\parindent0pt
\LCount=0
\TopLine
\loop
\newline
\advance\LCount1
\Line
\ifnum\LCount<23\repeat
\end{document}
