if scantokens(mpversion) > 1.005:
outputtemplate :=
else:
filenametemplate
fi
"%j.mps";
beginfig(0);
% Set unit size to 72bp = 1in
u:=72;
% Define path
path p;
p:=(0,0){right}..{dir 45}(3*u/4,u/4){dir 45}..{up}(u,u)--cycle;
% Fill the path
fill p withcolor red;
% Draw the path
draw p;
endfig;
end