input mpcolornames; beginfig(0); radius := 350; pickup pencircle scaled 10; path p; path s,l; z0 = (0, radius); z1 = ((x0+x2)/2, y0+radius); z2 = (x1+radius, y0); z3 = (x1, y0-radius); p := z0..z1..z2..z3..cycle; fill p withcolor DeepSkyBlue2; draw p withcolor white; clearxy; z0 = (x2-0.25radius, 1.2radius); z1 = (x2-0.5radius, y2+0.25radius); z2 = (radius, 0.35radius); z3 = (x2 + .5radius, y1); z4 = (x2 + .25radius, y0); s:= z0{dir 190}..z1..z2{right}..z3..{dir 170}z4; draw s withcolor white; clearxy; z0 = point 0.1 of s; z1 = (xpart point 0 of s, ypart point 0.5 of s); z2 = (1.02radius, y0); z3 = (x0, y0 + 0.35radius); z4 = (x0 - 0.35radius, 0.9y0); z5 = (radius, 0.6radius); z6 = (x0+radius, y4); z7 = (x10, y3); z8 = (0.98radius, y2); z9 = (xpart point 4 of s, y1); z10 = point 3.9 of s; l:= z0..z1.. z2..z3..z4.. z5..z6..z7..z8..z9..z10; draw l withcolor white; endfig; end