Re: 伸縮する画像データ

名前: 野村
日時: 2001-11-02 19:58:04
IPアドレス: 150.84.42.*

>>3307 
>>\strip@pt\@tempdima  
おぉ，感動!! 
 
で，こんなマクロを作ってみました．2行にわたる場合の処理がわ 
からないので，グルーが伸縮すると行末が揃いません． 
# 3行以上にわたったらさっぱりわかりません． 
 
角藤先生のコードをそのまま使用してますが，勘違いしている部分 
があるかも知れません． 
 
\documentclass[a4j]{jarticle} 
\makeatletter 
\def\Gradation#1{\hbox{\lower5pt % 適当               設定の順番↓ 
 \hbox{%                     % Begin濃度 cb=0.9，End濃度 ce=0.7 (1) 
   \vbox to 8mm{\vss         % 高さ h=8mm=22.677165bp           (5) 
    \special{" /y 23.244 def % 座標初期値 h+dy=23.244           (7) 
     /c .905 def             % 濃度初期値 cb+dc=.905            (4) 
     1 1 40 {                % 初期値 1，増分 1，終端値 n=40    (2) 
     c .005 sub /c exch def  % 濃度変化量 dc=(cb-ce)/n=.005     (3) 
     y .567 sub /y exch def  % 座標増分量 dy=h/n=0.567          (6) 
     newpath 0 0 moveto #1\space 0 rlineto 0 y rlineto 
     -#1\space 0 rlineto closepath c setgray fill pop} for}}} 
}} 
 
\def\@sect#1#2#3#4#5#6[#7]#8{% 
  \ifnum #2>\c@secnumdepth 
    \let\@svsec\@empty 
  \else 
    \refstepcounter{#1}% 
    \protected@edef\@svsec{\@seccntformat{#1}\relax}% 
  \fi 
  \@tempskipa #5\relax 
  \ifdim \@tempskipa>\z@ 
    \begingroup 
      #6{% 
        \setbox\@tempboxa=\hbox{\hskip #3\relax\@svsec% 
          \interlinepenalty \@M #8\@@par}% 
        \ifdim\wd\@tempboxa > \linewidth 
          \@tempdima 2\linewidth \advance\@tempdima -\wd\@tempboxa 
          \setbox\@tempboxa\hbox{{\hskip #3\relax\@svsec}}% 
          \advance\@tempdima -\wd\@tempboxa 
           \hangindent \wd\@tempboxa\noindent\hskip #3\relax\@svsec 
           \interlinepenalty \@M #8\Gradation{\strip@pt\@tempdima}\@@par 
        \else 
          \@tempdima\linewidth \advance\@tempdima -\wd\@tempboxa 
          \hbox{\box\@tempboxa\Gradation{\strip@pt\@tempdima}}% 
        \fi}% 
    \endgroup 
    \csname #1mark\endcsname{#7}% 
    \addcontentsline{toc}{#1}{% 
      \ifnum #2>\c@secnumdepth \else 
        \protect\numberline{\csname the#1\endcsname}% 
      \fi 
      #7}% 
  \else 
    \def\@svsechd{% 
      #6{\hskip #3\relax 
      \@svsec #8}% 
      \csname #1mark\endcsname{#7}% 
      \addcontentsline{toc}{#1}{% 
        \ifnum #2>\c@secnumdepth \else 
          \protect\numberline{\csname the#1\endcsname}% 
        \fi 
        #7}}% 
  \fi 
  \@xsect{#5}} 
\makeatother 
 
\begin{document} 
\section{abc} 
\section{abc cde fadfa adfadskfjkld lksdjfa kldskf dksfj 
 sdlfkdjf sadf dsafdaflkdj} 
\subsection{ABC} 
\end{document} 

この書き込みへの返事：