Codebase list swi-prolog / 2e0148a5-3de0-4ad2-b1af-64a6ba38be71/upstream man / fancychap.sty
2e0148a5-3de0-4ad2-b1af-64a6ba38be71/upstream

Tree @2e0148a5-3de0-4ad2-b1af-64a6ba38be71/upstream (Download .tar.gz)

fancychap.sty @2e0148a5-3de0-4ad2-b1af-64a6ba38be71/upstreamraw · history · blame

\font\chapnum   = cminch 
\font\chaptitle = cmssbx10  scaled \magstep5
\def\booktitle{\mbox{}}
\newdimen\titlewidth
\newdimen\titlenumwidth
\titlewidth\textwidth
\titlenumwidth 3cm
\addtolength{\titlewidth}{-\titlenumwidth}

%----------------------------------------------------------------------
%  Chapters
%----------------------------------------------------------------------
\def\breakit{\ } % allow linebreak in chapter title

\def\@makechapterhead#1{             % Heading for \chapter command
  \vspace*{0pt}                     % Space at top of text page.
  { \parindent 0pt \raggedright 
    \ifnum \c@secnumdepth >\m@ne     % IF secnumdepth > -1 THEN
    \begin{minipage}{\headwidth}
      \parbox[b]{\titlewidth}{%
        \def\breakit{\par}\raggedright
        \baselineskip .33in {\chaptitle #1}}\nobreak
      \parbox[b]{\titlenumwidth}{\raggedleft {\chapnum \thechapter}}
      \par\vskip 3pt
      \rule[0pt]{\headwidth}{4pt}
    \end{minipage}
    \fi
    \vskip 20pt
    \nobreak                         % TeX penalty to prevent pagebreak.
  } }

\def\@makeschapterhead#1{             % Heading for \chapter* command
  \vspace*{0pt}                     % Space at top of page.
  \markboth{\booktitle}{#1}
  { \parindent 0pt \raggedright 
  \begin{minipage}{\headwidth}
      \parbox[b]{\titlewidth}{\raggedright {\chaptitle #1}}
      \par\vskip 5pt
      \rule[0pt]{\headwidth}{4pt}
    \end{minipage}
    \nobreak                         % TeX penalty to prevent page break.
    \vskip 30pt                      % Space between title and text.
 }}