summaryrefslogtreecommitdiff
path: root/systems/doc/metapost/source-tutorial/paperclip.mp
blob: 6d20f9ce3e1e7b28d93ed5c8f7cf234ed5940d2a (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
prologues:=3;

if scantokens(mpversion) > 1.005:
  outputtemplate :=
else:
  filenametemplate
fi
"%j.mps";

beginfig(0);
  path p;
  p := (0,3/16)
      --(halfcircle rotated 180 scaled (1/4) shifted (1/8,-1/4))
      --(halfcircle scaled (3/8) shifted (1/16,3/8))
      --(halfcircle rotated 180 scaled (1/2) shifted (1/8,-1/2))
      --(3/8,3/16);
	draw p scaled 18 withpen pencircle scaled 1.25bp
      withcolor (0.5985,0.7712,0.4275);
% For the color specification cf. mpintro.ltx:
%   (0.5985, 0.7712, 0.4275) = mpcolor!90!black
%   with mpcolor being defined as
%   \colorlet{mpcolor}{Chartreuse3!50!white!95!black}
%   and  Chartreuse3 = (0.4, 0.804, 0)
endfig;
end