% This file belongs to the Antykwa Poltawskiego package. The work is released under
% the GUST Font License. See the MANIFEST-Antykwa-Poltawskiego.txt and
% README-Antykwa-Poltawskiego.txt files for the details. For the most recent version
% of this license see http://www.gust.org.pl/fonts/licenses/GUST-FONT-LICENSE.txt
% or http://tug.org/fonts/licenses/GUST-FONT-LICENSE.txt

\documentclass{article}

\usepackage[T1]{fontenc}
\usepackage{textcomp,antpolt}

\newcommand*{\tekst}{%
  \setlength{\spaceskip}{0.15em minus .05em}%
  \texteuro\
  \textoneoldstyle\
  \textthreeoldstyle\
  \'a
  \capitalacute A
  \textborn\
  \ \textmarried\
  \ \textmusicalnote\
  \textbullet\
  32\textcelsius\
  \textdollaroldstyle\
  \textnineoldstyle\
  \textrecipe\
  \texttrademark\
  \textcopyright\
  \textsection\
  \textcopyleft\
  \textinterrobang%
}
\makeatletter
\newcommand*{\test}[3]{{%
  \rightskip-14mm\relax
  #1\fontseries{#2}\fontshape{#3}\selectfont
  \edef\opis{\f@encoding/\f@family/\f@series/\f@shape/\f@size:}%
  \noindent\hbox to15mm{\kern-22mm\small\usefont{OT1}{lmtt}{m}{n}\opis\hfil}%
  \tekst\par
}}

\newcommand*{\testsize}{%
  \test{\rmfamily}{l}{n}
  \test{\rmfamily}{l}{it}
  \test{\rmfamily}{m}{n}
  \test{\rmfamily}{m}{it}
  \test{\rmfamily}{sb}{n}
  \test{\rmfamily}{sb}{it}
  \test{\rmfamily}{b}{n}
  \test{\rmfamily}{b}{it}
%  \test{\rmfamily}{l}{sc}
%  \test{\rmfamily}{l}{scit}
%  \test{\rmfamily}{m}{sc}
%  \test{\rmfamily}{m}{scit}
%  \test{\rmfamily}{sb}{sc}
%  \test{\rmfamily}{sb}{scit}
%  \test{\rmfamily}{b}{sc}
%  \test{\rmfamily}{b}{scit}
  \medskip
}


\begin{document}

\tiny\testsize
\scriptsize\testsize
\footnotesize\testsize
\small\testsize
\normalsize\testsize
\large\testsize
\Large\testsize
\LARGE\testsize
\huge\testsize
\Huge\testsize

\end{document}

%%% Local Variables: 
%%% mode: latex
%%% TeX-master: t
%%% End: 
