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-005.svg";
beginfig(1);
fill unitsquare xscaled 320 yscaled 220 withcolor white;
% BEGIN DRAWING
color background,surface,ink,accent;
pair c;
for k=0 upto 1:
  c:=(23+148k,36);
  if k=0:
    background:=Wash; surface:=white; ink:=Blue; accent:=Orange;
  else:
    background:=.7Blue; surface:=.85Blue; ink:=white; accent:=Teal;
  fi;
  fill unitsquare xscaled 126 yscaled 151 shifted c withcolor background;
  fill fullcircle scaled 29 shifted (c+(91,113)) withcolor accent;
  fill ((8,44)--(40,93)--(66,61)--(86,83)--(118,44)--cycle)
    shifted c withcolor surface;
  draw ((8,44)--(40,93)--(66,61)--(86,83)--(118,44))
    shifted c withpen pencircle scaled 1.3 withcolor ink;
  draw ((14,25)--(112,25)) shifted c withcolor accent;
  label(if k=0: "light" else: "dark" fi infont "cmr9",c+(63,12))
    withcolor ink;
endfor;
% END DRAWING
label.lft("MPT-16-005" infont "cmr8",(312,210));
setbounds currentpicture to unitsquare xscaled 320 yscaled 220;
endfig;
end.