1
2
3\startbuffer[1]
4\startuseMPgraphic{MyPath1}
5 fill OverlayBox withcolor "darkyellow" ;
6 save p ; path p[] ;
7 p1 := unitsquare xysized( OverlayWidth4, OverlayHeight4) ;
8 p2 := unitsquare xysized(2OverlayWidth4,3OverlayHeight5) shifted ( OverlayWidth4,0) ;
9 p3 := unitsquare xysized( OverlayWidth4, OverlayHeight ) shifted (3OverlayWidth4,0) ;
10 fill p1 withcolor "darkred" ;
11 fill p2 withcolor "darkblue" ;
12 fill p3 withcolor "darkgreen" ;
13 draw lmt_mesh [ paths = { p1, p2, p3 } ] ;
14 setbounds currentpicture to OverlayBox ;
15\stopuseMPgraphic
16\stopbuffer
17
18\startbuffer[2]
19\startuseMPgraphic{MyPath2}
20 save q ; path q ; q := unitcircle xysized(OverlayWidth,OverlayHeight) ;
21 save p ; path p ; p := for i=1 upto length(q) :
22 (center q) -- (point (i-1) of q) -- (point i of q) -- (center q) --
23 endfor cycle ;
24 fill q withcolor "darkgray" ;
25 draw lmt_mesh [
26 trace = true,
27 paths = { p }
28 ] withcolor "darkred" ;
29
30 setbounds currentpicture to OverlayBox ;
31\stopuseMPgraphic
32\stopbuffer
33
34\startbuffer[3]
35\startuseMPgraphic{MyPath3}
36 save q ; path q ; q := unitcircle xysized(OverlayWidth,OverlayHeight) randomized 3mm ;
37 fill q withcolor "darkgray" ;
38 draw lmt_mesh [
39 trace = true,
40 paths = { meshed(q,OverlayBox,.05) }
41 ] withcolor "darkgreen" ;
42
43 setbounds currentpicture to OverlayBox ;
44\stopuseMPgraphic
45\stopbuffer
46
47\startbuffer[4]
48\startuseMPgraphic{MyPath4}
49 save q ; path q ; q := unitcircle xysized(OverlayWidth,OverlayHeight) randomized 3mm ;
50 fill q withcolor "darkgray" ;
51 draw lmt_mesh [
52 trace = true,
53 auto = true,
54 step = 0.0125,
55 paths = { q }
56 ] withcolor "darkyellow" ;
57 setbounds currentpicture to OverlayBox ;
58\stopuseMPgraphic
59\stopbuffer
60
61\startbuffer[5]
62\startuseMPgraphic{MyPath5}
63 save q ; path q ; q := unitdiamond xysized(OverlayWidth,OverlayHeight) randomized 2mm ;
64 q := q shifted center q shifted center OverlayBox ;
65 fill q withcolor "darkgray" ;
66 draw lmt_mesh [
67 trace = true,
68 auto = true,
69 step = 0.0125,
70 paths = { q }
71 ] withcolor "darkmagenta" ;
72 setbounds currentpicture to OverlayBox ;
73\stopuseMPgraphic
74\stopbuffer
75
76\startbuffer[6]
77\startuseMPgraphic{MyPath6}
78 save p ; path p[] ;
79 p1 := p2 := fullcircle xysized(2OverlayWidth5,2OverlayHeight3) ;
80 p1 := p1 shifted center p1 shifted center OverlayBox shifted (-1OverlayWidth4,0) ;
81 p2 := p2 shifted center p2 shifted center OverlayBox shifted ( 1OverlayWidth4,0) ;
82 fill p1 withcolor "middlegray" ;
83 fill p2 withcolor "middlegray" ;
84 draw lmt_mesh [
85 trace = true,
86 auto = true,
87 step = 0.02,
88 paths = { p1, p2 }
89 ] withcolor "darkcyan" ;
90 setbounds currentpicture to OverlayBox ;
91\stopuseMPgraphic
92\stopbuffer
93
94\startbuffer[7]
95\startuseMPgraphic{MyPath7}
96 save p ; path p[] ;
97 p1 := p2 := fullcircle xysized(2OverlayWidth5,2OverlayHeight3) rotated 45 ;
98 p1 := p1 shifted center p1 shifted center OverlayBox shifted (-1OverlayWidth4,0) ;
99 p2 := p2 shifted center p2 shifted center OverlayBox shifted ( 1OverlayWidth4,0) ;
100 fill p1 withcolor "middlegray" ;
101 fill p2 withcolor "middlegray" ;
102 draw lmt_mesh [
103 trace = true,
104 auto = true,
105 step = 0.01,
106 box = OverlayBox enlarged -5mm,
107 paths = { p1, p2 }
108 ] withcolor "darkcyan" ;
109 draw OverlayBox enlarged -5mm withcolor "darkgray" ;
110 setbounds currentpicture to OverlayBox ;
111\stopuseMPgraphic
112\stopbuffer
113
114\continueifinputfile {luametafunmeshexamples.tex}
115
116\setupbodyfont[dejavu]
117
118\setupinteraction
119 [state=start,
120 color=white,
121 contrastcolor=white]
122
123\starttext
124
125 \getbuffer[1,2,3,4,5,6,7]
126
127 \defineoverlay[MyPath1][\useMPgraphic{MyPath1}]
128 \defineoverlay[MyPath2][\useMPgraphic{MyPath2}]
129 \defineoverlay[MyPath3][\useMPgraphic{MyPath3}]
130 \defineoverlay[MyPath4][\useMPgraphic{MyPath4}]
131 \defineoverlay[MyPath5][\useMPgraphic{MyPath5}]
132 \defineoverlay[MyPath6][\useMPgraphic{MyPath6}]
133 \defineoverlay[MyPath7][\useMPgraphic{MyPath7}]
134
135 \startTEXpage
136 \button[height=3cm,width=4cm,background=MyPath1,frame=off]{Example 1}[realpage(2)]
137 \stopTEXpage
138
139 \startTEXpage
140 \button[height=3cm,width=4cm,background=MyPath2,frame=off]{Example 2}[realpage(3)]
141 \stopTEXpage
142
143 \startTEXpage
144 \button[height=3cm,width=4cm,background=MyPath3,frame=off]{Example 3}[realpage(4)]
145 \stopTEXpage
146
147 \startTEXpage
148 \button[height=3cm,width=4cm,background=MyPath4,frame=off]{Example 4}[realpage(5)]
149 \stopTEXpage
150
151 \startTEXpage
152 \button[height=3cm,width=4cm,background=MyPath5,frame=off]{Example 5}[realpage(6)]
153 \stopTEXpage
154
155 \startTEXpage
156 \button[height=3cm,width=4cm,background=MyPath6,frame=off]{Example 6}[realpage(7)]
157 \stopTEXpage
158
159 \startTEXpage
160 \button[height=3cm,width=4cm,background=MyPath7,frame=off]{Example 7}[realpage(1)]
161 \stopTEXpage
162
163\stoptext
164 |