input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = ( 0 , 0 ) ; pair zaaac ; zaaac = ( 1cm , 0 ) ; pair zaaad ; zaaad = ( 1cm , 1cm ) ; pair zaaae ; zaaae = ( 0 , 1cm ) ; path paaaf ; paaaf:=zaaab .. zaaae .. zaaac .. zaaad; draw paaaf ; pen qaaag ; qaaag = pencircle scaled 4bp ; draw zaaab withpen qaaag ; pen qaaah ; draw zaaac withpen qaaag ; pen qaaai ; draw zaaad withpen qaaag ; pen qaaaj ; draw zaaae withpen qaaag ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;