diff options
author | Hans Hagen <pragma@wxs.nl> | 2017-08-11 14:44:14 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2017-08-11 14:44:14 +0200 |
commit | 75db37fb5f8e98bbd8a702ff1d0e765015bab61f (patch) | |
tree | 0f78bc897de87bb5b384b5481fb713241c312889 /doc/context/sources/general/manuals/publications/publications-titlepage.tex | |
parent | 9b0040ddf1cae9296e155906bdb639377aacb7f4 (diff) | |
download | context-75db37fb5f8e98bbd8a702ff1d0e765015bab61f.tar.gz |
2017-08-11 14:07:00
Diffstat (limited to 'doc/context/sources/general/manuals/publications/publications-titlepage.tex')
-rw-r--r-- | doc/context/sources/general/manuals/publications/publications-titlepage.tex | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/doc/context/sources/general/manuals/publications/publications-titlepage.tex b/doc/context/sources/general/manuals/publications/publications-titlepage.tex new file mode 100644 index 000000000..dfc53419a --- /dev/null +++ b/doc/context/sources/general/manuals/publications/publications-titlepage.tex @@ -0,0 +1,39 @@ +\environment publications-style + +\startcomponent publications-titlepage + +\startMPpage + + StartPage ; + + picture pic ; pic := image ( + path pth ; pth := ((0,0) for i=1 step 2 until 20 : -- (i,1) -- (i+1,0) endfor) ; + for i=0 upto 9 : draw pth shifted (0,2*i) ; endfor ; + ) ; + + picture btx ; btx := textext("\ssbf\WORDS{\getvariable{document}{title}}") ; + picture ctx ; ctx := textext("\ssbf\WORDS{\getvariable{document}{subtitle}}") ; + picture dtx ; dtx := textext("\ssbf \getvariable{document}{author}") ; + + pic := pic shifted - llcorner pic ; + btx := btx shifted - llcorner btx ; + ctx := ctx shifted - llcorner ctx ; + dtx := dtx shifted - llcorner dtx ; + + pic := pic xysized (PaperWidth,PaperHeight) ; + btx := btx xsized (2PaperWidth/3) shifted (.25PaperWidth,.225PaperHeight) ; + ctx := ctx xsized (2PaperWidth/3) shifted (.25PaperWidth,.150PaperHeight) ; + dtx := dtx xsized (2PaperWidth/3) shifted (.25PaperWidth,.075PaperHeight) ; + + fill Page withcolor \MPcolor{fore:two} ; + + draw pic withcolor \MPcolor{fore:one} ; + draw btx withcolor \MPcolor{lightgray} ; + draw ctx withcolor \MPcolor{lightgray} ; + draw dtx withcolor \MPcolor{lightgray} ; + + StopPage ; + +\stopMPpage + +\stopcomponent |