beginfig(0); width:=100; rotation:=40; color glyphcolor; glyphcolor := (.1, .37,.71); pen calligraphicpen ; calligraphicpen := makepen ((0, 0)--(width,0 ) rotated rotation) ; m:=100; z0 = (x1+m, 0); z1 = (0, y0+m); z2 = (x1, y1+4m); z3 = (x2+m, y2+m); z4 = (x3 + m, y3); z5 = (x4 + m, y4-m); z6 = (x5, y0); pickup calligraphicpen; draw z0{left}..z1--z2{up}..z3--z4{right}..z5--z6 withcolor glyphcolor; z7 = (x5, y5); z8= (x7+m, y4); z9= (x8+m/20, y8); z10= (x9+m, y9-m); z11= (x10, y0+m ); z12 =(x11+m, y0); z13=(x12+m/2, y12); z14=(x13+m, y13+ m); z15=(x14, y14+ 4m); z16=(x15-m, y4); draw z7{up}..z8--z9{right}..z10--z11{down}..z12--z13{right}..z14--z15{up}..z16 withcolor glyphcolor; endfig; end