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

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

>>7264
ごめんなさい。今度は古いものをそのまま投稿してしまいました。

---------- ここから
\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
   \iftombow\else \advance\dimen\tw@-1in \fi
   \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
   \dimen\tw@\sumiwidth
   \advance\dimen\tw@\m@ne\evensidemargin
   \iftombow\else \advance\dimen\tw@-1in \fi
   \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\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}}

\def\ps@myheadings{%
  \let\@oddfoot\@empty\let\@evenfoot\@empty
  \def\@evenhead{\@sumiireleft\thepage\hfil\leftmark}%
  \def\@oddhead{\@sumiireright{\rightmark}\hfil\thepage}%
  \let\@mkboth\@gobbletwo
  \let\chaptermark\@gobble
  \let\sectionmark\@gobble}

\makeatother

この書き込みへの返事：