複数ページ (frame, shading)

名前: 角藤
日時: 2002-08-14 18:36:26
IPアドレス: 203.165.2.*

すみません。他のところでの問題で、昔 comp.text.tex で目にした
Donald Arseneau さんのパッケージを紹介します。

(asndpage.sty として使っています。)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Create framed or shaded regions that can break across pages using 
% \begin{framed} ... \end{framed}    -- ordinary frame box (box at margin)
% \begin{shaded} ... \end{shaded}    -- shaded background (into margin)
%
% The "framed" environment puts the text into "\fbox" with the
% settings "\fboxrule=\FrameRule" and "\fboxsep=\FrameSep".
% You can change these lengths (using "\setlength") and you
% can even change the definition of "\FrameCommand" to use
% much fancier boxes.
%
% In fact, the "shaded" environment just redefines "\FrameCommand"
% to use "\colorbox{shadecolor}" (and you have to define the
% color "shadecolor").

% Donald Arseneau                         asnd@reg.triumf.ca

\def\FrameCommand{\fboxrule=\FrameRule \fboxsep=\FrameSep \fbox}
\newdimen\FrameRule \FrameRule=0.4pt
\newdimen\FrameSep  \FrameSep = 2\fboxsep

\newenvironment{framed}% using default \FrameCommand
  {\fram@d {\advance\hsize-\width}}%
  {\endfram@d}

\newenvironment{shaded}{%
  \def\FrameCommand{\colorbox{shadecolor}}%
  \fram@d {}}%
 {\endfram@d}

\def\fram@d#1{\par
 \begingroup
 \skip@\lastskip
 \penalty\@M % updates \page parameters
 \ifdim\pagefilstretch=\z@ \ifdim\pagefillstretch=\z@ \if@nobreak\else
    \vskip-\skip@ \penalty-30 \vskip\skip@
 \fi\fi\fi
 \addvspace{\topsep}%
 \endgroup
 \fb@adjheight
 \penalty\@M % updates \pagetotal
 \setbox\@tempboxa\vbox\bgroup 
   % measure added width and height; call result \width and \height
   \setbox\z@\vbox{\vskip-1in \hbox{\hskip-1in 
     \FrameCommand{\hbox{\vrule \@height 1in \@width 1in}}%
     }\vskip\z@skip}%
   \def\width{\wd\z@}\def\height{\height\z@}%
   #1% Modifications to \hsize (can use \width and \height)
   \textwidth\hsize \columnwidth\hsize \@parboxrestore
}

\def\endfram@d{\par
     \kern\z@ \penalty-100 % put depth into height
 \egroup
 \begingroup \put@frame \endgroup
}

\def\put@frame{%
%   \message{Entering putframe. }%
  \dimen@\pagegoal \advance\dimen@-\pagetotal % space left on page
  \ifdim\dimen@>\baselineskip % there's some room left
     \advance\dimen@.6\pageshrink % room available for box on page
     \advance\dimen@-\tw@\fboxrule \advance\dimen@-\tw@\fboxsep % " for text 
%      \ifdim\pagefilstretch>\z@ \dimen@\maxdimen\fi % don't split, even if...
%      \ifdim\pagefillstretch>\z@ \dimen@\maxdimen\fi% ...box does not fit
     \ifdim\dimen@>\ht\@tempboxa % whole box does fit
%   \message{Box of size \the\ht\@tempboxa\space fits in \the\dimen@:
%     \string\pagetotal=\the\pagetotal, 
%     \string\pagegoal=\the\pagegoal, 
%     \string\pagestretch=\the\pagestretch,
%     \string\pageshrink=\the\pageshrink. }%
      \else % box must be split
%  \message{Box of size \the\ht\@tempboxa\space must be split for \the\dimen@:
%    \string\pagetotal=\the\pagetotal, 
%    \string\pagegoal=\the\pagegoal, 
%    \string\pagestretch=\the\pagestretch,
%    \string\pageshrink=\the\pageshrink,
%    \string\fboxsep=\the\fboxsep,
%    \string\fboxrule=\the\fboxrule. }%
        \dimen@\pagegoal \advance\dimen@-\pagetotal % space left on page
        \setbox\@tempboxa\vbox{\advance\fboxsep\fboxrule 
           \vskip\tw@\fboxsep plus\pagestretch minus.6\pageshrink
           \kern137sp\kern-137sp\penalty-30 
           \unvbox\@tempboxa}%
        \boxmaxdepth\z@ \splittopskip\z@
%    \message{Box of size \the\ht\@tempboxa\space is split to \the\dimen@. }%
        \setbox\tw@\vsplit\@tempboxa to\dimen@
        \setbox\tw@\vbox{\unvbox\tw@}%
%    \message{Natural height of split box is \the\ht\tw@. }%
        \advance\dimen@.8\pageshrink
        \ifdim\ht\tw@>\dimen@ 
        \advance\dimen@-\tw@\fboxsep \advance\dimen@-\tw@\fboxrule
%    \message{Box too tall; rebox it to \the\dimen@. }%
        \setbox\tw@\vbox to\dimen@ \else
        \setbox\tw@\vbox \fi
        \bgroup
        \advance\fboxsep\fboxrule
        \vskip-\tw@\fboxsep plus-\pagestretch minus-.6\pageshrink
        \unvbox\tw@
        \ifdim\lastkern=-137sp % whole box went to next page
%   \message{box split at beginning! }%
           \egroup \eject % (\vskip for frame size was discarded) 
           \fb@adjheight
        \else %
           \egroup
           \ifvoid\@tempboxa % it all fit after all
%   \message{box split at end! }%
              \setbox\@tempboxa\box\tw@
           \else % it really did split
%   \message{box split as expected. Its reboxed height is \the\ht\tw@. }%
             \centerline{\FrameCommand{\box\tw@}}%
             \hrule height\z@
              \eject
              \fb@adjheight
              \put@frame
  \fi\fi\fi\fi
  \ifvoid\@tempboxa\else
    \centerline{\FrameCommand{\box\@tempboxa}}\hrule height\z@
    \penalty-30 \vskip\topsep \nobreak \prevdepth\z@
  \fi}

\def\fb@adjheight{\null % get proper baselineskip from above.
  \hrule \@height\z@ \@width\z@ \penalty\@M
  \vskip-1.2ex\relax} % useful for tops of pages

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Donald Arseneau                         asnd@triumf.ca

この書き込みへの返事：