summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/greek-default-encoding.mp
blob: 76bbe6b86cad3a3820c05a548c338db99c51cbb8 (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
%\documentclass[border=5mm]{standalone}
%\usepackage{luamplib}
%\begin{document}
%\begin{mplibcode}
prologues := 3;
outputtemplate := "%j.%{outputformat}";
beginfig(1);
string ab, AB;

ab = ("" for i=11 upto 23: & char i endfor 
   & "o" for i=24 upto 33: & char i endfor);

AB = ("AB" & char 0 & char 1 & "EZH" & char 2 & "IK" 
          & char 3 & "MNO" & char 4 & char 5 & "P"
          & char 6 & "T"   & char 7 & char 8 & "X"
          & char 9 & char 10);

draw ab infont "cmmi10";
draw AB infont "cmmi10" shifted 12 down;
draw ab infont "eurm10" shifted 32 down;
draw AB infont "eurm10" shifted 44 down;

undraw (6 left -- 180 right) shifted 12 up;
undraw (6 left -- 180 right) shifted 50 down;

endfig;
%\end{mplibcode}
%\end{document}
end