%%
%% This is file `gfsdidot.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% gfsdidot.dtx  (with options: `gfsdidot')
%%
%%  (c) copyright  2001
%% Antonis Tsolomitis
%% Department of Mathematics, University of the Aegean
%%
%%  This program can be redistributed and/or modified under the terms
%%  of the LaTeX Project Public License Distributed from CTAN
%%  archives in directory macros/latex/base/lppl.txt; either
%%  version 1 of the License, or any later version.
%%
%%   Please report errors or suggestions for improvement to
%%
%%     Dr. Antonis Tsolomitis
%%     Department of Mathematics
%%     University of the Aegean
%%     atsol@aegean.gr
%%
\ProvidesFile{gfsdidot.sty}
[2023/12/13 v1.1 Package `gfsdidot.sty']
\NeedsTeXFormat{LaTeX2e}

%The following command create a line with space characters
%surrounded by stars. It will be used in the following message
%to print nicely a blank line
\providecommand\msgGFSDidot@blankLine{%
*\space\space\space\space\space\space\space\space\space\space\space
\space\space\space\space\space\space\space\space\space\space\space
\space\space\space\space\space\space\space\space\space\space
\space\space\space\space\space\space\space\space\space\space
\space\space\space\space\space\space\space\space\space\space
\space\space\space\space\space\space\space\space\space\space*}
%This command will provide the indentation of the following 
%message
\providecommand\msgGFSDidot@indent{%
\space\space}
\message{^^J%
         \msgGFSDidot@indent****************************************************************^^J%
         \msgGFSDidot@indent* GFS-Didot style file by A. Tsolomitis and I. Vasilogiorgakis *^^J%
         \msgGFSDidot@indent\msgGFSDidot@blankLine  ^^J%
         \msgGFSDidot@indent* Mod. by A. Aubord for better work with OT1/T1/TS1 encodings. *^^J%
         \msgGFSDidot@indent\msgGFSDidot@blankLine  ^^J%
         \msgGFSDidot@indent****************************************************************^^J%
         ^^J%
        }

%This package is standard LaTeX2e to create tests and boolean variables
\RequirePackage{ifthen}
%This boolean is true when one does  want to load
%automaticaly the package Text Companion which provide
%default glyphs for a lot of  characters and give access to some
%uncommon symbols
\newboolean{GFSDidotTS1}
\setboolean{GFSDidotTS1}{true}
\DeclareOption{noGFSDidotTS1}{\setboolean{GFSDidotTS1}{false}}
\ProcessOptions

\renewcommand{\rmdefault}{udidot}
%Palatino package to use the missing characters
%in GFS Didot.
\RequirePackage{pxfonts}
%
%Provides some new defaults because some characters are better defined
%in T1 didot encoding than in OT1 encoding. Since this file
%is defining the commands for using the GFS Didot fonts, one
%can assume that the GFS Didot fonts in T1 encoding are available too.
%
\DeclareTextSymbolDefault{\guillemotleft}{T1}
\DeclareTextSymbolDefault{\guillemotright}{T1}
\DeclareTextSymbolDefault{\guilsinglleft}{T1}
\DeclareTextSymbolDefault{\guilsinglright}{T1}
\DeclareTextSymbolDefault{\textless}{T1}
\DeclareTextSymbolDefault{\textbar}{T1}
\DeclareTextSymbolDefault{\textgreater}{T1}
\DeclareTextSymbolDefault{\textbackslash}{T1}
\DeclareTextSymbolDefault{\textbraceleft}{T1}
\DeclareTextSymbolDefault{\textbraceright}{T1}
\DeclareTextSymbolDefault{\textsterling}{T1}
\DeclareTextSymbolDefault{\l}{T1}
\DeclareTextSymbolDefault{\L}{T1}
\UndeclareTextCommand{\guillemotleft}{OT1}
\UndeclareTextCommand{\guillemotright}{OT1}
\UndeclareTextCommand{\guilsinglleft}{OT1}
\UndeclareTextCommand{\guilsinglright}{OT1}
\UndeclareTextCommand{\textless}{OT1}
\UndeclareTextCommand{\textbar}{OT1}
\UndeclareTextCommand{\textgreater}{OT1}
\UndeclareTextCommand{\textbackslash}{OT1}
\UndeclareTextCommand{\textbraceleft}{OT1}
\UndeclareTextCommand{\textbraceright}{OT1}
\UndeclareTextCommand{\textsterling}{OT1}
\UndeclareTextCommand{\l}{OT1}
\UndeclareTextCommand{\L}{OT1}
%The ring accent seems to be buggy in OT1 encoding
%specially with Aring, the one in OT1 encoding is used instead
\DeclareTextAccentDefault{\r}{T1}
\UndeclareTextCommand{\r}{OT1}
%This accent does not exist in OT1 encoding
\DeclareTextAccentDefault{\k}{T1}
\UndeclareTextCommand{\k}{OT1}
%The circumflex and tilde accents are positioned to high in T1 encoding
%but they are correctly positioned in OT1 encoding. We use
%the OT1 encoding when these accents should be used
%without having a full precomposed glyph.
\DeclareTextAccentDefault{\^}{OT1}
\UndeclareTextCommand{\^}{T1}
\DeclareTextAccentDefault{\~}{OT1}
\UndeclareTextCommand{\~}{T1}
%The caron and the bar accents are missing in the T1 encoding,
%the character in OT1 encoding is used instead
\DeclareTextAccentDefault{\=}{OT1}
\UndeclareTextCommand{\=}{T1}
\DeclareTextAccentDefault{\b}{OT1}
\UndeclareTextCommand{\b}{T1}
%In T1 encodig the uppercase german esszet (long S) is
%missing. The one in OT1 is used instead.
\DeclareTextAccentDefault{\SS}{OT1}
\UndeclareTextCommand{\SS}{T1}
%as is dotless j
\DeclareTextSymbolDefault{\j}{OT1}
\UndeclareTextCommand{\j}{T1}

%Load of the Text Companion package to provide defaults for some glyphs
%and access to uncommon symbols (monetary units, common fraction, 
%musical note etc.)
\ifthenelse{\boolean{GFSDidotTS1}}{%
   \RequirePackage[full]{textcomp}
   %GFS Didot has the full TS1 encoding.
   \DeclareEncodingSubset{TS1}{udidot}{0}%
}{}

\providecommand{\uishape}{\fontfamily{udidot}\fontseries{m}\fontshape{ui}\selectfont}
\providecommand{\scslshape}{\fontfamily{udidot}\fontseries{m}\fontshape{sco}\selectfont}
\providecommand{\textui}[1]{{\fontfamily{udidot}\fontseries{m}\fontshape{ui}\selectfont
    #1}}
\providecommand{\textscsl}[1]{{\fontfamily{udidot}\fontseries{m}\fontshape{sco}\selectfont
  #1}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\providecommand{\tabnums}[1]{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont #1}}
\renewcommand{\textbullet}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'42}}
%\renewcommand{\star}{{\usefont{OML}{pxmi}{m}{it}\selectfont\char'77}}
\let\myst@r=\star
\renewcommand{\star}{\raise-.5ex\hbox{${}\myst@r{}$\kern-.1em}}
\providecommand{\textparagraphalt}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'265}}
\renewcommand{\textparagraph}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'266}}
\providecommand{\careof}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'13}}
\providecommand{\numero}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'5}}
\providecommand{\estimated}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'6}}
%\newcommand{\exclamdbl}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'7}}
\providecommand{\whitebullet}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'10}}
\providecommand{\textlozenge}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'4}}
\providecommand{\eurocurrency}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'12}}
\providecommand{\interrobang}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'15}}
\providecommand{\yencurrency}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'16}}
%\newcommand{\fracline}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'4}}
\providecommand{\textfrac}[2]{\hbox{{\usefont{U}{udidotnums}{m}{textnumnums}\selectfont #1/}%
                         {\usefont{U}{udidotnums}{m}{textdenomnums}\selectfont /#2}}}
\providecommand{\onehalf}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'100}}
\providecommand{\onethird}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'101}}
\providecommand{\twothirds}{{\usefont{U}{udidotnums}{m}{tabnums}\selectfont\char'102}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%% double lambda for Olga %%%%%%%%%%%%%%%%%%%
\providecommand{\lambdadbl}{{\usefont{LGR}{udidot}{m}{it}\selectfont\char"15}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%\def\stigma{st}
\DeclareTextCommand{\anwtonos}{LGR}{\char'047\relax}
%\let\katwtonos\relax
%\let\qoppa\relax
%\let\sampi\relax
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\@ifpackagewith{inputenc}{iso-8859-7}{%
      \DeclareInputText{242}{c}%
}{}                 
\@ifpackagewith{babel}{greek}{%
%%%% from grsymb package %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\DeclareTextCommand{\Digamma}{LGR}{\char"C3\relax}
\DeclareTextCommand{\ddigamma}{LGR}{\char"93\relax}
\DeclareTextCommand{\tao}{LGR}{\char"01\relax}
\DeclareTextCommand{\Qoppa}{LGR}{\char"14\relax}
\DeclareTextCommand{\varqoppa}{LGR}{\char"13\relax}
\DeclareTextCommand{\Sampi}{LGR}{\char"13\relax}
\DeclareTextCommand{\sampi}{LGR}{\char"13\relax}
\DeclareTextCommand{\vardigamma}{LGR}{\char"07\relax}
\DeclareTextCommand{\Stigma}{LGR}{\textlatin{\char"43\relax}}
\DeclareTextCommand{\VarQoppa}{LGR}{\textlatin{\char"47\relax}}   
\DeclareTextCommand{\euro}{LGR}{\char"18\relax}
\DeclareTextCommand{\Euro}{LGR}{\char"18\relax}
%\DeclareTextCommand{\permill}{LGR}{\char"19\relax}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}{%
\@ifpackagewith{babel}{polutonikogreek}{
%%%% from grsymb package %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\DeclareTextCommand{\Digamma}{LGR}{\char"C3\relax}   
\DeclareTextCommand{\ddigamma}{LGR}{\char"93\relax}
\DeclareTextCommand{\tao}{LGR}{\char"01\relax}
\DeclareTextCommand{\Qoppa}{LGR}{\char"14\relax}
\DeclareTextCommand{\varqoppa}{LGR}{\char"13\relax}
\DeclareTextCommand{\Sampi}{LGR}{\char"13\relax}
\DeclareTextCommand{\sampi}{LGR}{\char"13\relax}
\DeclareTextCommand{\vardigamma}{LGR}{\char"07\relax}
\DeclareTextCommand{\Stigma}{LGR}{\textlatin{\char"43\relax}}
\DeclareTextCommand{\VarQoppa}{LGR}{\textlatin{\char"47\relax}}
\DeclareTextCommand{\euro}{LGR}{\char"18\relax}
\DeclareTextCommand{\Euro}{LGR}{\char"18\relax}
%\DeclareTextCommand{\permill}{LGR}{\char"19\relax}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}{}}            

%% Fix LaTeX logos %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% We need LGR to typeset e at the end of \LaTeXe
\InputIfFileExists{lgrenc.def}{%
   \message{Loading the definitions for the Greek font encoding}}{%
   \errhelp{I can't find the lgrenc.def file for the Greek fonts}%
   \errmessage{Since I do not know what the LGR encoding means^^J
     I can't typeset Greek.^^J
     I stop here, while you get a suitable lgrenc.def file}\@@end
  }
\renewcommand{\TeX}{T\kern -.1667em\lower .55ex\hbox {E}\kern -.125emX}
\renewcommand{\LaTeXe}{\hbox{\fontencoding{OT1}\fontfamily{udidot}\selectfont L\kern-.29em%
\raisebox{.5ex}{\textsc{a}}\kern-.1em\hbox{\TeX}\kern-.0em\hbox{2}\kern-.05em%
\raisebox{-.4ex}{\fontencoding{LGR}\fontfamily{udidot}\selectfont\textsl{e}}}}      
\renewcommand{\LaTeX}{\hbox{\fontencoding{OT1}\fontfamily{udidot}\selectfont L\kern-.29em%
\raisebox{.5ex}{\textsc{a}}\kern-.1em\hbox{\TeX}}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%% Math %%%%%%%
\let\s@ved@info\@font@info
\let\@font@info\@gobble
\renewcommand{\rmdefault}{udidot}
\DeclareSymbolFont{operators}   {OT1}{udidot}{m}{n}
\DeclareSymbolFont{letters}     {OML}{udidot}{m}{it}
\DeclareMathAlphabet{\mathbf}   {OT1}{udidot}{b}{n}
\DeclareMathAlphabet{\mathit}   {OT1}{udidot}{m}{it}
\SetSymbolFont{operators}{bold}{OT1}{udidot}{b}{n}
%\SetSymbolFont{letters}{bold}{OML}{udidot}{b}{it}
\SetMathAlphabet\mathit{bold}{OT1}{udidot}{b}{it}
\def\defaultscriptratio{.75}
\def\defaultscriptscriptratio{.65}
\DeclareMathSizes{10}{10}{7.5}{6.5}
\DeclareMathSizes{11}{11}{8}{7}
\DeclareMathSizes{12}{12}{9}{8}
  \DeclareMathSymbol{\Gamma}{\mathalpha}{letters}{0}
  \DeclareMathSymbol{\Delta}{\mathalpha}{letters}{1}
  \DeclareMathSymbol{\Theta}{\mathalpha}{letters}{2}
  \DeclareMathSymbol{\Lambda}{\mathalpha}{letters}{3}
  \DeclareMathSymbol{\Xi}{\mathalpha}{letters}{4}
  \DeclareMathSymbol{\Pi}{\mathalpha}{letters}{5}
  \DeclareMathSymbol{\Sigma}{\mathalpha}{letters}{6}
  \DeclareMathSymbol{\Upsilon}{\mathalpha}{letters}{7}
  \DeclareMathSymbol{\Phi}{\mathalpha}{letters}{8}
  \DeclareMathSymbol{\Psi}{\mathalpha}{letters}{9}
  \DeclareMathSymbol{\Omega}{\mathalpha}{letters}{10}
%
\DeclareMathSymbol{\alpha}{\mathalpha}{letters}{11}
\DeclareMathSymbol{\beta}{\mathalpha}{letters}{12}
\DeclareMathSymbol{\gamma}{\mathalpha}{letters}{13}
\DeclareMathSymbol{\delta}{\mathalpha}{letters}{14}
\DeclareMathSymbol{\epsilon}{\mathalpha}{letters}{15}
\DeclareMathSymbol{\zeta}{\mathalpha}{letters}{16}
\DeclareMathSymbol{\eta}{\mathalpha}{letters}{17}
\DeclareMathSymbol{\theta}{\mathalpha}{letters}{18}
\DeclareMathSymbol{\iota}{\mathalpha}{letters}{19}
\DeclareMathSymbol{\kappa}{\mathalpha}{letters}{20}
\DeclareMathSymbol{\lambda}{\mathalpha}{letters}{21}
\DeclareMathSymbol{\mu}{\mathalpha}{letters}{22}
\DeclareMathSymbol{\nu}{\mathalpha}{letters}{23}
\DeclareMathSymbol{\xi}{\mathalpha}{letters}{24}
\DeclareMathSymbol{\pi}{\mathalpha}{letters}{25}
\DeclareMathSymbol{\rho}{\mathalpha}{letters}{26}
\DeclareMathSymbol{\sigma}{\mathalpha}{letters}{27}
\DeclareMathSymbol{\tau}{\mathalpha}{letters}{28}
\DeclareMathSymbol{\upsilon}{\mathalpha}{letters}{29}
\DeclareMathSymbol{\phi}{\mathalpha}{letters}{30}
\DeclareMathSymbol{\chi}{\mathalpha}{letters}{31}
\DeclareMathSymbol{\psi}{\mathalpha}{letters}{32}
\DeclareMathSymbol{\omega}{\mathalpha}{letters}{33}
\DeclareMathSymbol{\varepsilon}{\mathalpha}{letters}{34}
\DeclareMathSymbol{\vartheta}{\mathalpha}{letters}{35}
\DeclareMathSymbol{\varpi}{\mathalpha}{letters}{36}
\DeclareMathSymbol{\varrho}{\mathalpha}{letters}{37}
\DeclareMathSymbol{\varsigma}{\mathalpha}{letters}{38}
\DeclareMathSymbol{\varphi}{\mathalpha}{letters}{39}
\DeclareMathAccent{\vec}{\mathord}{letters}{'176}
\let\didotvec=\vec
\renewcommand{\vec}[1]{\kern-.65em{\didotvec{\hspace*{.65em} #1}}}



\endinput
%%
%% End of file `gfsdidot.sty'.
