Source Browser ?

1% interface=en
2
3\starttext
4
5\setupcolors
6  [state=start]
7
8\startMPpage
9  path p ; color c[] ;
10  p := fullsquare scaled 4cm ;
11  c[0] := transparent(1,.5,red) ;
12  c[1] := transparent(1,.5,green) ;
13  c[2] := transparent(1,.5,blue) ;
14  for i = 0 upto 2 :
15    fill p rotated (i*30) withcolor white ;
16  endfor ;
17  for i = 0 upto 2 :
18    fill p rotated (i*30) withcolor c[i] ;
19  endfor ;
20  addbackground withcolor transparent(1,.5,cmyk(0,0,1,0)) ;
21\stopMPpage
22
23\stoptext