luamplib (10jun24)

git-svn-id: svn://tug.org/texlive/trunk@71467 c570f23f-e606-0410-a88d-b1316a301751

4 files changed, 76 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/luatex/luamplib/NEWS b/Master/texmf-dist/doc/luatex/luamplib/NEWS
index 8339e9ce655..67dcb5814fc 100644
--- a/Master/texmf-dist/doc/luatex/luamplib/NEWS
+++ b/Master/texmf-dist/doc/luatex/luamplib/NEWS
@@ -1,5 +1,11 @@
                        History of the luamplib package
 
+2024/06/10 2.32.0
+   * \mppattern{<name>} ... \endmppattern defines a tiling pattern which can be
+   used with 'withpattern' operator to fill a closed path by replicating the tile
+   horizontally and vertically.  \begin{mppattern} ... \end{mppattern} is exactly
+   the same as \mppattern ... \endmppattern.  See luamplib manual for details.
+
 2024/05/30 2.31.2
    * support vertical writing mode in mpliboutlinetext (presently luatexko
    package only, and except horizontal mode inside vertical mode)
diff --git a/Master/texmf-dist/doc/luatex/luamplib/luamplib.pdf b/Master/texmf-dist/doc/luatex/luamplib/luamplib.pdf
index c3e099a5d9f..dd732665bbf 100644
--- a/Master/texmf-dist/doc/luatex/luamplib/luamplib.pdf
+++ b/Master/texmf-dist/doc/luatex/luamplib/luamplib.pdf
diff --git a/Master/texmf-dist/doc/luatex/luamplib/test-luamplib-latex.tex b/Master/texmf-dist/doc/luatex/luamplib/test-luamplib-latex.tex
index 2d1994d5354..b3ba66c7fe2 100644
--- a/Master/texmf-dist/doc/luatex/luamplib/test-luamplib-latex.tex
+++ b/Master/texmf-dist/doc/luatex/luamplib/test-luamplib-latex.tex
@@ -244,6 +244,41 @@ draw mpliboutlinetext.b ("$\displaystyle\frac{1}{1-x^2}$")
     )
     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
+\begin{mppattern}{pattuncolored}
+  [
+    colored = false,
+    matrix = "0.7071 0.7071 -0.7071 0.7071",
+  ]
+  \tiny\TeX
+\end{mppattern}\relax
+\mpfig
+  picture tex; tex := mpliboutlinetext.p ("\bfseries \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
diff --git a/Master/texmf-dist/doc/luatex/luamplib/test-luamplib-plain.tex b/Master/texmf-dist/doc/luatex/luamplib/test-luamplib-plain.tex
index bc955d2f8ff..9c0dbccd9c5 100644
--- a/Master/texmf-dist/doc/luatex/luamplib/test-luamplib-plain.tex
+++ b/Master/texmf-dist/doc/luatex/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