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-005.svg";
beginfig(1);
fill unitsquare xscaled 320 yscaled 220 withcolor white;
% BEGIN DRAWING
path tower,cliff;
picture bands;
fill unitsquare xscaled 280 yscaled 164 shifted (20,27) withcolor Wash;
fill (219,162)--(31,184)--(31,128)--cycle withcolor .83[Orange,white];
fill unitsquare xscaled 280 yscaled 67 shifted (20,27) withcolor .7[Teal,white];
fill (20,94)--(58,114)--(102,101)--(146,94)--cycle withcolor .7[Blue,white];
for y=39 step 14 until 83:
  draw (32,y)--(116,y) withpen pencircle scaled 1.2 withcolor white;
endfor;
cliff:=(145,27)--(157,63)--(190,75)--(230,69)--(253,46)--(300,27)--cycle;
fill cliff withcolor Grey;
tower:=(193,68)--(203,148)--(232,148)--(242,68)--cycle;
fill tower withcolor white;
bands:=image(
  for y=87 step 30 until 117:
    fill unitsquare xscaled 75 yscaled 14 shifted (180,y) withcolor Blue;
  endfor;
);
clip bands to tower; draw bands; draw tower withcolor Blue;
fill unitsquare xscaled 39 yscaled 23 shifted (198,148) withcolor .35[Orange,white];
draw unitsquare xscaled 39 yscaled 23 shifted (198,148) withcolor Blue;
draw (217.5,148)--(217.5,171) withcolor Blue;
fill (193,171)--(217.5,190)--(242,171)--cycle withcolor Blue;
draw (191,147)--(244,147) withpen pencircle scaled 2 withcolor Blue;
fill unitsquare xscaled 10 yscaled 18 shifted (213,68) withcolor Blue;
% END DRAWING
label.lft("MPT-15-005" infont "cmr8",(312,210));
setbounds currentpicture to unitsquare xscaled 320 yscaled 220;
endfig;
end.