diff options
Diffstat (limited to 'macros/luatex/generic/luamplib/test-luamplib-plain.tex')
-rw-r--r-- | macros/luatex/generic/luamplib/test-luamplib-plain.tex | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/macros/luatex/generic/luamplib/test-luamplib-plain.tex b/macros/luatex/generic/luamplib/test-luamplib-plain.tex index bc955d2f8f..9c0dbccd9c 100644 --- a/macros/luatex/generic/luamplib/test-luamplib-plain.tex +++ b/macros/luatex/generic/luamplib/test-luamplib-plain.tex @@ -237,6 +237,41 @@ draw mpliboutlinetext.b ("$\overbrace{x+\cdots+x}^k$") ) scaled 4; \endmpfig +\par\leavevmode +\mppattern{mypatt} + \mpfig + picture q; + q := btex Q etex; + fill bbox q withcolor .8[red,white]; + draw q withcolor .8red; + \endmpfig +\endmppattern +\mpfig + fill fullcircle scaled 100 withpostscript "collect"; + draw unitsquare shifted - center unitsquare scaled 45 + withpattern "mypatt" + withpostscript "evenodd" + ; +\endmpfig +\mppattern{pattuncolored} + [ + colored = false, + matrix = "0.7071 0.7071 -0.7071 0.7071", + ] + \fiverm\TeX +\endmppattern +\mpfig + picture tex; tex := mpliboutlinetext.p ("\bf \TeX"); + i:=0; + for item within tex: + i:=i+1; + if i < length tex: + fill pathpart item scaled 10 withpostscript "collect"; + else: + draw pathpart item scaled 10 withpattern "pattuncolored" withcolor 0.7 blue; + fi + endfor +\endmpfig \tracingcommands0 \vskip 2\baselineskip |