summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tex-gyre/tgchorus.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/tex-gyre/tgchorus.sty')
-rw-r--r--Master/texmf-dist/tex/latex/tex-gyre/tgchorus.sty38
1 files changed, 33 insertions, 5 deletions
diff --git a/Master/texmf-dist/tex/latex/tex-gyre/tgchorus.sty b/Master/texmf-dist/tex/latex/tex-gyre/tgchorus.sty
index c13fcc48e6e..336b30f8569 100644
--- a/Master/texmf-dist/tex/latex/tex-gyre/tgchorus.sty
+++ b/Master/texmf-dist/tex/latex/tex-gyre/tgchorus.sty
@@ -13,22 +13,50 @@
%% [PL] Wspomaga stosowanie w LaTeXu kroju Tex Gyre Chorus
%% Umieszczenie linijki `\usepackage{tgchorus}' w preambule spowoduje
%% ustawienie TeX Gyre Chorus jako podstawowego szeryfowego kroju
-%% dokumentu, czyli kroju skojarzonego z poleceniem \rmfamily.
-%% W dokumentach po polsku konieczne jest uaktywnienie kodowania
+%% dokumenu, czyli kroju skojarzonego z poleceniem \rmfamily.
+%% W dokumenach po polsku konieczne jest uaktywnienie kodowania
%% T1, QX lub OT4 (najlepiej przy pomocy pakietu 'polski'). Np.:
%%
%% \usepackage{tgchorus}
%% \usepackage[T1]{polski}
%% ----------------------------------------------------------------------------
-
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{tgchorus}
- [2006/11/01 v1.0 TeX Gyre Chorus as default serif family]
+ [2009/09/27 v1.2 TeX Gyre Chorus as default serif family]
+
+\def\tg@scale@to@rm#1#2{%
+ \begingroup
+ \fontsize{10}{0}\usefont{\encodingdefault}{\rmdefault}{m}{n}%
+ #1%
+ \xdef\qzc@scale{%
+ \strip@pt
+ \dimexpr 1pt *
+ \@tempdima / \dimexpr#2pt\relax
+ \relax}%
+ \PackageInfo{tgchorus}{The qzc family is scaled by \qzc@scale}
+ \endgroup
+}
+
+\RequirePackage{kvoptions}
+\SetupKeyvalOptions{prefix=qzc@}
+\DeclareStringOption{scale}[1.1]
+\define@key{tgchorus}{matchlowercase}[1]{%
+ \tg@scale@to@rm{\@tempdima#1\fontdimen5\font}{3.99998}}
+\define@key{tgchorus}{matchuppercase}[1]{%
+ \tg@scale@to@rm{\setbox0\hbox{XWYZH}\@tempdima#1\ht0}{5.85999}}
+\DeclareVoidOption{oldspacing}{%
+ \def\qzc@set@spacing{%
+ \fontdimen2\font=.333em
+ \fontdimen3\font=.222em
+ \fontdimen4\font=.111em
+ }%
+}
+\ProcessKeyvalOptions*
\renewcommand{\rmdefault}{qzc}
-\renewcommand{\familydefault}{\rmdefault}
\fontfamily{\familydefault}
+\renewcommand\bfdefault{b}
\endinput
%%