Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo!kuis!kudpc!hakata!kyu-cs!lab!lab!isozaki
From: isozaki@square.ntt.jp (Hideki Isozaki)
Subject: Re: juline
In-Reply-To: ss@astec.co.jp's message of Wed, 20 Oct 1993 12:35:28 GMT
Message-ID: <n7u.1gqrsm@lab.ntt.jp>
Sender: news@lab.ntt.jp
Organization: NTT Basic Research Laboratories
References: <SS.93Oct20213528@knight.astec.co.jp>
Date: 21 Oct 1993 14:02:53 GMT
Lines: 28
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:4042
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=4042&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$3$l$G$I$&$G$7$g$&!%(B   $B0k:j=(<y!!!!#N#T#T4pAC8&(B

% Underline for Japanese Text
% by Hideki ISOZAKI Jan. 11 1988
% Modified Oct. 21 1993
% $B?t<0!$1QC18l!$C18l4V%9%Z!<%9!$(BLaTeX$B%3%^%s%I$H$=$N0z?t$J$I$O(B
% $BJ,3d$5$l$J$$$h$&3g8L$G$^$H$a$F$/$@$5$$!%(B
%
% ex. \juline{$B$"$$$&$($*(B{$\cal B$}$B$+$-$/$1$3(B{foo}{ }{bar}}

\newdimen\wd@uline

\def\juline#1{{\def\endul@@one{\endul@one}\ul@one#1\endul@one}}

\def\ul@one#1{\def\@temp{#1}%
\hskip\jintercharskip
\ifx\@temp\endul@@one
 \let\u@line\relax
\else
 \ul@putbox\def\u@line{\ul@one}%
\fi
\u@line}

\def\ul@putbox{%
 \hbox{\@temp\settowidth\wd@uline\@temp
  \kern-\wd@uline\lower0.33em\hbox{\vrule width\wd@uline height0.05em}}}

