diff options
author | Hans Hagen <pragma@wxs.nl> | 2019-02-22 20:29:46 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2019-02-22 20:29:46 +0100 |
commit | 7b271baae19db1528fbe6621bdf50af89a5a336b (patch) | |
tree | 4fc24a8f2be20aa90e90f6e1bcb62d69f4946235 /doc/context/sources/general/manuals/interaction/interaction-titlepage.tex | |
parent | 67b9965fe473d18f13ed4c40f1e4e008eb870322 (diff) | |
download | context-7b271baae19db1528fbe6621bdf50af89a5a336b.tar.gz |
2019-02-22 19:43:00
Diffstat (limited to 'doc/context/sources/general/manuals/interaction/interaction-titlepage.tex')
-rw-r--r-- | doc/context/sources/general/manuals/interaction/interaction-titlepage.tex | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/doc/context/sources/general/manuals/interaction/interaction-titlepage.tex b/doc/context/sources/general/manuals/interaction/interaction-titlepage.tex new file mode 100644 index 000000000..43b29baf9 --- /dev/null +++ b/doc/context/sources/general/manuals/interaction/interaction-titlepage.tex @@ -0,0 +1,47 @@ +% language=uk + +\environment interaction-style + +\startcomponent interaction-titlepage + +\startMPpage + + StartPage ; + numeric w, h, sh ; transform t ; path p ; pair c ; + w := PaperWidth ; + h := PaperHeight ; + p := Page ; + fill p withcolor .4white ; + sh := define_linear_shade(llcorner p, urcorner p, .6yellow, .6blue) ; + c := center boundingbox outlinetext.p("\ss\bf INTERACTIVITY") ; + set_grid(w, h, w/8, h/8) ; + forever : + if new_on_grid(uniformdeviate w,uniformdeviate h) : + t := identity + scaled (3+uniformdeviate 3) + shifted ((dx,dy) - c) + ; + draw outlinetext.b + ("\bf\ss INTERACTIVITY") + (transformed t withshade sh) + (transformed t withpen pencircle scaled 3 withcolor .6white) + ; + fi ; + exitif grid_full ; + endfor ; + draw anchored.lrt ( + textext("\bf\ss \ConTeXt") xsized .6PaperWidth, + lrcorner p shifted (-10mm,40mm) + ) withcolor white ; + draw anchored.lrt ( + textext("\bf\ss Hans Hagen") xsized .6PaperWidth, + lrcorner p shifted (-10mm,15mm) + ) withcolor white ; + StopPage; + +\stopMPpage + +\page[empty] +\page[right] + +\stopcomponent |