From f58a2cb5d22c5931581274db1f0ec85ac903b747 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Mon, 28 Oct 2019 20:03:50 +0100
Subject: 2019-10-28 18:22:00

---
 .../manuals/luametafun/luametafun-groups.tex       | 52 ++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 doc/context/sources/general/manuals/luametafun/luametafun-groups.tex

(limited to 'doc/context/sources/general/manuals/luametafun/luametafun-groups.tex')

diff --git a/doc/context/sources/general/manuals/luametafun/luametafun-groups.tex b/doc/context/sources/general/manuals/luametafun/luametafun-groups.tex
new file mode 100644
index 000000000..b29ab3cbf
--- /dev/null
+++ b/doc/context/sources/general/manuals/luametafun/luametafun-groups.tex
@@ -0,0 +1,52 @@
+% language=us
+
+\environment luametafun-style
+
+\startcomponent luametafun-groups
+
+\startchapter[title={Groups}]
+
+This is just a quick example of an experimental features.
+
+\startbuffer
+\startMPcode
+    fill fullcircle scaled 2cm shifted ( 5mm,2cm) withcolor "darkblue" ;
+    fill fullcircle scaled 2cm shifted (15mm,2cm) withcolor "darkblue" ;
+
+    fill fullcircle scaled 2cm shifted ( 5mm,-2cm) withcolor "darkgreen" ;
+    fill fullcircle scaled 2cm shifted (15mm,-2cm) withcolor "darkgreen" ;
+
+    draw image (
+        fill fullcircle scaled 4cm                 withcolor "darkred" ;
+        fill fullcircle scaled 4cm shifted (2cm,0) withcolor "darkred" ;
+
+        setgroup currentpicture to boundingbox currentpicture
+            withtransparency (1,.5) ;
+    ) ;
+
+    draw image (
+        fill fullcircle scaled 3cm                 withcolor "darkyellow"
+            withtransparency (1,.5) ;
+        fill fullcircle scaled 3cm shifted (2cm,0) withcolor "darkyellow"
+            withtransparency (1,.5) ;
+    ) ;
+
+    addbackground withcolor "darkgray" ;
+\stopMPcode
+\stopbuffer
+
+\typebuffer[option=TEX]
+
+A group create an object that when transparency is applied is treated as
+a group.
+
+\startlinecorrection
+    \getbuffer
+\stoplinecorrection
+
+(Groups might become more powerful in the future, like reusable components but
+then some more juggling is needed.)
+
+\stopchapter
+
+\stopcomponent
-- 
cgit v1.2.3