% stest.tex -- plainTeX file for test of Storm's PostScript fonts
%              in Czech and Slovak, font metric names: p*8z and p*6s.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Juni 2001                                               Petr Ol��k

% Encoding: ISO-8859-2

\chyph  % Needs Format: csplain

\input skatalog
%\def\fotenc{8t} \input ofs-8t

\lineskiplimit=-2pt \lineskip=0pt
\emergencystretch=1em
\baselineskip=14pt
\medskipamount=7pt
\widowpenalty=10000
\advance\vsize by10pt \voffset=-5pt
\vbadness=3000
\def\zalozka#1{} \let\inzalozka=\zalozka
\def\url#1{#1}
\let\makeoutlines=\relax

\ifx\pdfoutput\undefined \else %%%% PDFTeX macros
\ifnum\pdfoutput>0

\pdfcompresslevel=9
\pdfinfo{/Author (Fonts: Frantisek Storm, TeX support: Petr Olsak)
         /CreationDate (/8/2001) 
         /ModDate (\the\day. \the\month. \the\year)
         /Creator (TeX)
         /Producer (pdfTeX)
         /Title (TeXovy vzornicek fontu pismolijny stresovicke)
         /Subject (prirucka)
         /Keywords (fonty, TeX)
}
\def\outlink#1#2#3{{%     % #1 je kl��, #2 je po�et potomk� a #3 je text
   \pdfoutline goto num#1 count -#2 % z�lo�ka je zav�en�
       {#3}}} % vlastn� text z�lo�ky
\def\aimlink#1#2{% % M�sto c�le odkazu, #1: kl�� odkazu, #2 vert. posunut�
   \ifvmode \pdfdest num\numlink fith\relax 
   \else \vbox to0pt{\vss\hbox{\pdfdest num#1 fith}\kern#2}\fi}
\def\zalozka#1{\global\advance\numlink by1 
   \aimlink\numlink{50pt}%
   \bgroup
      \def~{ }\def\v ##1{##1}%
      \def\ae{ae}\def\'##1{##1}\let\&=\atchar
      \expandafter\xdef \csname zaltext:\the\numlink \endcsname {#1}%
      \edef\tmpa {\the\numlink}%
      \ulozpotomky
      \xdef\lastzal {\tmpa}%
   \egroup
}
\def\inzalozka#1{\global\advance\numlink by1
   \aimlink\numlink{18pt}%
   \expandafter\xdef \csname zaltext:\the\numlink \endcsname {#1}%
}
\def\ulozpotomky {%
   \ifx\lastzal\undefined \else
       \advance\numlink by-\lastzal
       \advance\numlink by-1
       \expandafter\xdef \csname potomci:\lastzal\endcsname {\the\numlink}%
   \fi   
}
\def\makeoutlines {%
  \advance\numlink by1
  \edef\tmpa{\the\numlink}
  \ulozpotomky
  \numlink =1
  \loop
      \expandafter \ifx \csname potomci:\the\numlink\endcsname \relax
         \outlink \numlink 0 {\csname zaltext:\the\numlink\endcsname}%
      \else
         \outlink \numlink {\csname potomci:\the\numlink\endcsname}
                           {\csname zaltext:\the\numlink\endcsname}%
      \fi
      \advance\numlink by1
      \ifnum \numlink < \tmpa \repeat
}         
\ifx \pdfannot\undefined %%% PDFTeX version <= 13
   \def\url#1{\pdfannotlink height 10pt depth 3pt 
      user{/Border[0 0 0]/Subtype/Link/A << 
           /Type/Action/S/URI/URI(http://#1)>>}\relax
      \Blue{#1}\Black\pdfendlink}
\else                     %%% PDFTeX version >= 14
   \def\url#1{\hbox{\pdfannot height 10pt depth 3pt 
           {/Border[0 0 0]/Subtype/Link/A << 
           /Type/Action/S/URI/URI(http://#1)>>}\relax
      \Blue{#1}\Black}}
\fi   
\def\pdfsetcmykcolor#1{\special{PDF:#1 k}}
\def\Blue{\pdfsetcmykcolor{0.9 0.9 0.1 0}}
\def\Black{\pdfsetcmykcolor{0 0 0 1}}

\pdfcatalog{/PageMode /UseOutlines}\relax
\csname newcount\endcsname \numlink
{\catcode`\&=12 \gdef\atchar{&}}

\fi\fi


\setfonts [Times/12]
\fontdef\smalltt [Courier-rm/8]

\def\titul #1 #2 (#3) {\vskip28pt plus60pt \goodbreak \vskip0pt plus-60pt
   \vglue5pt
   \hbox to\hsize{\zalozka{#2}\setfonts [#1]#2\hfil\smalltt #3.tex/#3.sty}
   \nobreak \bigskip}

\headline={\smalltt [\firstmark/] 
           \leaders\hrule height.3pt\hfil
           \space [\botmark/]}


\def\allowhyphens{\nobreak\hskip0pt\relax}

\def\ofsznak{}
\def\cor{\def\ofsznak{, zna�en� v OFS:}}
\def\letterJ{J}
\def\corrJ#1{\def\tmpa{#1}\ifx\tmpa\letterJ \kern.1em \fi #1}

\def\text[#1]#2{Tento text je naps�n Post\-Scrip\-to\-\noboundary v�m 
p�smem #2 za pou�it� \TeX{}ov\-sk� metriky 
\uv{\fontname\the\font}\ofsznak{} \hbox{[\corrJ#1]}. Metrika fontu 
je voln� k~dispozici, zat�mco font je
pot�eba zakoupit ve St�e�ovick� p�smolijn�.  V��mejme si m�n�
obvykl�ch slov, jako je slovo ��ast\-n� (p�smeno � uprost�ed slova),
nebo t�eba slovensk� ko�ko. V��me, �e v�sledn� text p�jde nejen
p�e��st, ale bude i typograficky pokud mo�no v~po��dku. Tak� je t�eba
\uv{sledovat chov�n�} na�ich \uv{uvozovek}. A~co takhle \frqq
francouzsk� uvozovky po �esk�m zp�sobu\flqq?

0123456789, {\vardigits 0123456789}, ligatury: fi, fl, ffi, ffl, 
kerny: Tel, T�l, T�l, VLTAVA.

Znaky: \dag, \ddag, \textbullet,
       \P, \ellipsis,
       \extchar 123, \fullbar, \brokenbar, \extchar 125, 
       \onequarter, \onehalf, \threequarters, 
       \trademark,  \copyright, \registered,
       \ligct, \ligst, \ligft, \longs, \longst,
       \S, \pound, \euro, \franc, \cent, 
       \yen, \degree C.
\par\nobreak\medskip 
{\spaceskip=.3em minus .2em \relax
� � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � �
�~�~�~�~�~�.}
\medskip\penalty-200}

\def\test #1 #2 ;{{\setfonts[#1/12]
  \indent\mark{#1}\inzalozka{#1}\text[#1/12]{#2}}}

\def\kudrlinky{\bgroup \setfonts [Splendid-script/]%
  {\smalltt Kudrlinky:}
  \lineskiplimit=-10pt
  \halign{\indent##\qquad\hfil&&##\qquad\hfil\cr
  \echar`+ &\echar`/ &\echar`0 &\echar`1 \cr
  \echar`2 &\echar`3 &\echar`4 &\echar`5 \cr
  \echar`6 &\echar`7 &\echar`8 &\echar`9 \cr
  \echar`< &\echar`= &\echar`> \cr
  \echar92 &\echar26 &\echar94 \cr
  \echar17 &\echar16 &\echar21 &\echar23 \cr
  \echar20 &\echar19 \cr}
  \bigskip \egroup}

\def\swashznaky{\bgroup \setfonts [Monarchia-rm/]%
  {\smalltt Rozm�chl� (swash) znaky:}
  \halign{\indent##\quad\hfil&&##\quad\hfil\cr
  \echar`b &\echar`d &\echar`e &\echar`f \cr
  \echar`g &\echar35 &\echar36 &\echar`h \cr
  \echar`i &\echar`k &\echar`l &\echar`m \cr
  \echar`n &\echar`p &\echar`q &\echar`s \cr
  \echar`t &\echar`u &\echar`y &\echar`z \cr
  \echar37 &\echar38 &\echar39 &\echar40 \cr
  \echar41 &\echar42 &\echar43 &\echar29 &
  \echar28 \cr}
  \bigskip \egroup}

\def\echar#1 {{\smalltt\char`\\extchar#1: }\extchar#1 }

\def\strip #1. #2\par{\rightskip0pt plus5em #1.\par}

\def\titulni strana #1{%
  \fontdef \ozdoba [JannonAntikva-rm/24]%
  \bgroup
  \lineskiplimit=-100pt
  \headline={\hfil}%
  \nopagenumbers
  \hbox{}\vfill
  \vskip55pt   
  \setfonts [JannonAntikva-rm/45] 
  \centerline{Typokatalog #1}
  \vskip50pt
  \setfonts [JannonAntikva-it/45]
  \centerline{P�smolijna \ligst �e�ovick�}
  \vskip50pt
  \setfonts [JannonAntikva-rm/45]
  \centerline{\TeX{}ov\'a podpora}
  \vskip50pt
  \setfonts [JannonAntikva-it/45]
  \centerline{Petr Ol\v s\' ak}
  \vskip100pt
  \centerline{\ozdoba*}
  \vskip40pt
  \setfonts [DynaGroteskR-rm/17]
  \centerline{Praha 2001}
  \vskip20pt
  \centerline{\url{www.pismolijna.cz}}
  \vskip20pt
  \centerline{\url{www.cstug.cz/stormtype}}
  \vskip50pt
  \vfill\hbox{}\break

  \setfonts [DynaGroteskR-rm/12]
  \parindent=0pt \parskip=\baselineskip
  \def\*{\lower.5ex\hbox{*}}

  Tento vzorn��ek vznikl jako test \TeX{}ov� podpory v�ech p�sem
  z~TypoKatalogu~#1 St�e�ovick� p�smolijny aplikac� p��kazu
  pdfcsplain na soubor stest.tex.
  Uveden� soubor je sou��st� \TeX{}ov� podpory a u�ivatel� jej mohou
  pou��t na testovan� t�eba jen vybran�ch p�sem.

  U~ka�d�ho p�sma je uvedeno jm�no z�kladn� metriky \*8z a d�le
  v~hranat� z�vorce je jm�no p�sma v~takov� podob�, jak je zaneseno do
  defini�n�ho souboru pro makro OFS. \TeX{}ov� podpora obsahuje ke
  ka�d�mu p�smu krom� z�kladn� metriky \*8z je�t� roz�i�uj�c� metriku
  \*6s a alternativn� z�kladn� metriku \*8t. Podrobn�j�� informace 
  o~pou�it� t�chto p�sem v~\TeX{}u a o~pou�it� makra OFS najdete na
  \url{www.cstug.cz/stormtype}.

  N�kter� p�sma jsou St�e�ovickou p�smolijnou dod�v�na ve dvou skoro
  stejn�ch variant�ch: norm�ln� a OSF (Old Style Figures). Varianta
  OSF obsahuje jinak kreslen� ��slice. \TeX{}ov� podpora pro takov�
  p��pady slu�uje ob� varianty tak, �e z�kladn� metrika pracuje 
  s~norm�ln� variantou a roz�i�uj�c� metrika s variantou OSF. 
  Ve vzorn��ku to pozn�te tak, �e dv� ��seln� �ady uveden� t�sn�
  vedle sebe maj� rozd�ln� ��slice.

  \vfill

  \copyright{} 2001, RNDr. Petr Ol��k
  
  Tento dokument je dovoleno bez omezen� kop�rovat a tisknout.

  Pou�it� fonty nejsou voln� ���eny a jejich licence je uvedena na
  \url{www.pismolijna.cz} nebo \url{www.stormtype.com}.
  
  \break
  \egroup
}

\catcode`|=14

\input stestik

\makeoutlines
\vfil\break \tracingstats=1 \end
