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