Re: 章毎ページ付けと墨（隅）入れ方法：訂正

名前: Y.Izumi
日時: 2002-03-09 21:24:30
IPアドレス: 218.41.167.*

>>7221

とりあえず，応急処置的にtombow・headings・両面印刷対応にしてみました。
時間ができたらちゃんとしたパッケージにするかもしれません。

>    印刷領域との関係もあると思いますが墨が端まで塗れたらいいと思います．
印刷領域はハードウェア的な限界でソフトウェアだけではどうしようもないです。
とりあえず，（相当いい加減にですが）tombow 対応にしたので tombow を使って組版し，
印刷後裁断してもらうしかないです。

---------- ここから
\makeatletter

\let\chapters@ve\chapter
\def\chapter{\setcounter{page}{1}\chapters@ve}

\newlength\sumiskip  \setlength\sumiskip  {3cm} % 最初の墨入れまでの長さ
\newlength\sumiwidth \setlength\sumiwidth {3mm} % 墨の幅
\newlength\sumiheight\setlength\sumiheight{1cm} % 墨の高さ

\def\@sumiireright{%
   \bgroup
   \dimen\z@\sumiskip
   \advance\dimen\z@\c@chapter\sumiheight
   \advance\dimen\z@\m@ne\sumiheight
   \advance\dimen\z@\m@ne\topmargin
   \advance\dimen\z@\m@ne\headheight
   \advance\dimen\z@-1in
   \dimen\tw@\paperwidth
   \advance\dimen\tw@\m@ne\oddsidemargin
   \advance\dimen\tw@-1in
   \setbox\z@\hbox{%
     \lower\dimen\z@\hbox to \z@{%
       \hbox to \dimen\tw@{%
         \hss\vrule width \sumiwidth height \z@ depth \sumiheight}
       \hss}}%
   \ht\z@\z@ \dp\z@\z@ \copy\z@
   \egroup\hfill}

\def\@sumiireleft{%
   \bgroup
   \dimen\z@\sumiskip
   \advance\dimen\z@\c@chapter\sumiheight
   \advance\dimen\z@\m@ne\sumiheight
   \advance\dimen\z@\m@ne\topmargin
   \advance\dimen\z@\m@ne\headheight
   \advance\dimen\z@-1in
   \advance\dimen\tw@\evensidemargin
   \advance\dimen\tw@+1in
   \advance\dimen\tw@\m@ne\sumiwidth
   \setbox\z@\hbox{%
     \lower\dimen\z@\hbox to \z@{%
       \hbox to \m@ne\dimen\tw@{%
         \hss\vrule width \sumiwidth height \z@ depth \sumiheight}
       \hss}}%
   \ht\z@\z@ \dp\z@\z@ \copy\z@
   \egroup\hfill}

\def\thepage{\the\c@chapter-\the\c@page}

\def\ps@plain{%
  \let\@mkboth\@gobbletwo
  \def\@oddfoot{\hfil\thepage\hfil}%
  \def\@evenfoot{\hfil\thepage\hfil}%
  \def\@oddhead{\@sumiireright}%
  \def\@evenhead{\@sumiireleft}}

\makeatother

この書き込みへの返事：