summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/greek-homer.mp
blob: 0a872fe16e6498e5f611a36242d9e469cd13b9f2 (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
\documentclass{standalone}
\usepackage{luamplib}
\begin{document}
\begin{mplibcode}
vardef setg(text t) = 
    save G; picture G;
    save x; numeric x; x = 0;
    G = image(
        for w = t:
            picture g; 
            g = w infont "gporsonrg6r";
            draw g shifted (x, 0);
            x := x + xpart (urcorner g - llcorner g) + 3;
        endfor
    ); G enddef;
beginfig(1);
picture homer;
homer = setg("m" & char 168 & "nin", char 138 & "eide",  "je" & char 128, 
             "Phlh" & char 240 & char 136 & "deiw", ">Aqil" & char 168 & "oc");
undraw 10 left -- 272 right;
draw homer scaled 1.732 withcolor .54 red;
endfig;
\end{mplibcode}
\end{document}