diff options
Diffstat (limited to 'Master/texmf-dist/tex/xelatex/philokalia')
-rw-r--r-- | Master/texmf-dist/tex/xelatex/philokalia/philokalia.sty | 51 |
1 files changed, 45 insertions, 6 deletions
diff --git a/Master/texmf-dist/tex/xelatex/philokalia/philokalia.sty b/Master/texmf-dist/tex/xelatex/philokalia/philokalia.sty index e7118ccb2ef..a24e55fa33b 100644 --- a/Master/texmf-dist/tex/xelatex/philokalia/philokalia.sty +++ b/Master/texmf-dist/tex/xelatex/philokalia/philokalia.sty @@ -34,20 +34,59 @@ %% Grave accent \` Left brace \{ Vertical bar \| %% Right brace \} Tilde \~} \ProvidesFile{philokalia.sty} -[2007/01/07 v1.0 Package `philokalia'] +[2007/01/24 v1.1 Package `philokalia'] +\RequirePackage{fontspec} +\RequirePackage{xunicode} +\RequirePackage{xltxtra} +\RequirePackage{lettrine} +\newsavebox{\Pb@x} +\def\Lettrine@height{% + \@tempdima=\baselineskip + \setlength{\L@height}{\theL@lines\@tempdima}% + \ifnum\theL@lines>1 + \addtolength{\L@height}{-\@tempdima}% + \fi + \sbox{\L@tbox}{\LettrineTextFont "03B1}%%%% Modified here + \addtolength{\L@height}{\ht\L@tbox}% + \addtolength{\L@height}{\L@oversize\L@height}} +\renewcommand*{\LettrineFont}{% + \Lettrine@height + \sbox{\L@tbox}{\LettrineFontHook\fontsize{\L@height}{\L@height}% + \selectfont "0391}%%%% Modified here + \@tempcntb=\ht\L@tbox + \@tempcnta=\L@height + \multiply\@tempcnta by 100 + \divide\@tempcntb by 100 + \divide\@tempcnta by \@tempcntb + \advance\@tempcnta by -9999 + \ifnum\@tempcnta>0 + \def\@tempa{1.\the\@tempcnta}% + \else + \def\@tempa{1}% + \fi + \LettrineFontHook + \fontsize{\@tempa\L@height}{\@tempa\L@height}% + \selectfont +} \DeclareOption{global}{% \renewcommand{\rmdefault}{plk}% + \DeclareFontFamily{EU1}{plktitl}{}% + \DeclareFontShape{EU1}{plktitl}{m}{n}% + {<-> "[Philokalia-Regular]/ICU:script=grek,+titl"}{}% + \newcommand{\textinit}[2]{% + \savebox{\Pb@x}{\usefont{EU1}{plktitl}{m}{n} #1}% + \lettrine[lines=3]{\usebox{\Pb@x}}{#2}}% } \DeclareOption{local}{% \def\phkl{\fontfamily{plk}\selectfont}% \newcommand{\textphlk}[1]{{\phkl #1}}% } -\ExecuteOptions{global} +\ExecuteOptions{local} \ProcessOptions -\RequirePackage{fontspec} -\RequirePackage{xunicode} -\RequirePackage{xltxtra} -\def\dminus{{\fontfamily{plk}\selectfont\char"0185}} +\def\dsubop{{\fontfamily{plk}\selectfont\char"018B}} +\def\dUnit{{\fontfamily{plk}\selectfont\char"018C}} +\def\dunit{{\fontfamily{plk}\selectfont\char"018D}} +\def\dunknown{{\fontfamily{plk}\selectfont\char"018E}} \endinput %% %% End of file `philokalia.sty'. |