input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = 1cm * right; pair zaaac ; zaaac = zaaab rotated 0 ; pen qaaad ; qaaad = pencircle scaled 4bp ; draw zaaac withpen qaaad ; pair zaaae ; pair zaaaf ; zaaaf = zaaab rotated 90.0 ; pen qaaag ; draw zaaaf withpen qaaad ; pair zaaah ; pair zaaai ; zaaai = zaaab rotated 180.0 ; pen qaaaj ; draw zaaai withpen qaaad ; pair zaaak ; pair zaaal ; zaaal = zaaab rotated 270.0 ; pen qaaam ; draw zaaal withpen qaaad ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;