summaryrefslogtreecommitdiff
path: root/tex/context/base/meta-mis.mkii
blob: e8282c381b8e031a647ddd02def97a53ae71634e (plain)
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