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-006.svg";
beginfig(1);
fill unitsquare xscaled 320 yscaled 220 withcolor white;
% BEGIN DRAWING
path river,mainroad,localroad[];
river:=(29,172)..(101,146)..(171,164)..(291,47);
mainroad:=(24,55)..(113,83)..(202,98)..(296,158);
localroad[1]:=(76,182)..(92,124)..(113,83)..(101,29);
localroad[2]:=(202,98)..(236,58)..(286,32);
fill unitsquare xscaled 280 yscaled 166 shifted (20,26) withcolor .93[Green,white];
draw river withpen pencircle scaled 23 withcolor .65[Teal,white];
begingroup
  interim linecap:=rounded; interim linejoin:=rounded;
  for k=1 upto 2:
    draw localroad[k] withpen pencircle scaled 12 withcolor Grey;
  endfor;
  for k=1 upto 2:
    draw localroad[k] withpen pencircle scaled 9 withcolor white;
  endfor;
  draw mainroad withpen pencircle scaled 17 withcolor Blue;
  draw mainroad withpen pencircle scaled 12 withcolor .6[Orange,white];
  draw mainroad dashed dashpattern(on 7 off 5)
    withpen pencircle scaled 1 withcolor white;
endgroup;
fill fullcircle scaled 7 shifted (113,83) withcolor Blue;
label.top("West",(58,85)); label.top("East",(269,157));
% END DRAWING
label.lft("MPT-16-006" infont "cmr8",(312,210));
setbounds currentpicture to unitsquare xscaled 320 yscaled 220;
endfig;
end.