Source Browser ?

1%D \module
2%D   [       file=meta-mis,
3%D        version=2006.06.06,
4%D          title=\METAPOST\ Graphics,
5%D       subtitle=Misc Test Graphics,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\unprotect
15
16% p/s       1/false  1/true  2/false   2/true
17%
18% MKII      8.5      8.0      8.8      8.5
19% MKIV     16.1      7.2     16.3      7.4
20
21\startuseMPgraphic{mptopdf-test}
22    prologues := 2;
23    mpprocset := 1 ;
24    fill fullcircle scaled 3cm withcolor red ;
25    fill fullcircle scaled 2cm withcolor green ;
26    fill fullcircle scaled 1cm withcolor blue ;
27    currentpicture := currentpicture shifted (-4cm,0) ;
28    fill fullcircle scaled 3cm withcolor cmyk(0,0,1,0) ;
29    fill fullcircle scaled 2cm withcolor cmyk(0,1,0,0) ;
30    fill fullcircle scaled 1cm withcolor cmyk(1,0,0,0) ;
31    currentpicture := currentpicture shifted (-4cm,0) ;
32    draw fullcircle scaled 3cm dashed evenly ;
33    draw fullcircle scaled 2cm dashed withdots  ;
34    draw origin withpen pencircle scaled 3mm;
35    currentpicture := currentpicture shifted (-4cm,0) ;
36    fill fullcircle scaled 2cm shifted (-.5cm,+.5cm) withcolor transparent(1,.5,red);
37    fill fullcircle scaled 2cm shifted (-.5cm,-.5cm) withcolor transparent(1,.5,red);
38    fill fullcircle scaled 2cm shifted (+.5cm,+.5cm) withcolor transparent(1,.5,green);
39    fill fullcircle scaled 2cm shifted (+.5cm,-.5cm) withcolor transparent(1,.5,cmyk(1,0,1,.5));
40    currentpicture := currentpicture shifted (12cm,-4cm) ;
41    draw "o e p s" infont defaultfont scaled 2 shifted (-1cm,0) ;
42    currentpicture := currentpicture shifted (-4cm,0) ;
43    % bug: shift
44    draw fullcircle scaled 3cm withpen pencircle yscaled 3mm xscaled 2mm rotated 30  ;
45    draw fullcircle scaled 2cm withpen pencircle yscaled 3mm xscaled 2mm rotated 20 withcolor red ;
46    filldraw fullcircle scaled 1cm withpen pencircle yscaled 3mm xscaled 2mm rotated 10 withcolor green ;
47    currentpicture := currentpicture shifted (-4cm,0) ;
48    % shade cannot handle shift
49    circular_shade(fullcircle scaled 3cm,0,.2red,.9green) ;
50    circular_shade(fullcircle scaled 3cm shifted(+4cm,0),0,cmyk(1,0,0,0),cmyk(0,1,0,0)) ;
51    filldraw boundingbox currentpicture enlarged (-bbheight(currentpicture)/2+2.5mm) withpen pencircle scaled 1pt withcolor .5white ;
52\stopuseMPgraphic
53
54\protect \endinput
55