philokalia update, getting .otf in fonts/ (frank 25jul07)

git-svn-id: svn://tug.org/texlive/trunk@4653 c570f23f-e606-0410-a88d-b1316a301751

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'.