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