<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&amp;
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \&lt;
%%   Equals        \=     Greater than  \&gt;     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%\iffalse
%
% (c) Copyright 2007-2017 Apostolos Syropoulos 
% This program can be redistributed and/or modified under the 
% terms of the LaTeX Project Public License Distributed from 
% http://www.latex-project.org/lppl.txt; either
% version 1.3c of the License, or any later version.
%  
% This work has the LPPL maintenance status `maintained'.
%
% Please report errors or suggestions for improvement to
%
%    Apostolos Syropoulos  (asyropoulos@yahoo.com)
%
%\fi
% \CheckSum{124}
% \iffalse This is a Metacomment
%
%&lt;philokalia&gt;\ProvidesFile{philokalia.sty}
%&lt;TUplk&gt;\ProvidesFile{eu1plk.fd}
%
%&lt;philokalia&gt;[2017/09/20 v1.2 Package `philokalia']
%&lt;TUplk&gt;[2017/09/20 v1.0 Philokalia-Regular Support File]
%
%    \begin{macrocode}
%&lt;*driver&gt;
\documentclass{ltxdoc}
\makeatletter
\let\ancientgreek\l@ancientgreek
\makeatother
\usepackage{philokalia}
\usepackage{fullpage}
\GetFileInfo{philokalia.drv}
\begin{document}
   \DocInput{philokalia.dtx}
