1
2
3
4
5
6
7
8
9
10
11
12
13
14\unprotect
15
16
17
18
19
20
21\startuseMPgraphic { mptopdf-test }
22 prologues : = 2 ;
23 mpprocset : = 1 ;
24 fill fullcircle scaled 3 cm withcolor red ;
25 fill fullcircle scaled 2 cm withcolor green ;
26 fill fullcircle scaled 1 cm withcolor blue ;
27 currentpicture : = currentpicture shifted ( -4 cm , 0 ) ;
28 fill fullcircle scaled 3 cm withcolor cmyk ( 0 , 0 , 1 , 0 ) ;
29 fill fullcircle scaled 2 cm withcolor cmyk ( 0 , 1 , 0 , 0 ) ;
30 fill fullcircle scaled 1 cm withcolor cmyk ( 1 , 0 , 0 , 0 ) ;
31 currentpicture : = currentpicture shifted ( -4 cm , 0 ) ;
32 draw fullcircle scaled 3 cm dashed evenly ;
33 draw fullcircle scaled 2 cm dashed withdots ;
34 draw origin withpen pencircle scaled 3 mm ;
35 currentpicture : = currentpicture shifted ( -4 cm , 0 ) ;
36 fill fullcircle scaled 2 cm shifted ( -.5 cm , +.5 cm ) withcolor transparent ( 1 , .5 , red ) ;
37 fill fullcircle scaled 2 cm shifted ( -.5 cm , -.5 cm ) withcolor transparent ( 1 , .5 , red ) ;
38 fill fullcircle scaled 2 cm shifted ( +.5 cm , +.5 cm ) withcolor transparent ( 1 , .5 , green ) ;
39 fill fullcircle scaled 2 cm shifted ( +.5 cm , -.5 cm ) withcolor transparent ( 1 , .5 , cmyk ( 1 , 0 , 1 , .5 ) ) ;
40 currentpicture : = currentpicture shifted ( 12 cm , -4 cm ) ;
41 draw " o e p s " infont defaultfont scaled 2 shifted ( -1 cm , 0 ) ;
42 currentpicture : = currentpicture shifted ( -4 cm , 0 ) ;
43
44 draw fullcircle scaled 3 cm withpen pencircle yscaled 3 mm xscaled 2 mm rotated 30 ;
45 draw fullcircle scaled 2 cm withpen pencircle yscaled 3 mm xscaled 2 mm rotated 20 withcolor red ;
46 filldraw fullcircle scaled 1 cm withpen pencircle yscaled 3 mm xscaled 2 mm rotated 10 withcolor green ;
47 currentpicture : = currentpicture shifted ( -4 cm , 0 ) ;
48
49 circular_shade ( fullcircle scaled 3 cm , 0 , .2 red , .9 green ) ;
50 circular_shade ( fullcircle scaled 3 cm shifted ( +4 cm , 0 ) , 0 , cmyk ( 1 , 0 , 0 , 0 ) , cmyk ( 0 , 1 , 0 , 0 ) ) ;
51 filldraw boundingbox currentpicture enlarged ( bbheight ( currentpicture ) 2 +2.5 mm ) withpen pencircle scaled 1 pt withcolor .5 white ;
52\stopuseMPgraphic
53
54\protect \endinput
55 |