input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; pair zaaac ; pair zaaad ; pair zaaae ; numeric xaaaf ; xaaaf = xpart zaaab ; numeric xaaag ; xaaag = ypart zaaab ; numeric xaaah ; xaaah = ypart zaaac ; numeric xaaai ; xaaai = xpart zaaad ; xaaaf = xaaag = xaaah = xaaai = 0; numeric xaaaj ; xaaaj = xpart zaaac ; numeric xaaak ; xaaak = ypart zaaad ; numeric xaaal ; xaaal = xpart zaaae ; numeric xaaam ; xaaam = ypart zaaae ; xaaaj = xaaak = xaaal = xaaam = 2cm; path paaan ; paaan:=zaaab -- zaaac -- zaaad -- zaaae -- cycle; pen qaaao ; qaaao = pencircle scaled 2bp ; draw paaan withpen qaaao ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;