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-15-004.svg";
beginfig(1);
fill unitsquare xscaled 320 yscaled 220 withcolor white;
% BEGIN DRAWING
path cup,handle;
fill fullcircle xscaled 218 yscaled 24 shifted (155,44) withcolor Light;
draw fullcircle xscaled 218 yscaled 24 shifted (155,44) withcolor Grey;
handle:=(221,128)..(270,134)..(269,86)..(219,79);
draw handle withpen pencircle scaled 13 withcolor Blue;
draw handle withpen pencircle scaled 7 withcolor white;
cup:=(88,133)--(101,63)..(155,47)..(210,63)--(224,133)--cycle;
fill cup withcolor .87[Blue,white];
draw cup withpen pencircle scaled 1.5 withcolor Blue;
fill fullcircle xscaled 136 yscaled 33 shifted (156,133) withcolor white;
draw fullcircle xscaled 136 yscaled 33 shifted (156,133) withcolor Blue;
fill fullcircle xscaled 119 yscaled 21 shifted (156,131) withcolor .35[Orange,Grey];
draw (110,119)--(116,77) withpen pencircle scaled 4 withcolor white;
for x=125 step 31 until 187:
  draw (x,157)..(x-6,170)..(x+5,184)..(x,196)
    withpen pencircle scaled 1.5 withcolor Teal;
endfor;
% END DRAWING
label.lft("MPT-15-004" infont "cmr8",(312,210));
setbounds currentpicture to unitsquare xscaled 320 yscaled 220;
endfig;
end.