blob: 6e979fba2c55c78b8cbf9bf6f22d6f6a1e944d25 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
% 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}
|