meta-imp-mis.mkiv /size: 2510 b    last modification: 2020-07-01 14:35
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