% Makro na sazbu článku "Kam se poděla dobrá typografie" pro
% časopis MENSA
% Petr Olšák                                      28. 3. 1996
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Použitý fomát: csplain

% Zrcadlově obrácený tisk:
%\special{!userdict begin /bop-hook{-1 1 scale -550 -90 translate} def end}

% Změny v každém čísle
\def\datum{5/1996}

% Volba fontu
\font\rm=cptmr at9pt \font\bf=cptmb at9pt \font\it=cptmri at9pt  \rm
\font\pata=cptmr at11pt 
\font\titlfont=cphvb at11pt
\font\autfont=cptmrc at9pt
\font\tensy=cmsy10 at9pt \textfont2=\tensy

% Deklarace proměnných
\newbox\pracbox \newbox\celybox
\newdimen\colsize \newdimen\picsize \newdimen\colsep
\newif\ifframe \newif\ifpic \framefalse \pictrue

% Zrcadlo stránky
\def\mensaoutput{\shipout\vbox{\hrule height2pt \kern2pt \hrule
      \vbox to188mm{\kern4pt\unvbox255\vfil}
      \hrule height1.5pt \kern5pt
      \hbox to\hsize{\pata \ifodd\pageno MENSA \datum\hfil\the\pageno \else
        \the\pageno\hfil MENSA \datum\fi}}
   \global\advance\pageno by 1\relax}
\hsize=124mm
\output={\mensaoutput}

% Typografie odstavce
\chyph \righthyphenmin=2  \colsize=6cm \parindent=1em
\emergencystretch=2em \hbadness=2000 \pretolerance=300 \tolerance=1000
\doublehyphendemerits=100000 \finalhyphendemerits=10000000

% Vertikální rozvržení
\splittopskip=8pt plus 8pt  \topskip=0pt
\parskip=0pt  \baselineskip=11pt
\medskipamount=.5\baselineskip \bigskipamount=\baselineskip

% \natahni, \ulom, \korektura
\def\natahni[#1]{\testvoidbox\setbox\celybox=\vbox{\let\end=\endinput
  \hsize=\colsize\penalty0\input#1 \par\hfill\autfont\Autor\unskip \vfil}
  \setbox\pracbox=\vsplit\celybox to0pt}
\def\ulom[#1]{\setbox\pracbox=\vsplit\celybox to#1\baselineskip
  \pouzdro{\unvbox\pracbox}}
\def\korektura{\unvbox\celybox}
\def\testvoidbox{\ifvoid\celybox\else
  \message{Warning: The part of the text is loss!!}\fi}
\let\pouzdro=\vtop

% \titul \sub \author
\def\titul#1\par{\gdef\Titul{#1}} 
\def\autor#1\par{\gdef\Autor{#1}} 
\def\\{\unskip\hfil\break\hbox{}\hfill}
\def\sub#1\par{\par\hbox{}\nobreak\vskip-\medskipamount
  {\bf#1}\par\nobreak\medskip}

% Obrázky
\input epsf
\def\popis[#1]#2{\expandafter\def\csname obr:#1\endcsname{#2}}
\def\obr#1[#2]{\vbox{\hsize=#1 \epsfxsize=\hsize
  \ifframe\else \let\ramekl=\relax \let\ramekr=\relax \fi
  \ifpic\else \def\special##1{\raise .5\baselineskip\hbox{\ \rm#2.eps}} \fi
  \ramekl\epsfbox{#2.eps}\ramekr
  \nadpopisem \leftskip=0pt plus1fil \rightskip=0pt plus-1fil
  \parfillskip=0pt plus2fil \it\noindent \csname obr:#2\endcsname}}
\def\ramekl{\vbox\bgroup\hrule\kern-.4pt\hbox\bgroup\vrule\kern-.4pt} 
\def\ramekr{\vrule\kern-.4pt\egroup\hrule\kern-.4pt\egroup}
\def\nadpopisem{\kern1pt}

% Běžné věci
\def\,{\thinspace} \def\.{\kern.1em }
\def\clqq{\char254 }
\def\crqq{{\edef\iSF{\spacefactor\the\spacefactor}\char255 \iSF\relax}}
\def\uv{\bgroup\aftergroup\closequotes\leavevmode\clqq\let\next=}
\def\closequotes{\unskip\crqq\relax}

% Užitečné zkratky
\colsep=4mm \def\cl{\hskip\colsep} \def\eject{\vfil\break}
\def\bye{\testvoidbox\end}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\pictrue  \framefalse   % Obrázky vykresli bez rámečků
%\picfalse \frametrue    % Obrázky přeskoč, kresli jen rámečky

\natahni[typo] % Kam se poděla dobrá typografie?
\popis [gutenber] {Johannes Gensfleisch Gutenberg \hbox{(1395--1468)}}
\popis [linotype] {Schéma řádkového odlévacího stroje Linotype}
\popis [madona]   {Bruselská madona, tisk o jednom listu (1418)}
\popis [setkani]  {Setkání různých technologií}
\popis [bible]    {42~řádková Gutenbergova bible s ručně 
                   domalovanými iniciálami \hbox{(1452--1455)}}

%\korektura \end

\pageno=37

% Strana 1
\vglue5pt
\centerline{\titlfont \Titul}\vskip-2pt
\hbox{\ulom[46]\cl\vtop{\ulom[19]
   \def\nadpopisem{\kern-3pt}\obr\colsize[gutenber]}}
\eject

% Strana 2
\hbox{\let\pouzdro=\vbox
  \vbox{\obr\colsize[linotype]\bigskip\ulom[27]}\cl\ulom[48]}
\eject

% Strana 3
\hbox{\ulom[30]\cl\ulom[30]}
\picsize=\hsize \advance\picsize by-3.1cm
\centerline{\obr\picsize[setkani]}
\eject

% Strana 4
\hbox{\vtop{\ulom[24]\kern9pt\obr\colsize[madona]}\cl\ulom[48]}
\eject

% Strana 5
\hbox{\ulom[48]\cl\vtop{\ulom[23]\kern7pt\obr\colsize[bible]}}
\eject

% Strana 6
\hbox{\ulom[48]\cl\ulom[48]}
\eject

\bye