% Test definitions for accents and composite accents in Greek
\RequirePackage{latexbug}
\documentclass[a4paper]{article}
% \pagestyle{empty}
\usepackage{lmodern}

% Load encoding definitions (after font package)
\usepackage[LGR,T1]{fontenc}


% \usepackage{textalpha}  % Greek script "everywhere"!
\usepackage[greek,english,provide=*]{babel}    % Babel's Greek "ini"
% \usepackage[greek,english]{babel}  % babel-greek

\begin{document}

\section*{Test upcasing of Greek characters with 8-bit TeX}

The Greek and Coptic Unicode Block

\newcommand{\GreekAndCoptic}{%
                   ͺ ; ΄   ΅    Ά ·  Έ  Ή  Ί  Ό  Ύ  Ώ  \\
               ΐ Α Β Γ  Δ Ε Ζ Η Θ Ι  Κ  Λ  Μ  Ν  Ξ  Ο  \\
               Π Ρ   Σ  Τ Υ Φ Χ Ψ Ω  Ϊ  Ϋ  ά  έ  ή  ί  \\
               ΰ α β γ  δ ε ζ η θ ι  κ  λ  μ  ν  ξ  ο  \\
               π ρ ς σ  τ υ φ χ ψ ω  ϊ  ϋ  ό  ύ  ώ     }
\begin{quote}
  \selectlanguage{greek}
  % \greekscript
  \GreekAndCoptic
\end{quote}
%
MakeUppercase:
\begin{quote}
  \selectlanguage{greek}
  % \greekscript
  \MakeUppercase{\GreekAndCoptic}
\end{quote}
%
% MakeLowercase:
% \begin{quote}
%   \greekscript
%   \MakeLowercase{\GreekAndCoptic}
% \end{quote}


Greek extended Unicode block

\newcommand{\GreekExtended}{\raggedright
  ἀ   ἁ   ἂ   ἃ   ἄ   ἅ   ἆ    ἇ    Ἀ   Ἁ   Ἂ   Ἃ   Ἄ   Ἅ   Ἆ  Ἇ \\
  ἐ   ἑ   ἒ   ἓ   ἔ   ἕ \ \  \ \    Ἐ   Ἑ   Ἒ   Ἓ   Ἔ   Ἕ        \\
  ἠ   ἡ   ἢ   ἣ   ἤ   ἥ   ἦ    ἧ    Ἠ   Ἡ   Ἢ   Ἣ   Ἤ   Ἥ   Ἦ  Ἧ \\
  ἰ   ἱ   ἲ   ἳ   ἴ   ἵ   ἶ    ἷ    Ἰ   Ἱ   Ἲ   Ἳ   Ἴ   Ἵ   Ἶ  Ἷ \\
  ὀ   ὁ   ὂ   ὃ   ὄ   ὅ \ \  \ \    Ὀ   Ὁ   Ὂ   Ὃ   Ὄ   Ὅ        \\
  ὐ   ὑ   ὒ   ὓ   ὔ   ὕ   ὖ    ὗ  \ \   Ὑ \ \   Ὓ \ \   Ὕ \ \  Ὗ \\
  ὠ   ὡ   ὢ   ὣ   ὤ   ὥ   ὦ    ὧ    Ὠ   Ὡ   Ὢ   Ὣ   Ὤ   Ὥ   Ὦ  Ὧ \\
  ὰ   ά   ὲ   έ   ὴ   ή   ὶ    ί    ὸ   ό   ὺ   ύ   ὼ   ώ        \\
  ᾀ   ᾁ   ᾂ   ᾃ   ᾄ   ᾅ   ᾆ    ᾇ    ᾈ   ᾉ   ᾊ   ᾋ   ᾌ   ᾍ   ᾎ  ᾏ \\
  ᾐ   ᾑ   ᾒ   ᾓ   ᾔ   ᾕ   ᾖ    ᾗ    ᾘ   ᾙ   ᾚ   ᾛ   ᾜ   ᾝ   ᾞ  ᾟ \\
  ᾠ   ᾡ   ᾢ   ᾣ   ᾤ   ᾦ   ᾧ    ᾥ    ᾨ   ᾩ   ᾪ   ᾫ   ᾬ   ᾭ   ᾮ  ᾯ \\
  ᾰ   ᾱ   ᾲ   ᾳ   ᾴ \ \   ᾶ    ᾷ    Ᾰ   Ᾱ   Ὰ   Ά   ᾼ   ᾽   ι  ᾿ \\
  ῀   ῁   ῂ   ῃ   ῄ \ \   ῆ    ῇ    Ὲ   Έ   Ὴ   Ή   ῌ   ῍      ῏ \\
  ῐ   ῑ   ῒ   ΐ \ \ \ \   ῖ    ῗ    Ῐ   Ῑ   Ὶ   Ί \ \   ῝      ῟ \\
  ῠ   ῡ   ῢ   ΰ \ \ \ \   ῤ    ῥ    ῦ   ῧ   Ὺ   Ύ   Ῥ   ῭      ` \\
 \ \ \ \  ῲ   ῳ   ῴ \ \   ῶ    ῷ    Ὸ   Ό   Ὼ   Ώ   ῼ   ´        }

\begin{quote}
  \selectlanguage{greek}
  \greekscript
  \GreekExtended
\end{quote}
%
MakeUppercase:
\begin{quote}
  \selectlanguage{greek}
  \greekscript
  \MakeUppercase{\GreekExtended}
\end{quote}

% MakeLowercase:
% \begin{quote}
%   % \selectlanguage{greek}
%   \greekscript
%   \MakeLowercase{\GreekExtended}
% \end{quote}

\end{document}
