diff options
Diffstat (limited to 'info/drawing-with-metapost/src/greek-homer.mp')
-rw-r--r-- | info/drawing-with-metapost/src/greek-homer.mp | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/info/drawing-with-metapost/src/greek-homer.mp b/info/drawing-with-metapost/src/greek-homer.mp new file mode 100644 index 0000000000..0a872fe16e --- /dev/null +++ b/info/drawing-with-metapost/src/greek-homer.mp @@ -0,0 +1,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} + |