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-16-003.svg";
beginfig(1);
fill unitsquare xscaled 320 yscaled 220 withcolor white;
% BEGIN DRAWING
def leafmark(expr anchor,style)=
  begingroup
    save p,h; path p; picture h;
    p:=((0,-36)..controls (-45,-8) and (-30,39)..(0,43)
      ..controls (37,16) and (38,-22)..cycle) shifted anchor;
    if style=1:
      fill p withcolor Blue;
    elseif style=2:
      h:=image(
        for x=-90 step 6 until 60:
          draw ((x,-45)--(x+95,50)) shifted anchor
            withpen pencircle scaled .7 withcolor Blue;
        endfor;
      );
      clip h to p; draw h;
    fi;
    draw p withpen pencircle scaled 1.3 withcolor Blue;
    draw (anchor+(0,-45))--(anchor+(0,30))
      withcolor if style=1: white else: Blue fi;
  endgroup;
enddef;
leafmark((60,115),0); leafmark((160,115),1); leafmark((260,115),2);
label("outline" infont "cmr9",(60,43));
label("solid" infont "cmr9",(160,43));
label("hatched" infont "cmr9",(260,43));
% END DRAWING
label.lft("MPT-16-003" infont "cmr8",(312,210));
setbounds currentpicture to unitsquare xscaled 320 yscaled 220;
endfig;
end.