info/drawing-with-metapost/src/greek-gfs-encoding.mp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

\documentclass{standalone}
\usepackage{luamplib}
\begin{document}
\begin{mplibcode}
beginfig(2);
string ab, AB;
ab = "abgdezhjiklmnoxprstufqyw";
AB = "ABGDEZHJIKLMNOXPRSTUFQYW";
y := 0;
for $="grmn1000", "gporsonrg6r", "gneohellenicrg6r":
  draw $ infont "cmss10" scaled 0.8 shifted (0,y) withcolor .67 red;
  draw ab infont $ shifted (0,y-10);
  draw AB infont $ shifted (0,y-22);
  y := y - 40;
endfor
undraw (6 left -- 180 right) shifted 12 up;
undraw (6 left -- 180 right) shifted 108 down;
endfig;
\end{mplibcode}
\end{document}