Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!aist-nara!wnoc-kyo-news!kuis-news!kuee!tsato
From: tsato@ibuki.kuee.kyoto-u.ac.jp (Toru Sato)
Subject: Re: [Q] double space
In-Reply-To: suzumura@katana.mis.hiroshima-u.ac.jp's message of 13 Sep 1994 09:05:41 JST
Message-ID: <TSATO.94Sep13134350@ibuki.kuee.kyoto-u.ac.jp>
Lines: 50
Sender: news@kuee.kuee.kyoto-u.ac.jp (KUEE News Administrator)
Nntp-Posting-Host: ibuki
Organization: Dept. of Electr. Eng. II, Kyoto Univ., Kyoto, Japan
References: <SUZUMURA.94Sep9143706@katana.mis.hiroshima-u.ac.jp>
	<HOSHINO.94Sep9203900@onnes.kiki.ee.saga-u.ac.jp>
	<SUZUMURA.94Sep10101122@katana.mis.hiroshima-u.ac.jp>
	<TSATO.94Sep11172215@ibuki.kuee.kyoto-u.ac.jp>
	<SUZUMURA.94Sep13090541@katana.mis.hiroshima-u.ac.jp>
Distribution: fj
Date: Tue, 13 Sep 1994 04:43:50 GMT
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:5238
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=5238&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 <SUZUMURA.94Sep13090541@katana.mis.hiroshima-u.ac.jp> suzumura@katana.mis.hiroshima-u.ac.jp (Fumihiro Suzumura) writes:
 | |$B$?$H$($P(B \setgenkou{35}{30} $B$H$9$k$H!"#1%Z!<%8$,!v$*$h$=!v(B35$B;z!_(B30$B9T$K(B
 |$B$3$l$O869FMQ;f$N%9%?%$%k$G$9$M!#(B
$B;n$7$FD:$1$P$o$+$j$^$9$,!"JL$K869FMQ;f$H$O4X78$"$j$^$;$s!#(B
$B!J$?$7$+$K869FMQ;f%9%?%$%k$r:n$k$D$$$G$K$G$-$?$b$N$G$O$"$j$^$9$,!K(B
$BC1$KJ8;z4V3V$H9T4V3V$r;XDj$9$k$@$1$N$b$N$G$9!JL>A0$,0-$$$G$9$M$'(B ^_^;$B!K(B

 |$B2$J8$N>l9g$O$I$&$G$7$g$&$+!)(B
$B2$J8$GJ8=qA4BN$K$o$?$C$F;XDj$9$k$b$N$OCN$j$^$;$s!#(B
$B2$J8$NJ8;z4V3V$rJQ$($k!"$H$$$&$N$O%U%)%s%H%G%6%$%s$KBP$9$kKAFB$@$H$$$&$3$H(B
$B$+$b$7$l$^$;$s!#$-$?$J$/$J$k$P$+$j$G$9$+$i$M!#(B

$BC;$$J8;zNs$K$D$$$F$J$i!"0J2<$N$b$N$,@N(B comp.text.tex $B$KN.$l$F$$$^$7$?!#(B
$B!J:n<T$=$NB>$N>pJs$,;D$C$F$$$^$;$s!#$"$7$+$i$:!K(B $B$?$@$7$3$NJ}<0$G$O(B
$B2~9T=hM}$r<h$j9~$`$N$OFq$7$$$G$7$g$&!#(B

%=============================================================================
%%% \spreadtitle  spreads the letters in a title (all on one line) out
%%%               and allows the spacing between words to be given
%     #1 = the width of the box in which the letters are to fit
%     #2 = the ratio of the width between words to the width between letters
%     #3 = the text
%
%Examples follow.
% this shows that no extraneous spaces have been introduced
%   YYY\spreadtitle{3.truein}{2.5}{Now is the time!}YYY

\def\LETBLANK:{\let\letblank= }\LETBLANK: 
\def\Hss#1{\hskip 0pt plus #1fil minus #1fil}

\def\spreadtitle#1#2#3{\def\START{1}\def\SPREAD{#2}%
                       \expandafter\geteachchar#3\end%
                       \hbox to #1{\unhbox0}}
\def\geteachchar{\futurelet\nextletchar\nextdefchar}
\def\nextdefchar#1{%
    \ifx #1\end \let\next=\relax  % the title is finished
    \else
      \ifnum \START=1 \setbox0=\hbox{#1}\def\START{0}% this is the first
                                                     % character of the title
      \else % this is not the first character of the title
        \ifx \nextletchar\letblank
          \setbox0=\hbox{\unhbox0\Hss\SPREAD{}#1}% a word has ended
        \else
          \setbox0=\hbox{\unhbox0\Hss1{}#1}% we are in the middle of a word
        \fi
      \fi \let\next=\geteachchar
    \fi \next}
%---------------------------------------------------------------------------
$B!!!!!!!!!!!!!!!!!!!!!!!!:4F#!!5|!wEE5$9)3XBhFs65<<!%5~ETBg3X(B
$B!!!!!!!!!!!!!!!!!!!!!!!!(Btsato@kuee.kyoto-u.ac.jp
