1
2
3\startcomponent evenmoretitlepage
4
5\environment evenmorestyle
6
7
8
9
10
11
12\definefont[MyFontA][MonoBold*none]
13\definefont[MyFontB][Serif*default]
14
15\startMPpage[pagestate=stop]
16
17StartPage ;
18
19 fill Page withcolor .1 ;
20
21 numeric d ; d := PaperWidth4 ;
22
23 numeric w ; w := d ;
24 numeric h ; h := 2d ;
25
26 draw textext.rt ("\MyFontA E") xsized d shifted (0w,PaperHeight 36mm) withcolor "darkred" ;
27 draw textext.rt ("\MyFontA V") xsized d shifted (1w,PaperHeight 36mm) withcolor "darkgreen" ;
28 draw textext.rt ("\MyFontA E") xsized d shifted (2w,PaperHeight 36mm) withcolor "darkblue" ;
29 draw textext.rt ("\MyFontA N") xsized d shifted (3w,PaperHeight 36mm) withcolor "darkorange" ;
30 draw textext.rt ("\MyFontA M") xsized d shifted (0w,PaperHeight-104mm) withcolor "darkcyan" ;
31 draw textext.rt ("\MyFontA O") xsized d shifted (1w,PaperHeight-104mm) withcolor "darkmagenta" ;
32 draw textext.rt ("\MyFontA R") xsized d shifted (2w,PaperHeight-104mm) withcolor "darkyellow" ;
33 draw textext.rt ("\MyFontA E") xsized d shifted (3w,PaperHeight-104mm) withcolor "darkgray" ;
34
35
36
37
38
39 draw textext.lft ("\MyFontB\setstrut\strut fun with") ysized 27mm shifted lrcorner Page shifted (-10mm,70mm) withcolor "white" ;
40 draw textext.lft ("\MyFontB\setstrut\strut luametatex") ysized 27mm shifted lrcorner Page shifted (-10mm,45mm) withcolor "white" ;
41 draw textext.lft ("\MyFontB\setstrut\strut and context") ysized 27mm shifted lrcorner Page shifted (-10mm,20mm) withcolor "white" ;
42
43StopPage ;
44
45\stopMPpage
46
47\stopcomponent
48 |