input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) picture Paaab ; Paaab:=btex $A$ etex ; pair zaaac ; zaaac = ( 0 , 0 ) ; pair zaaad ; zaaad = ( 0.6999969482421875 , 0.6999969482421875 ) ; pair zaaae ; zaaae = 3bp * zaaad; picture Paaaf ; Paaaf:=Paaab shifted zaaac ; pair zaaag ; zaaag = llcorner Paaab ; pair zaaah ; zaaah = -1.0 * zaaag; picture Paaai ; Paaai:=Paaaf shifted zaaah ; picture Paaaj ; Paaaj:=Paaai shifted zaaae ; draw Paaaj ; pen qaaak ; qaaak = pencircle scaled 3bp ; draw zaaac withpen qaaak ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;