1
2
3\startenvironment mfunenvironmentscreen
4
5\enablemode[screen]
6
7\setuppapersize
8 [S6][S6]
9
10\setuplayout
11 [backspace=60pt,
12 topspace=60pt,
13 cutspace=0pt,
14 header=0pt,
15 footer=0pt,
16 bottom=20pt,
17 bottomdistance=40pt,
18 top=20pt,
19 topdistance=40pt,
20 leftmargin=30pt,
21 leftmargindistance=25pt,
22 rightmargin=0pt,
23 edge=0pt,
24 width=middle,
25 height=middle]
26
27\setupbodyfont
28 [9pt]
29
30\setuppagenumbering
31 [alternative=singlesided]
32
33\setupinteraction
34 [state=start,
35 style=bold,
36 color=darkred,
37 contrastcolor=darkred,
38 symbolset=navigation 3,
39 menu=on]
40
41\setupsymbolset
42 [navigation 3]
43
44\setupinteractionscreen
45 [option=max]
46
47\setupinteractionmenu
48 [bottom]
49 [unknownreference=yes,
50 state=start]
51
52\setuptoptexts
53 []
54 [{\lightgray \bf Page \pagenumber
55 \doifcontent\quad{}{}\hbox{\getmarking[section]}}]
56
57\startinteractionmenu[bottom]
58 \txt \bf \lightgray \getmarking[chapter] \\
59 \hfill
60 \bgroup
61 \setupinteraction[color=white,contrastcolor=white]
62 \got [CloseDocument] exit \\
63 \egroup
64 \got [content] content \\
65 \got [index] index \\
66
67 \got [reference] reference \\
68 \setupinteraction[color=white,contrastcolor=white]
69 \got [PreviousJump] \symbol[PreviousJump] \\
70 \got [previouspage] \symbol[previouspage] \\
71 \got [nextpage] \symbol[nextpage] \\
72 \got [NextJump] \symbol[NextJump] \\
73\stopinteractionmenu
74
75\starttexdefinition unexpanded ChapterCommand #1#2
76 \framed [
77 background=titled,
78 frame=off
79 ] {
80 #1
81 \quad
82 #2
83 }
84\stoptexdefinition
85
86\startuseMPgraphic{PageFrame}
87 StartPage ;
88 save p, q, ranx, rany, minx, miny, maxx, maxy ;
89 pickup pencircle scaled 4pt ;
90 pair p[] ; path q[] ; numeric ranx, rany, minx, miny, maxx, maxy ;
91 minx := BackSpace2 ; maxx := PaperWidth minx ; ranx := minx2 ;
92 miny := TopSpace 2 ; maxy := PaperHeightminy ; rany := miny2 ;
93 p[0] := llcorner Page ;
94 p[1] := (minx,0) randomshifted (ranx,0) ;
95 p[2] := (maxx,0) randomshifted (ranx,0) ;
96 p[3] := lrcorner Page ;
97 p[4] := (PaperWidth,miny) randomshifted (0,rany) ;
98 p[5] := (PaperWidth,maxy) randomshifted (0,rany) ;
99 p[6] := urcorner Page ;
100 p[7] := (maxx,PaperHeight) randomshifted (ranx,0) ;
101 p[8] := (minx,PaperHeight) randomshifted (ranx,0) ;
102 p[9] := ulcorner Page ;
103 p[10] := (0,maxy) randomshifted (0,rany) ;
104 p[11] := (0,miny) randomshifted (0,rany) ;
105 def page_color = (.4uniformdeviate.3)white enddef ;
106 fill Page withcolor \MPcolor{lightgray} ;
107 q[1] := p[9]p[6]p[ 5]p[10]cycle ;
108 q[2] := p[6]p[3]p[ 2]p[ 7]cycle ;
109 q[3] := p[3]p[0]p[11]p[ 4]cycle ;
110 q[4] := p[0]p[9]p[ 8]p[ 1]cycle ;
111 for i=1 upto 4: fill q[i] withcolor page_color ; endfor ;
112 q[1] := p[9]p[8]--((p[8]p[ 1]) intersectionpoint (p[10]p[ 5]))p[10]cycle ;
113 q[2] := p[6]p[5]--((p[5]p[10]) intersectionpoint (p[ 2]p[ 7]))p[ 7]cycle ;
114 q[3] := p[3]p[4]--((p[4]p[11]) intersectionpoint (p[ 7]p[ 2]))p[ 2]cycle ;
115 q[4] := p[0]p[1]--((p[1]p[ 8]) intersectionpoint (p[ 4]p[11]))p[11]cycle ;
116 for i=1 upto 4: fill q[i] withcolor page_color ; endfor ;
117 q[1] := p[ 8]p[1] ;
118 q[2] := p[ 7]p[2] ;
119 q[3] := p[10]p[5] ;
120 q[4] := p[11]p[4] ;
121 for i=1 upto 4: draw q[i] withcolor \MPcolor{darkred} ; endfor ;
122 StopPage ;
123\stopuseMPgraphic
124
125
126
127\setupbackgrounds
128 [page]
129 [background={PageFrame,backgraphics,foreground,foregraphics}]
130
131\defineoverlay[PageFrame][\useMPgraphic{PageFrame}]
132
133\startMPinclusions
134 background := \MPcolor{lightgray} ;
135\stopMPinclusions
136
137\stopenvironment
138 |