\end{document}
%&lt;/driver&gt;
%    \end{macrocode}
% \fi
%
%\title{The \textsf{philokalia} package}
%\author{Apostolos Syropoulos\\366, 28th October Str.\\
%GR-671 33 Xanthi, HELLAS\\ 
%Email:\texttt{asyropoulos@yahoo.com}}
% \date{2007/01/25 updated on 2017/09/20}
%\maketitle
%\begin{abstract}
% This document describes the functionality of the \textsf{philokalia} package, which
% has been designed to ease the use of the Philokalia-Regular OpenType font with \XeLaTeX, as well as
% the OpenType features of this font.
%\end{abstract}
%\StopEventually{}
%\section{Introduction}
% The \textsf{philokalia} package has been designed to ease the use of the Philokalia-Regular (henceforward
% it will specified simply as the font)
% OpenType font with \XeLaTeX. The package provides two options: \texttt{global} and \texttt{local}.
% When the package is used with the \texttt{global} option the font is made the main font of the entire 
% document. Also, this option provides support to typeset titling capitals. 
% When the package is used with the \texttt{local} option, which is the default option,
% it provides the commands \verb=\textphlk= and \verb=\phkl= to enable typesetting of short passages. 
% The first command takes one argument which is typeset using the font. The second command makes the font 
% the main font of the current (local) scope. The complete package provides the 
% following \XeLaTeX\ files:
%\begin{center}
% \begin{tabular}{ll}
%   driver     &amp; produce the documentation \\
%   philokalia &amp; the package itself \\
%   TUpkl     &amp; The Philokalia font shapes\\
% \end{tabular}
% \end{center}
% 
% \section{About The Font}
%  
% The font started as a project to digitize the typeface that was
% used to typeset the Philokalia books. For information regarding these books, the reader
% should visit either the following URL:
%\begin{center}
% \verb=http://orthodoxwiki.org/Philokalia=
%\end{center}
% or enter the word {\em philokalia} in the Amazon.com search box, for information about various
% editions of the books. The project was carried out by 
% Apostolos Syropoulos and Ioannis Gamvets. Initially, the project was part
% of Ioannis Gamvetas's diploma thesis, but the resulting OpenType font is not part of this
% thesis work and it was developed by this author. The goal of the original thesis work was to develop Type~1 
% fonts and tools to typeset portions of the Philokalia books with Omega. Since, the original thesis work 
% has not been completed yet (!), the idea of releasing an OpenType font emerged quite naturally.
% The font contains only Greek letters and it can be used to typeset any Greek text. However, since the 
% shapes of the letters are not that obvious, here is a ``translation''-table:
% \begin{center}
% \begin{tabular}{cccccccccc}
% \textphlk{Î±} &amp; \texttt{Î±} &amp; \textphlk{Î˛} &amp; \texttt{Î˛} &amp; \textphlk{Îł} &amp; \texttt{Îł} &amp; 
% \textphlk{Î´} &amp; \texttt{Î´} &amp; \textphlk{Îµ} &amp; \texttt{Îµ} \\
% \textphlk{Î¶} &amp; \texttt{Î¶} &amp; \textphlk{Î·} &amp; \texttt{Î·} &amp; \textphlk{Î¸} &amp; \texttt{Î¸} &amp; 
% \textphlk{Îą} &amp; \texttt{Îą} &amp; \textphlk{Îş} &amp; \texttt{Îş} \\
% \textphlk{Î»} &amp; \texttt{Î»} &amp; \textphlk{ÎĽ} &amp; \texttt{ÎĽ} &amp; \textphlk{Î˝} &amp; \texttt{Î˝} &amp; 
% \textphlk{Îľ} &amp; \texttt{Îľ} &amp; \textphlk{Îż} &amp; \texttt{Îż} \\
% \textphlk{Ď€} &amp; \texttt{Ď€} &amp; \textphlk{Ď} &amp; \texttt{Ď} &amp; \textphlk{Ď} &amp; \texttt{Ď} &amp; 
% \textphlk{Ď‚} &amp; \texttt{Ď‚} &amp; \textphlk{Ď„} &amp; \texttt{Ď„} \\
% \textphlk{Ď…} &amp; \texttt{Ď…} &amp; \textphlk{Ď†} &amp; \texttt{Ď†} &amp; \textphlk{Ď‡} &amp; \texttt{Ď‡} &amp; 
% \textphlk{Ď} &amp; \texttt{Ď} &amp; \textphlk{Ď‰} &amp; \texttt{Ď‰} 
% \end{tabular}
% \end{center}
% One interesting feature of this font is that accents are placed {\em after} capital
% letters (see the sample below). Another interesting feature of the font is the great number of 
% ligatures it includes. In fact, it includes more than 40 {\em historical} ligatures plus two 
% {\em contextual} ligatures. When typing \texttt{ÎşÎą} and these letters are not part of a word, then
% one gets the contextual ligature \textphlk{ÎşÎą}, which is the Greek ampersand. The same ligature can be
% obtained if we substitute {\em iota} with {\em iota with varia}. The table below shows all the historical
% ligatures included in the font: 
%  \begin{center}
% \begin{tabular}{llllllllll}
% \textphlk{Î»Î»} &amp; \texttt{Î»Î»} &amp; \textphlk{áĽ€Î˝} &amp; \texttt{áĽ€Î˝} &amp; \textphlk{ÎµÎ˝} &amp; \texttt{ÎµÎ˝} &amp; 
% \textphlk{ÎłÎ¬Ď} &amp; \texttt{ÎłÎ¬Ď} &amp; \textphlk{ÎşÎ±Ď„á˝°} &amp; \texttt{ÎşÎ±Ď„á˝°} \\
% \textphlk{ÎĽÎµĎ„á˝°} &amp; \texttt{ÎĽÎµĎ„á˝°} &amp; \textphlk{ĎĎ„ÎŻ} &amp; \texttt{ĎĎ„ÎŻ} &amp; \textphlk{ĎÎ¸} &amp; \texttt{ĎÎ¸} &amp; 
% \textphlk{ĎĎ‡} &amp; \texttt{ĎĎ‡} &amp; \textphlk{Ď„áż¶Î˝} &amp; \texttt{Ď„áż¶Î˝} \\
% \textphlk{Ď‡Ď} &amp; \texttt{Ď‡Ď} &amp; \textphlk{ÎşÎ±á˝¶} &amp; \texttt{ÎşÎ±á˝¶} &amp; \textphlk{ĎĎ} &amp; \texttt{ĎĎ} &amp; 
% \textphlk{Î´ÎąÎ±} &amp; \texttt{Î´ÎąÎ±} &amp; \textphlk{ÎµĎ…} &amp; \texttt{ÎµĎ…} \\
% \textphlk{Îµá˝‘} &amp; \texttt{Îµá˝‘} &amp; \textphlk{Îµá˝} &amp; \texttt{Îµá˝} &amp; \textphlk{ÎżĎ…} &amp; \texttt{ÎżĎ…} &amp; 
% \textphlk{ÎżĎŤ} &amp; \texttt{ÎżĎŤ} &amp; \textphlk{Îżá˝ş} &amp; \texttt{Îżá˝ş} \\
% \textphlk{Îżá˝–} &amp; \texttt{Îżá˝–} &amp; \textphlk{Îżá˝—} &amp; \texttt{Îżá˝—} &amp; \textphlk{ÎµĎŤ} &amp; \texttt{ÎµĎŤ} &amp; 
% \textphlk{Î±Îą} &amp; \texttt{Î±Îą} &amp; \textphlk{Î±áż–} &amp; \texttt{Î±áż–} \\
% \textphlk{Î±ÎŻ} &amp; \texttt{Î±ÎŻ} &amp; \textphlk{Î±á˝¶} &amp; \texttt{Î±á˝¶} &amp; \textphlk{Î±áĽ°} &amp; \texttt{Î±áĽ°} &amp; 
% \textphlk{Î±ĎŤ} &amp; \texttt{Î±ĎŤ} &amp; \textphlk{ÎµÎą} &amp; \texttt{ÎµÎą} \\
% \textphlk{Îµáż–} &amp; \texttt{Îµáż–} &amp; \textphlk{ĎŚÎľ} &amp; \texttt{ĎŚÎľ} &amp; \textphlk{á˝„Îľ} &amp; \texttt{á˝„Îľ} &amp; 
% \textphlk{ĎÎŻ} &amp; \texttt{ĎÎŻ} &amp; \textphlk{Ďá˝¶} &amp; \texttt{Ďá˝¶} \\
% \textphlk{Ďáż–} &amp; \texttt{Ďáż–} &amp; \textphlk{áĽˇÎ˝} &amp; \texttt{áĽˇÎ˝} &amp; \textphlk{Î·Î˝} &amp; \texttt{Î·Î˝} &amp; 
% \textphlk{áż†Î˝} &amp; \texttt{áż†Î˝} &amp; \textphlk{Î®Î˝} &amp; \texttt{Î®Î˝} \\
% \textphlk{Ď…Î˝} &amp; \texttt{Ď…Î˝} &amp; \textphlk{ĎŤÎ˝} &amp; \texttt{ĎŤÎ˝} &amp; \textphlk{ĎĎ„} &amp; \texttt{ĎĎ„} &amp;
% \textphlk{Î„-} &amp; \texttt{Î„-} &amp; \textphlk{1ÎśÎż} &amp; \texttt{1ÎśÎż} \\
% \textphlk{1ÎĽÎż} &amp; \texttt{1ÎĽÎż} &amp; \textphlk{Î„1} &amp; \texttt{Î„1}
%  
% \end{tabular}
% \end{center}
% Notice that in order to get the symbols \textphlk{Î„-} and \textphlk{Î„1}
% one has to type a tonos and then a
% hyphen or the digit one, respectively. The symbols \textphlk{Î„-} and  \textphlk{Î„1}
% have been used by the ancient Greek mathematician Diophantus to denote the subtraction 
% operator\footnote{Diophantus did not explicitly specified negative numbers in his writings, although
% he was aware of them.}  and
% an unknown quantity (similar to the $x$ we use today in simple equations like $x+x^2=3$). Also, the
% symbols \textphlk{1ÎśÎż} and \textphlk{1ÎĽÎż} have been used by Diophantus to denote the unit (i.e., the
% number one). These symbol were not in the original Philokalia font, but they have been
% included here for reasons of completeness. The followin commands are provided for people who only
% want to typeset these symbols: \verb=\dsubop=, \verb=\dUnit=, \verb=\dunit=, and \verb=\dunknown=.  
%
%  The font includes titling capitals that are accessible through the titling OpenType feature,
% which, however, is implicitly available. In particular, the command \verb|\textinit|, which has two 
% arguments, the first being the first letter of a word and the second being the rest of the word,
% can be used to typeset a drop capital. The following short passage from Aristotle's treatise 
% {\em The Poetics} was typeset with the font so as to demonstrate the various features of it. 
% 
%{\fontfamily{plk}\selectfont\language\ancientgreek
% \font\PHtitl="[Philokalia-Regular]/ICU:script=grek,+titl"
% \newsavebox{\mybox}\savebox{\mybox}{\PHtitl Î&nbsp;}
% \lettrine[lines=3]{\usebox{\mybox}}{ÎµĎá˝¶} Ď€ÎżÎąÎ·Ď„ÎąÎşáż†Ď‚ Î±á˝Ď„áż†Ď‚ Ď„Îµ ÎşÎ±á˝¶ Ď„áż¶Î˝ ÎµáĽ°Î´áż¶Î˝ Î±á˝Ď„áż†Ď‚, áĽĄÎ˝ Ď„ÎąÎ˝Î± Î´á˝»Î˝Î±ÎĽÎąÎ˝ áĽ•ÎşÎ±ĎĎ„ÎżÎ˝ áĽ”Ď‡ÎµÎą, 
%ÎşÎ±á˝¶ Ď€áż¶Ď‚ Î´Îµáż– ĎĎ…Î˝á˝·ĎĎ„Î±ĎÎ¸Î±Îą Ď„Îżá˝şĎ‚ ÎĽá˝»Î¸ÎżĎ…Ď‚  ÎµáĽ° ÎĽá˝łÎ»Î»ÎµÎą ÎşÎ±Î»áż¶Ď‚ áĽ•ÎľÎµÎąÎ˝ áĽˇ Ď€Îżá˝·Î·ĎÎąĎ‚, áĽ”Ď„Îą Î´á˝˛ áĽÎş Ď€á˝ąĎĎ‰Î˝ ÎşÎ±á˝¶ Ď€Îżá˝·Ď‰Î˝ 
%áĽĎĎ„á˝¶ ÎĽÎżĎá˝·Ď‰Î˝, á˝ÎĽÎżá˝·Ď‰Ď‚ Î´á˝˛ ÎşÎ±á˝¶ Ď€ÎµĎá˝¶ Ď„áż¶Î˝ áĽ„Î»Î»Ď‰Î˝ á˝…ĎÎ± Ď„áż†Ď‚ Î±á˝Ď„áż†Ď‚ áĽĎĎ„Îą ÎĽÎµÎ¸á˝ąÎ´ÎżĎ…, Î»á˝łÎłĎ‰ÎĽÎµÎ˝ áĽ€ĎÎľá˝±ÎĽÎµÎ˝ÎżÎą ÎşÎ±Ď„á˝° Ď†á˝»ĎÎąÎ˝ 
%Ď€Ďáż¶Ď„ÎżÎ˝ áĽ€Ď€á˝¸ Ď„áż¶Î˝ Ď€Ďá˝˝Ď„Ď‰Î˝.
% 
%áĽĎ€ÎżĎ€ÎżÎąá˝·Î± Î´á˝´ ÎşÎ±á˝¶ áĽˇ Ď„áż†Ď‚ Ď„ĎÎ±ÎłáżłÎ´á˝·Î±Ď‚ Ď€Îżá˝·Î·ĎÎąĎ‚ áĽ”Ď„Îą Î´á˝˛ ÎşĎ‰ÎĽáżłÎ´á˝·Î± ÎşÎ±á˝¶ áĽˇ Î´ÎąÎ¸Ď…ĎÎ±ÎĽÎ˛ÎżĎ€ÎżÎąÎ·Ď„ÎąÎşá˝´ ÎşÎ±á˝¶ Ď„áż†Ď‚ Î±á˝Î»Î·Ď„ÎąÎşáż†Ď‚ 
%áĽˇ Ď€Î»Îµá˝·ĎĎ„Î· ÎşÎ±á˝¶ ÎşÎąÎ¸Î±ĎÎąĎĎ„ÎąÎşáż†Ď‚ Ď€áľ¶ĎÎ±Îą Ď„Ď…ÎłĎ‡á˝±Î˝ÎżĎ…ĎÎąÎ˝ Îżá˝–ĎÎ±Îą ÎĽÎąÎĽá˝µĎÎµÎąĎ‚ Ď„á˝¸ Ďá˝»Î˝ÎżÎ»ÎżÎ˝Î‡ Î´ÎąÎ±Ď†á˝łĎÎżĎ…ĎÎą Î´á˝˛ áĽ€Î»Î»á˝µÎ»Ď‰Î˝ Ď„ĎÎąĎá˝·Î˝, 
%áĽ˘ Îłá˝°Ď Ď„áż· áĽÎ˝ áĽ‘Ď„á˝łĎÎżÎąĎ‚ ÎĽÎąÎĽÎµáż–ĎÎ¸Î±Îą áĽ˘ Ď„áż· áĽ•Ď„ÎµĎÎ± áĽ˘ Ď„áż· áĽ‘Ď„á˝łĎĎ‰Ď‚ ÎşÎ±á˝¶ ÎĽá˝´ Ď„á˝¸Î˝ Î±á˝Ď„á˝¸Î˝ Ď„Ďá˝ąĎ€ÎżÎ˝. 
%
%á˝­ĎĎ€ÎµĎ Îłá˝°Ď ÎşÎ±á˝¶ Ď‡Ďá˝˝ÎĽÎ±ĎÎą ÎşÎ±á˝¶ ĎĎ‡á˝µÎĽÎ±ĎÎą Ď€ÎżÎ»Î»á˝° ÎĽÎąÎĽÎżáż¦Î˝Ď„Î±á˝· Ď„ÎąÎ˝ÎµĎ‚ áĽ€Ď€ÎµÎąÎşá˝±Î¶ÎżÎ˝Ď„ÎµĎ‚ (ÎżáĽ± ÎĽá˝˛Î˝ [20] Î´Îąá˝° Ď„á˝łĎ‡Î˝Î·Ď‚ ÎżáĽ± Î´á˝˛ Î´Îąá˝° ĎĎ…Î˝Î·Î¸Îµá˝·Î±Ď‚),
%áĽ•Ď„ÎµĎÎżÎą Î´á˝˛ Î´Îąá˝° Ď„áż†Ď‚ Ď†Ď‰Î˝áż†Ď‚, Îżá˝•Ď„Ď‰ ÎşáĽ€Î˝ Ď„Î±áż–Ď‚ ÎµáĽ°ĎÎ·ÎĽá˝łÎ˝Î±ÎąĎ‚ Ď„á˝łĎ‡Î˝Î±ÎąĎ‚ áĽ…Ď€Î±ĎÎ±Îą ÎĽá˝˛Î˝ Ď€ÎżÎąÎżáż¦Î˝Ď„Î±Îą Ď„á˝´Î˝ ÎĽá˝·ÎĽÎ·ĎÎąÎ˝ áĽÎ˝ áżĄĎ…Î¸ÎĽáż· ÎşÎ±á˝¶ Î»á˝ąÎłáżł ÎşÎ±á˝¶
%áĽĎÎĽÎżÎ˝á˝·áľł, Ď„Îżá˝»Ď„ÎżÎąĎ‚ Î´áľ˝ áĽ˘ Ď‡Ď‰Ďá˝¶Ď‚ áĽ˘ ÎĽÎµÎĽÎąÎłÎĽá˝łÎ˝ÎżÎąĎ‚Î‡ ÎżáĽ·ÎżÎ˝ áĽĎÎĽÎżÎ˝á˝·áľł ÎĽá˝˛Î˝ ÎşÎ±á˝¶ áżĄĎ…Î¸ÎĽáż· Ď‡Ďá˝˝ÎĽÎµÎ˝Î±Îą ÎĽá˝ąÎ˝ÎżÎ˝ áĽĄ Ď„Îµ Î±á˝Î»Î·Ď„ÎąÎşá˝´ ÎşÎ±á˝¶ áĽˇ ÎşÎąÎ¸Î±ĎÎąĎĎ„ÎąÎşá˝´
%ÎşáĽ‚Î˝ ÎµáĽ´ Ď„ÎąÎ˝ÎµĎ‚ [25] áĽ•Ď„ÎµĎÎ±Îą Ď„Ď…ÎłĎ‡á˝±Î˝Ď‰ĎÎąÎ˝ Îżá˝–ĎÎ±Îą Ď„ÎżÎąÎ±áż¦Ď„Î±Îą Ď„á˝´Î˝ Î´á˝»Î˝Î±ÎĽÎąÎ˝, ÎżáĽ·ÎżÎ˝ áĽˇ Ď„áż¶Î˝ ĎĎ…Ďá˝·ÎłÎłĎ‰Î˝, Î±á˝Ď„áż· Î´á˝˛ Ď„áż· áżĄĎ…Î¸ÎĽáż· [ÎĽÎąÎĽÎżáż¦Î˝Ď„Î±Îą]
%Ď‡Ď‰Ďá˝¶Ď‚ áĽĎÎĽÎżÎ˝á˝·Î±Ď‚ áĽˇ Ď„áż¶Î˝ á˝€ĎĎ‡Î·ĎĎ„áż¶Î˝ (ÎşÎ±á˝¶ Îłá˝°Ď Îżá˝—Ď„ÎżÎą Î´Îąá˝° Ď„áż¶Î˝ ĎĎ‡Î·ÎĽÎ±Ď„ÎąÎ¶ÎżÎĽá˝łÎ˝Ď‰Î˝ áżĄĎ…Î¸ÎĽáż¶Î˝ ÎĽÎąÎĽÎżáż¦Î˝Ď„Î±Îą ÎşÎ±á˝¶ áĽ¤Î¸Î· ÎşÎ±á˝¶ Ď€á˝±Î¸Î· ÎşÎ±á˝¶ Ď€Ďá˝±ÎľÎµÎąĎ‚)Î‡ 
% }
%
% \bigskip
% The first line of the code that was used to typeset the previous passage follows:
% \begin{center}
% \texttt{\char`\\setlanguage\char`\{ancientgreek\char`\}\char`\\textinit\char`\{Î&nbsp;\char`\}\char`\{ÎµĎá˝¶\char`\} Ď€ÎżÎąÎ·Ď„ÎąÎşáż†Ď‚ 
%  Î±á˝Ď„áż†Ď‚\ldots}
% \end{center} 
% Notice that here we enable the \texttt{ancientgreek} hyphenation patterns to allows \XeTeX\ to correctly
% hyphenate the text.
%
% \section{The package \textsf{philokalia}}
%
% First of all, we have to load a number of packages that are necessary for the correct use of the font.
% In addition, we use the \textsf{lettrine} package to typeset the titling capitals. 
%    \begin{macrocode}
%&lt;*philokalia&gt;
\RequirePackage{xltxtra}
\RequirePackage{lettrine}
\newsavebox{\Pb@x}
%    \end{macrocode}
% Unfortunately, we cannot use the \textsf{lettrine} package as it stands. We need to sligthly modify
% two macros. In particular, the macro \verb=\Lettrine@height=, which computes the height of the 
% titling capital, has to compute the height of the letter \texttt{x} of a font in order to 
% carry out its computation. Since the font does not include this character, we had to modify the
% code so as to compÎ˝ute the height of the letter \texttt{Î±} instead. Similarly, we had to modify the macro 
% \verb=\LettrineFont= because it was designed with the assumption that the main font of the document has 
% the \texttt{X} character, which, again, is not valid for our case.    
%    \begin{macrocode}
\def\Lettrine@height{%
   \@tempdima=\baselineskip
   \setlength{\L@height}{\theL@lines\@tempdima}%
   \ifnum\theL@lines&gt;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&gt;0
     \def\@tempa{1.\the\@tempcnta}%
   \else
     \def\@tempa{1}%
   \fi
   \LettrineFontHook
   \fontsize{\@tempa\L@height}{\@tempa\L@height}%
   \selectfont
}
%    \end{macrocode}  
% Now, we have to define the two options: global and local (the default one). In the first case, we 
% define the command \verb|\textinit| that is used to typeset drop capitals from the titling
% capitals included in the font. By default, the \texttt{titl} feature of the font is not enabled
% as this would mean that all paragraphs would start with these really huge titling capitals.
% Also, the font is made the default font for the entire document. Notice that we use a box variable
% to store the letter that will appear as a drop capital. This is necessary in order to have in 
% the box the titling capital and not the ordinary capital letter, or else the \verb|\lettrine|
% command will fail to correctly compute the height and width of the letter.
%    \begin{macrocode}
\DeclareOption{global}{%
   \renewcommand{\rmdefault}{plk}%
   \DeclareFontFamily{TU}{plktitl}{}%
   \DeclareFontShape{TU}{plktitl}{m}{n}%
    {&lt;-&gt; "[Philokalia-Regular]/ICU:script=grek,+titl"}{}%
   \newcommand{\textinit}[2]{%
       \savebox{\Pb@x}{\usefont{TU}{plktitl}{m}{n} #1}%
       \lettrine[lines=3]{\usebox{\Pb@x}}{#2}}%
}
%    \end{macrocode}
% When the package is used with the default option, it provides two commands to typeset short
% passages of text. As is evident from the code that follows, the first macro is actually a
% definition and the second a command that can be used to typeset its argument with the font. Users
% should use the definition with care.
%    \begin{macrocode}
\DeclareOption{local}{%
   \def\phkl{\fontfamily{plk}\selectfont}%
   \newcommand{\textphlk}[1]{{\phkl #1}}%
}
\ExecuteOptions{local}
\ProcessOptions
%    \end{macrocode}
% The following commands are glyph access commands for the archaic mathematical symbols included in
% the font. They produce the symbols \dsubop, \dUnit, \dunit, and \dunknown, respectively.
%    \begin{macrocode}
\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}}
%&lt;/philokalia&gt;
%    \end{macrocode}
%
% \section{The Font Definition File}
% Since there is only one font shape, there is not much work to do: we just need to specify 
% the available font properties. We use the standard font encoding defined by package
% \textsf{fontspec}. In this version we use \texttt{TU} font encoding instead of \texttt{EU1}, which was
% predefined by the same package. 
%    \begin{macrocode}
%&lt;*TUplk&gt;
\DeclareFontFamily{TU}{plk}{}
\DeclareFontShape{TU}{plk}{m}{n}%
     {&lt;-&gt; "[Philokalia-Regular]/ICU:script=grek,+hlig,+clig:mapping=tex-text"}{
}
%    \end{macrocode}
% And then we define the various substitutions:
%    \begin{macrocode}
\DeclareFontShape{TU}{plk}{m}{sl}{&lt;-&gt; ssub * plk/m/n}{}
\DeclareFontShape{TU}{plk}{m}{it}{&lt;-&gt; ssub * plk/m/sl}{}
\DeclareFontShape{TU}{plk}{m}{sc}{&lt;-&gt; ssub * plk/m/n}{}
\DeclareFontShape{TU}{plk}{b}{n}{&lt;-&gt; ssub * plk/m/n}{}
\DeclareFontShape{TU}{plk}{b}{sl}{&lt;-&gt; ssub * plk/m/n}{}
\DeclareFontShape{TU}{plk}{b}{it}{&lt;-&gt; ssub * plk/m/n}{}
\DeclareFontShape{TU}{plk}{bx}{n}{&lt;-&gt; ssub * plk/b/n}{}
\DeclareFontShape{TU}{plk}{bx}{it}{&lt;-&gt; ssub * plk/b/sl}{}
\DeclareFontShape{TU}{plk}{bx}{sl}{&lt;-&gt; ssub * plk/b/sl}{}
%&lt;/TUplk&gt;
%    \end{macrocode} 
%
% \section*{Acknowledgements}
% First of all, I thank Ioannis Gamvetas for his collaboration back in the years 2002-2003.
% Also, I would like to thank George Williams, the designer of FontForge, the free font-editor, for all his
% valuable help, Adam Twardoch for explaining to me how to implement the contextual ligature, and Dimitrios
% Philippou for his comments and suggestions. Also, I thank Ioannis Vamvakas  for letting me know that the
% previous version does not work with the latest version of package \textsf{fontspec}.
% Last, but certainly not least, I thank my son for his help!
%
% \Finale
</pre></body></html>