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