Re: 「美文書」改訂第3版の見出しの組み方について

名前: misc
日時: 2004-02-08 21:42:00
IPアドレス: 210.230.18.*

>>25783
＞こうしたデザインは，どのようにして実現するのでしょうか．
奥村先生自身がどのように実装しているかは存じませんが，
\vrule（あるいは \hrule）と見出し文字列を然るべき位置に
配置すれば済みますね．
# 単に寸法の計算が面倒というだけで，マクロ作成上の問題としては
# 難しいことは何もありません．

版面設計や使用フォントあるいはページスタイルなど，調整すべき箇所は
いろいろありますが，とりあえずは次のようなところですから．
# ごたごたしているように見えますが（実際，そうですが…）大半のコードは
# 位置の計算や罫線の描画に費やされていることがわかることでしょう．
# なお，個々の部分の寸法に関してはいまざっと測っただけですので，
# 多少の狂いは大目に見てください．

\documentclass{jbook}
\usepackage[dvips]{color}% オプションは適宜変更してください．
\definecolor{specialcolor}{cmyk}{.5,.7,0,0}

\makeatletter
\def\@makechapterhead{%
   \@@makechapterhead{{\large\@chapapp}\ %
      {\LARGE\bfseries \thechapter}\ {\large\@chappos}}}
\def\@makeschapterhead{\@@makechapterhead{}}
\def\@@makechapterhead#1#2{%
   \hbox to\textwidth{%
      \rlap{\kern3mm\smash{\raise6\p@\hbox{#1}}}%
      \vrule \@height2\p@ \@depth2\p@ \@width32mm
      \hrulefill
      \dimen@\paperwidth \advance\dimen@-\textwidth
      \advance\dimen@-\oddsidemargin
      \advance\dimen@-1in \advance\dimen@ 3mm
      \kern-\dimen@}%
   \nointerlineskip
   \vbox to7\baselineskip{%
      \vskip3mm
      \hbox{%
         \vrule
         \vbox to25mm{\hsize108mm \@parboxrestore
            \leftskip5mm
            \Huge\bfseries #2\par
            \vfil
            \hrule}}%
      \nointerlineskip
      \setbox\z@\hbox{\kern114mm
         \def\@makechapterhead@temp##1##2{%
            \vrule \@height##1 \@depth##2 \@width31mm
            \kern-31mm}%
         \begingroup \color{specialcolor}%
            \dimen@\topskip \advance\dimen@\headsep
            \advance\dimen@\headheight
            \advance\dimen@\topmargin
            \advance\dimen@ 1in \advance\dimen@ 28mm
            \@makechapterhead@temp\dimen@\z@
            \@makechapterhead@temp{-2\p@}{3\p@}%
            \@makechapterhead@temp{-5\p@}{6\p@}%
            \@makechapterhead@temp{-8\p@}{9\p@}%
            \@makechapterhead@temp{-11\p@}{12\p@}%
            \@makechapterhead@temp{-16\p@}{17\p@}%
            \@makechapterhead@temp{-21\p@}{22\p@}%
            \@makechapterhead@temp{-26\p@}{27\p@}%
         \endgroup}%
      \ht\z@\z@ \dp\z@\z@ \box\z@
      \vfil}}

\def\section{\secdef\@section\@ssection}
\def\@ssection{\@testopt{\@makesectionhead{}}{}}
\def\@section{%
   \refstepcounter{section}%
   \@makesectionhead{\thesection}}
\def\@makesectionhead#1[#2]#3{%
   \if@noskipsec \leavevmode \fi
   \ifhmode \unskip\par \fi
   \vskip2\baselineskip
   \vspace*\z@
   \setbox\z@\hbox to\hsize{%
     \hbox to145mm{%
        \vrule \@height-7.6\p@ \@depth8\p@ \@width145mm
        \kern-145mm
        \Large
        \hbox to12mm{\bfseries\hss #1}\kern2.5mm
        {\color{specialcolor}%
         \vrule\@width2.5mm \@depth7.6\p@ \@height20\p@}%
        \kern2.5mm
        \gtfamily #3\hfil}%
     \hss}%
   \ht\z@\Cht \dp\z@\Cdp \box\z@
   \nobreak \vskip.5\baselineskip
   \@afterindenttrue \@afterheading
   \sectionmark{#2}%
   \addcontentsline{toc}{section}{\numberline{#1}#2}}
\makeatother

\begin{document}

\chapter*{序}
これはサンプルです．

\chapter{最初の\\ 章です}
適当な前書きを書きます．

\section{基本的な用語と概念の確認}
まず，本書を通じて用いる…

\end{document}

# こういった作業を支援するツールでもあれば，私どもの仕事も
# もう少し楽になるのですが…

この書き込みへの返事：