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-003.svg";
beginfig(1);
fill unitsquare xscaled 320 yscaled 220 withcolor white;
% BEGIN DRAWING
path body,tail;
picture scales;
body:=(77,106)..controls (119,170) and (225,169)..(271,109)
  ..controls (229,46) and (125,48)..cycle;
tail:=(91,107)--(41,151)--(52,105)--(41,63)--cycle;
fill tail withcolor .25[Teal,white];
draw tail withcolor Blue;
fill (139,151)--(174,184)--(209,151)--cycle withcolor Teal;
fill (148,67)--(184,40)--(206,68)--cycle withcolor Teal;
fill body withcolor .82[Teal,white];
scales:=image(
  for row=0 upto 7:
    for col=0 upto 8:
      draw halfcircle scaled 22 rotated -90
        shifted (87+20col+10(row mod 2),49+16row)
        withpen pencircle scaled .65 withcolor Teal;
    endfor;
  endfor;
);
clip scales to body; draw scales;
draw body withpen pencircle scaled 1.6 withcolor Blue;
draw (229,142)..(218,111)..(231,78) withcolor Blue;
fill fullcircle scaled 9 shifted (244,121) withcolor Blue;
fill fullcircle scaled 3 shifted (245,123) withcolor white;
% END DRAWING
label.lft("MPT-15-003" infont "cmr8",(312,210));
setbounds currentpicture to unitsquare xscaled 320 yscaled 220;
endfig;
end.