Re: 本文と傍注の間に線を引くには 【解決】

名前: 春原 宏保
日時: 2002-10-01 16:44:56
IPアドレス: 202.218.38.*

>>11422
ご提示の記述を追加したところ、希望どおりの出力を得ることができました。大熊さん、
本当にありがとうございました。

今後のために、下記に最終的なソースを提示しておきます(122 行)。これを marginparrule.sty
という名前で保存し、プリアンブルに \usepackage{marginparrule} としました。今後も愛用させて
いただきます。

\def\cleardoublepage{\clearpage\if@twoside
  \ifodd\c@page
    \iftdir
      \edef\save@marginparseprule{\the\marginparseprule}%
      \marginparseprule=\z@
      \hbox{}\thispagestyle{empty}\newpage
      \if@twocolumn\hbox{}\newpage\fi
      \marginparseprule=\save@marginparseprule
    \fi
  \else
    \ifydir
      \edef\save@marginparseprule{\the\marginparseprule}%
      \marginparseprule=\z@
      \hbox{}\thispagestyle{empty}\newpage
      \if@twocolumn\hbox{}\newpage\fi
      \marginparseprule=\save@marginparseprule
    \fi
  \fi\fi}
\newdimen\marginparseprule
\marginparseprule=.4pt
\def\@outputpage{%
\begingroup % the \endgroup is put in by \aftergroup
  \iftdir
    \dimen\z@\textwidth \textwidth\textheight \textheight\dimen\z@
  \fi
  \let \protect \noexpand
  \@resetactivechars
  \global\let\@@if@newlist\if@newlist
  \global\@newlistfalse
  \@parboxrestore
  \shipout\vbox{\yoko
    \set@typeset@protect
    \aftergroup\endgroup
    \aftergroup\set@typeset@protect
%    \end{macrocode}
% \changes{v1.1g}{1998/02/03}{\cs{@shipoutsetup}を\cs{@outputpage}内に入れた}
% ここから|\@shipoutsetup|の内容。
%    \begin{macrocode}
     \if@specialpage
       \global\@specialpagefalse\@nameuse{ps@\@specialstyle}%
     \fi
%    \end{macrocode}
% \changes{v1.1c}{1995/02/05}{\cs{oddsidemargin}と\cs{evensidemargin}が
%    逆だったのを修正}
%    \begin{macrocode}
     \if@twoside
       \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
          \iftdir\let\@themargin\evensidemargin
          \else\let\@themargin\oddsidemargin\fi
       \else \let\@thehead\@evenhead
          \let\@thefoot\@evenfoot
           \iftdir\let\@themargin\oddsidemargin
           \else\let\@themargin\evensidemargin\fi
     \fi\fi
%    \end{macrocode}
% トンボ出力オプションが指定されている場合、ここで用紙サイズを再設定します。
% \TeX の加える左と上部の1インチは、トンボの内側に入ります。
% \changes{v1.1a}{1995/11/10}{\cs{topmargin}が反映されないバグを修正}
%    \begin{macrocode}
     \@@topmargin\topmargin
     \iftombow
       \@@paperwidth\paperwidth \advance\@@paperwidth 6mm\relax
       \@@paperheight\paperheight \advance\@@paperheight 16mm\relax
       \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax
     \fi
     \reset@font
     \normalsize
     \normalsfcodes
     \let\label\@gobble
     \let\index\@gobble
     \let\glossary\@gobble
     \baselineskip\z@skip \lineskip\z@skip \lineskiplimit\z@
%    \end{macrocode}
% ここまでが|\@shipoutsetup|の内容。
%    \begin{macrocode}
    \@begindvi
    \@outputtombow
    \vskip \@@topmargin
    \moveright\@themargin\vbox{%
      \setbox\@tempboxa \vbox to\headheight{%
        \vfil
        \color@hbox
          \normalcolor
          \hb@xt@\textwidth{\@thehead}%
        \color@endbox
      }%                        %% 22 Feb 87
      \dp\@tempboxa \z@
      \box\@tempboxa
      \vskip \headsep
% ------------------------------- ここから ------------------------------
% 本文と傍注の間に罫線
%   twocolumn, \reversemarginpar は考慮していない。
%
\if@twoside
  \ifodd\c@page
      \vbox{\hbox{\box\@outputbox\hskip.5\marginparsep
              \vrule width\marginparseprule}}%
  \else
      \vbox{\hbox to\textwidth{\hss \vrule width\marginparseprule
        \hskip.5\marginparsep\box\@outputbox}}%
  \fi
\else
   \vbox{\hbox{\box\@outputbox\hskip.5\marginparsep
              \vrule width\marginparseprule}}%
\fi
% ------------------------------- ここまで ------------------------------
      \baselineskip \footskip
      \color@hbox
        \normalcolor
        \hb@xt@\textwidth{\@thefoot}%
      \color@endbox
    }%
  }%
%  \endgroup now inserted by \aftergroup
%    \end{macrocode}
% |\if@newlist|を初期化。
%    \begin{macrocode}
  \global\let\if@newlist\@@if@newlist
  \global \@colht \textheight
  \stepcounter{page}%
  \let\firstmark\botmark
}

この書き込みへの返事：