% 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: