prologues := 3;
outputformat := "svg";
defaultfont := "cmr10";
defaultscale := 1.1;
color Blue,Teal,Orange,Green,Grey,Light,Wash;
Blue := (0,84/255,159/255); Teal := (0,177/255,183/255);
Orange := (246/255,168/255,0); Green := (87/255,171/255,39/255);
Grey := (100/255,101/255,103/255); Light := (236/255,236/255,237/255);
Wash := (232/255,241/255,250/255);
% Format displayed numbers to hundredths using integer strings.
vardef numlabel(expr value)=
 save n,whole,frac; numeric n,whole,frac;
 n:=round(100abs value); whole:=floor(n/100); frac:=n mod 100;
 (if value<-.005: "-" & fi decimal whole
  if frac>0: & "." & if frac<10: "0" & fi decimal frac fi)
enddef;
pickup pencircle scaled .9;
outputtemplate := "MPT-17-006.svg";
beginfig(1);
fill unitsquare xscaled 320 yscaled 220 withcolor white;
% BEGIN DRAWING
string heading;
pair c;
numeric a;
path leaf;
c:=(160,106); heading:="METAPOST STUDIO";
draw fullcircle scaled 173 shifted c withpen pencircle scaled 1.5 withcolor Blue;
draw fullcircle scaled 162 shifted c withpen pencircle scaled .6 withcolor Blue;
for k=0 upto length heading-1:
  a:=160-10k;
  if substring (k,k+1) of heading <> " ":
    label((substring (k,k+1) of heading infont "cmbx10") rotated (a-90),
      c+67dir(a)) withcolor Blue;
  fi;
endfor;
draw (c+(-20,-27))..c..(c+(17,31)) withpen pencircle scaled 1.5 withcolor Blue;
leaf:=(0,0)..controls (-5,16) and (13,24)..(22,22)
  ..controls (24,8) and (9,0)..cycle;
for k=0 upto 2:
  fill leaf rotated (20+12k) shifted (c+(-10+8k,-14+17k)) withcolor Teal;
  fill leaf reflectedabout ((0,0),(0,1)) rotated (-15+12k)
    shifted (c+(-10+8k,-14+17k)) withcolor Blue;
endfor;
label(btex DRAW / REFINE / REPEAT etex scaled .7,c+(0,-47)) withcolor Blue;
fill fullcircle scaled 3 shifted (c+(-63,-31)) withcolor Orange;
fill fullcircle scaled 3 shifted (c+(63,-31)) withcolor Orange;
% END DRAWING
label.lft("MPT-17-006" infont "cmr8",(312,210));
setbounds currentpicture to unitsquare xscaled 320 yscaled 220;
endfig;
end.