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 = ( 2cm , 1cm ) ; pair zaaad ; zaaad = zaaac - zaaab; numeric xaaae ; xaaae = abs zaaad ; pair zaaaf ; zaaaf = ( 0.5 ) [ zaaab , zaaac ] ; path paaag ; paaag:=makepath pencircle ; path paaah ; paaah:=paaag scaled xaaae ; path paaai ; paaai:=paaah shifted zaaaf ; pen qaaaj ; qaaaj = pencircle scaled 4bp ; draw zaaab withpen qaaaj ; pen qaaak ; draw zaaac withpen qaaaj ; draw paaai ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;