Re: 段落中の虫食い部分の枠線（解決）

名前: .
日時: 2010-05-25 15:37:22
IPアドレス: 59.134.169.*

>>54992
今度はどうなりますか．

\documentclass{jarticle}
\usepackage{calc,lineno}
\newdimen\PreSize

\makeatletter
%%% 次の \MakeLineNo に対する変更は，
%%%   Package: lineno 2005/11/02 line numbers on paragraphs v4.41
%%% に基づく．
\newbox\@prevline@box \global\setbox\@prevline@box\box\voidb@x
\def\WriteLineNo{% 
   \setbox\tw@\vbox{\unvcopy\@cclv
      \setbox\tw@\lastbox
      \ifhbox\tw@
         \global\setbox\@prevline@box\hbox{\unhbox\tw@\unskip\unskip}%
      \fi}%
   \unvbox\@cclv
   \expandafter\@LN@xnext\@LN@labellist\@@
   \@LN@label\@LN@labellist
   \protected@write\@auxout{}{\string\newlabel{\@LN@label}%
          {{\theLineNumber}{\thepage}\@LN@ExtraLabelItems}}}
\def\MakeLineNo{%
   \@LN@maybe@normalLineNumber
   \boxmaxdepth\maxdimen\setbox\z@\vbox{\unvbox\@cclv}%
%%% added part
   \ifvoid\@prevline@box
   \setbox\tw@\vbox{\unvcopy\z@
      \setbox\tw@\lastbox
      \ifhbox\tw@
         \setbox\tw@\hbox{\unhbox\tw@\unskip\unskip}%
      \fi
      \global\PreSize\wd\tw@}%
   \else
      \global\PreSize\wd\@prevline@box
      \global\setbox\@prevline@box\box\voidb@x
   \fi
%%% end of added part
   \@tempdima\dp\z@ \unvbox\z@
   \sbox\@tempboxa{\hb@xt@\z@{\makeLineNumber}}%
   \stepLineNumber
   \ht\@tempboxa\z@ \@LN@depthbox
   \@LN@do@vadjusts
   \count@\lastpenalty
   \ifnum\outputpenalty=-\linenopenaltypar
     \ifnum\count@=\z@ \else
       \xdef\@LN@parpgbrk{%
         \penalty\the\count@
         \global\let\noexpand\@LN@parpgbrk
                      \noexpand\@LN@screenoff@pen}%
     \fi
   \else
     \@tempcnta\outputpenalty
     \advance\@tempcnta -\linenopenalty
     \penalty \ifnum\count@<\@tempcnta \@tempcnta \else \count@ \fi 
   \fi}
\makeatother

\newcommand{\穴開始}{%
   \par
   \nobreak \vskip-\baselineskip \vskip-\parskip
   \addtocounter{linenumber}{-1}%
   \noindent \advance\PreSize by 1zw
   \smash{\rule[-4pt]{\PreSize}{.6pt}}\kern-.6pt
   \rule[-4pt]{.6pt}{14pt}%
   \leaders \hrule height 10pt depth-9.4pt\hfill
   \rule[-4pt]{.6pt}{14pt}\par}

\newcommand{\穴途中行}[1][]{\noindent\smash{\rule[-4pt]{.6pt}{\baselineskip}}\hfill#1\hfill\smash{\rule[-4pt]{.6pt}{\baselineskip}}\par}

\newcommand{\穴終了}[1]{\noindent\smash{\rule[-4pt]{.6pt}{\baselineskip}}\kern-.6pt\smash{\rule[-4pt]{#1}{.6pt}}\smash{\rule[-4pt]{.6pt}{\baselineskip}}%
   \smash{\kern-.6pt\rlap{\rule[\baselineskip-4pt]{\linewidth - #1}{.6pt}}}\hspace{1zw}}

\begin{document}

\linenumbers

正しく穴が開く

あいうえおかきくけこあいうえおかきくけこ
あいうえおかきくけこあいうえおかきくけこ
あいうえおかきくけこあいうえおかきくけこ\穴開始
\穴途中行
\穴途中行[ここを埋めましょう]
\穴途中行
\穴終了{20zw}あいうえおかきくけこあいうえおかきくけこ
あいうえおかきくけこあいうえおかきくけこ
あいうえおかきくけこあいうえおかきくけこ

\texttt{\char92}穴開始と同一行にlinelabelがある場合（対処済みのはず）

あいうえおかきくけこあいうえおかきくけこ
あいうえおかきくけこあいうえおかきくけこ
あいうえおかきくけこあいうえお\linelabel{line:foo}かきくけこ\穴開始
\穴途中行
\穴途中行[ここを埋めましょう]
\穴途中行
\穴終了{20zw}あいうえおかきくけこあいうえおかきくけこ
あいうえおかきくけこあいうえおかきくけこ
あいうえおかきくけこあいうえおかきくけこ
\end{document}

この書き込みへの返事：