metafun-environment-screen.tex /size: 3998 b    last modification: 2023-12-21 09:43
1% language=us runpath=texruns:manuals/metafun
2
3\startenvironment mfun-environment-screen
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%   \got [commands] commands \\
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 := BackSpace/2 ; maxx := PaperWidth -minx ; ranx := minx/2 ;
92        miny := TopSpace /2 ; maxy := PaperHeight-miny ; rany := miny/2 ;
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 = (.4+uniformdeviate.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% \setupbackgrounds[page][background=PageFrame]
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