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
 
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    
% bug: shift
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    
% shade cannot handle shift
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