From f72c2cf29d36ae836c894bad29dfd965d1af0236 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Sun, 18 Aug 2019 22:51:53 +0200
Subject: 2019-08-18 22:26:00

---
 .../manuals/followingup/followingup-titlepage.tex  | 58 ++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 doc/context/sources/general/manuals/followingup/followingup-titlepage.tex

(limited to 'doc/context/sources/general/manuals/followingup/followingup-titlepage.tex')

diff --git a/doc/context/sources/general/manuals/followingup/followingup-titlepage.tex b/doc/context/sources/general/manuals/followingup/followingup-titlepage.tex
new file mode 100644
index 000000000..1256c049a
--- /dev/null
+++ b/doc/context/sources/general/manuals/followingup/followingup-titlepage.tex
@@ -0,0 +1,58 @@
+\startcomponent followingup-titlepage
+
+\environment followingup-style
+
+\startluacode
+    function document.graphic()
+        local min, max, random, round = math.min, math.max, math.random, math.round
+
+        local width  = 210
+        local height = 297
+
+        local bitmap = graphics.bitmaps.new(width,height,"rgb",1)
+        local data   = bitmap.data
+
+        for i=1,height do
+            local d = data[i]
+            for j=1,width do
+ --               d[j] = { 0, 0, random(100,200) }
+                d[j] = { 0, 0, random(128,255) }
+            end
+        end
+
+        graphics.bitmaps.tocontext(bitmap,"210bp","297bp")
+    end
+\stopluacode
+
+\startuseMPgraphic{graphic}
+    StartPage ;
+      % fill Page
+      %     withcolor "maincolor" ;
+        draw textext.urt("\bf \WORD{following up}")
+            rotated 90
+            ysized (PaperHeight-10mm)
+            shifted lrcorner Page
+            shifted (-10mm,5mm)
+            withcolor "middlegray" ;
+        draw textext.lft("\bf\strut\ConTeXt")
+            ysized 4.5cm
+            shifted lrcorner Page
+            shifted (-50mm,70mm)
+            withcolor "white" ;
+        draw textext.lft("\bf\strut lm\kern-.1ex tx")
+            ysized 4cm
+            shifted lrcorner Page
+            shifted (-50mm,37.5mm)
+            withcolor "white" ;
+    StopPage ;
+\stopuseMPgraphic
+
+\startpagemakeup[pagestate=stop,doublesdided=no]
+    \startoverlay
+      % {luametatex} % for searching
+        {\scale[width=\paperwidth]{\ctxlua{document.graphic()}}}
+        {\useMPgraphic{graphic}}
+    \stopoverlay
+\stoppagemakeup
+
+\stopcomponent
-- 
cgit v1.2.3

