input mpcolornames; % Refer https://in.mirrors.cicku.me/ctan/graphics/metapost/contrib/macros/mpcolornames/doc/metapost/mpcolornames/mpcolornames.pdf % for color names beginfig(0); width:=100; rotation:=45; path p[]; pen calligraphicpen ; calligraphicpen := makepen ((0, 0)--(width,0 ) rotated rotation) ; z0 = (0, y5+100); z1 = (x0+60, y0+100); z2 = (x1-30, y1+400); z3 = (x2+60, y2+100); z4 = (x2 +200,y2); z5 = (x4,0); z6 = (x5-width/4, y5-width/4); pickup calligraphicpen; p[0] = z0..z1..z2..z3..z4---z5{dir 230}..z6; clearxy; z0 = point 4 of p0; z1 = (x0 + 250/2, y0+100); z2 = (x1 + 250/2.5, y0); z3 = (x2 + 125, ypart point 1 of p0); z4 = (x3 + width/2, y3+width/2); z5 = (x4, y1+ 400); p[1] = z0{dir 50}..z1..z2{dir 225}..{dir rotation}z3..z4..{dir 40}z5; for i=0 upto 10: if known p[i]: draw p[i] withcolor OrangeRed; fi; endfor; endfig; end