SourceBrowser

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
Source Browser ?
