% Ukázka komentovaná ve 12. díle seriálu o TeXu na www.abclinuxu.cz
% Použijte pdfcsplain

%% Pro uložení informací o nečíslovaných kapitolách pro obsah:
\def\Xschap#1#2#3{\addto\toclist{\tocline{0}{#1}{0}{#2}{#3}}} 

%% Deklarace:
\input opmac
\input chelvet  \narrow  % Zúžená varianta fontu Helvetica
\def\DarkGrey{\setcmykcolor{0 0 0 .9}} % Skoro černý podklad

\sdef{pgs:vu}{(160,188)mm} % Formát knihy, deklarace speciálního formátu vu
\margins/1 vu (0,0,0,0)mm  % Nulové okraje, použití formátu vu (viz opmac-u.pdf)

%% Makro pro speciální nečíslované kapitoly:
\def\printschap#1#2{\vfil\break
  {\chapfont \noindent #1\par
   \nobreak\smallskip\noindent #2\nbpar}%
   \nobreak \remskip\bigskipamount \firstnoindent
}
\def\schap#1 #2\par{%
  \printschap{#1}{#2\unskip}
  \wref\Xschap{{#1}{#2}{\the\pageno}}
}

%% Jeden řádek obsahu
\def\tocline #1#2#3#4#5{%
   \hbox{\llap{\vbox{\kern3mm 
                     \hsize=23mm \baselineskip=12pt
                     \leftskip=0pt plus1fill \rightskip=3mm
                     \noindent\DarkGrey \ifnum#3>0 Chapter #3\else #2\fi}}%
         \White\hbox to14mm{\hss#5\hss}\uppercase{#4}}}

%% Sazba stránky s obsahem
\begingroup \nopagenumbers \localcolor 
   % podkladová barva:
   \DarkGrey \hrule height\pdfpageheight width\pdfpagewidth
   \kern-\pdfpageheight
   
   % Fialovoučký obrázek:
   \hbox{\kern20mm \picwidth=26mm \picheight=185mm \inspic newsprint.pdf 
         \vrule height\pdfpageheight width0pt} 
   \kern-\pdfpageheight

   % Text obsahu:
   \kern35mm
   \moveright46mm\vbox{
      \hbox{\kern7mm \typosize[20/]\White\bf CONTENTS}
      \vskip10mm 
      \typosize[10/20]\rm \maketoc
   }
   \vfil\break % ukončení stránky
\endgroup

% Vlastní text knihy:

\margins/1 vu (0,0,0,20)mm

The next text is unformatted till now...

\schap {Introduction} The Seminal Velvet Underground

The text and pictures will be here... \pageno=18

\chap From Freeport To Pickwick Via Syracuse

The text and pictures will be here... \pageno=22

\chap Andy And The Banana Album

The text and pictures will be here... \pageno=36

\chap Whip It On Me, Jim: From ``Sister Ray'' To ``Jesus''

The text and pictures will be here... \pageno=106

\chap Riding The Express To {\it Loaded}

The text and pictures will be here... \pageno=138

\chap What Becomes A Legend Most? (Well Baby Tonight It's You)

The text and pictures will be here... \pageno=148

\schap {Discography}

The text and pictures will be here... \pageno=183

\schap {Contributor Biographies}

The text and pictures will be here... \pageno=186

\schap {Index}

The text and pictures will be here... \pageno=188

\end