From: bak@creta.dbg.bs1.fc.nec.co.jp (Takao Bakuya)
Newsgroups: fj.comp.texhax
Subject: Re: \underline
Date: 5 Sep 92 01:25:21 GMT
	<BAK.92Sep4130638@creta.dbg.bs1.fc.nec.co.jp>
Distribution: fj
Organization: NEC Corporation, Fuchu Plant
In-reply-to: bak@creta.dbg.bs1.fc.nec.co.jp's message of 4 Sep 92 18:06:38 GMT

In article <BAK.92Sep4130638@creta.dbg.bs1.fc.nec.co.jp> bak@creta.dbg.bs1.fc.nec.co.jp (Takao Bakuya) writes:

   >>juline.sty $B$r$*;}$A$G$J$1$l$P!"$*Aw$j$7(B$B$^$9$N$G%a!<%k$GO"Mm(B
   >>$B$7$F2<$5$$!#(B

$B$4MWK>$,B?$+$C$?$N$G!"(Bpost $B$7$^$9!#(B

$B$3$N%^%/%m$O(B NTT-jTeX $B$K(B$BIU$$$F$-$?$b$N$G$"$j!"(BASCII$BHG$K$O(B
$BBP1~$7$F$$$J$$$h$&$G$9!#(B

ASCII$BHG$GMxMQ$9$k:]$K$O!"(B\jintercharskip $B$J$k(B length $B$rDj5A(B
$B$9$kI,MW$,$"$j$^$9!#(B

% \jintercharskip is normally set to 1/40 of the font design size.
% Rationale behind this is that 40 times of this amount (\jintercharskip)
% can cover width of a character in this font.
% This calculation also assumes that there are about 40 characters per line.
% \jasciikanjiskip is a quarter of \jspaceskip

\jintercharskip $B$O%U%)%s%H$N%5%$%:$K$h$C$F!"CM$rJQ(B$B99$9$Y$-(B
$B$b$N$J$N$G$9$,!"(B10$B%]%$%s%H(B $B$d(B 12$B%]%$%s%H$G;HMQ$9$k$V$s$K$O!"(B
$B0J2<$N$h$&$K8GDjE*$KDj5A$7$F;H$C(B$B$F$bLdBj$O$J$$$h$&$G$9!#(B

  \newlength{\jintercharskip}
  \jintercharskip=0pt plus0.25pt minus0pt
                          ^^^^^^$B$^$?$O(B 0.3pt

ASCII$BHG$K(B \jintercharskip $B$KAjEv$9$k$h$&$J%^%/%m$,$"$k$N$G(B
$B$7$?$i!"$=$l$rBeBX$9$k$N$,NI$$$H;W$$$^$9!#(B


$B$=$l$+$i!"(Bjuline.sty $B$r??;w$7$F:n$C$?(B strike.sty $B$b$*$^(B$B$1$K(B
$BIU$1$F$*$-$^$9!#(B

strike.sty $B$N;H$$J}$O!"0J2<$NDL$j$G$9(B:

  \documentstyle[strike]{jarticle}

    \strike{$B0lK\@~$K$h$kBG$A>C$7(B}
    \Strike{$B0lK\@~$K$h$kBG$A>C$7(B}

    \overlap{1}{$B!{(B}  % 1$B$H!{$r=E$M(B$B$k(B => $B$^$k$$$A(B


unshar $B$G2rE`$7$F$/$@$5$$!#(B
--
                     =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
                      $BG~C+(B $BB:M:!w#N#E#C(B
                      bakuya@dbg.bs1.fc.nec.co.jp
                      Tel: 0423-33-1258  Fax:0423-33-1965
                     =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
----- cut here -----
#! /bin/sh
#
# This is shell archive.
# Remove anything before this line, then unpack this
# file by saveing it into a $file and typing
# "sh $file".
#
# Contents:
#	-r--r--r-- juline.sty
#	-r--r--r-- strike.sty
#
sed "s/^X//" > juline.sty << 'EOF'
X% Underline for Japanese Text
X% by Hideki ISOZAKI Jan. 11 1988
X% This underline is generated for each kanji character.
X% You should enclose ASCII characters and commands in its argument.
X
X\newskip\wd@uline
X\def\juline#1{\ul@one#1\endul@one}
X\def\ul@one#1{\ifx#1\endul@one\def\u@line{\hskip\jintercharskip}\else%
X\hskip\jintercharskip% insert glue
X\settowidth{\wd@uline}{#1}%
X#1\kern-\wd@uline\lower0.33em\hbox{\vrule width\wd@uline height0.05em}%
X%\makebox[0mm][r]{\rule[-0.33em]{\wd@uline}{0.1em}}%
X\let\u@line=\ul@one\fi\u@line}
EOF
chmod 444 juline.sty
sed "s/^X//" > strike.sty << 'EOF'
X%
X% strike out text
X% by bakuya@dbg.bs1.fc.nec.co.jp
X% modified juline.sty
X%
X% \strike{text}          -  strike out text with single line
X% \Strike{text}          -  strike out text with double line
X% \overlap{text1}{text2} -  overlap text2 on text2 (or vice versa)
X%
X
X\newskip\wd@uline
X\def\strike#1{\strike@one#1\endstrike@one}
X\def\strike@one#1{\ifx#1\endstrike@one\def\u@line{\hskip\jintercharskip}\else%
X\hskip\jintercharskip% insert glue
X\settowidth{\wd@uline}{#1}%
X#1\kern-\wd@uline\lower -0.2em%0.33em
X\hbox{\vrule width\wd@uline height0.05em}%
X%\makebox[0mm][r]{\rule[-0.33em]{\wd@uline}{0.1em}}%
X\let\u@line=\strike@one\fi\u@line}
X
X\def\Strike#1{\strike@two#1\endstrike@two}
X\def\strike@two#1{\ifx#1\endstrike@two\def\u@line{\hskip\jintercharskip}\else%
X\hskip\jintercharskip% insert glue
X\settowidth{\wd@uline}{#1}%
X#1\kern-\wd@uline\lower -0.1em
X\hbox{\vrule width\wd@uline height0.05em}%
X\kern-\wd@uline\lower -0.3em
X\hbox{\vrule width\wd@uline height0.05em}%
X%\makebox[0mm][r]{\rule[-0.33em]{\wd@uline}{0.1em}}%
X\let\u@line=\strike@two\fi\u@line}
X
X\newskip\wd@top
X\newskip\wd@btm
X\def\@overlap#1#2{%
X%\hskip\jintercharskip% insert glue%
X\settowidth{\wd@btm}{#1}\settowidth{\wd@top}{#2}%
X\addtolength{\wd@top}{-\wd@btm}%
X\setlength{\wd@top}{.5\wd@top}%
X\setlength{\wd@uline}{\wd@btm}\addtolength{\wd@uline}{\wd@top}%
X#1\kern-\wd@uline#2\hskip-\wd@top}
X\def\overlap#1#2{%
X\newskip\wd@topi\newskip\wd@btmi%
X\settowidth{\wd@btmi}{#1}\settowidth{\wd@topi}{#2}%
X\ifnum\wd@btmi>\wd@topi{\@overlap{#1}{#2}}%
X\else{\@overlap{#2}{#1}}\fi}
EOF
chmod 444 strike.sty