input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = ( 0 , 0 ) ; pen qaaac ; qaaac = pencircle scaled 4bp ; draw zaaab withpen qaaac ; picture Paaad ; Paaad:=btex En haut ^^e0 gauche etex ; pair zaaae ; zaaae = ( -0.6999969482421875 , 0.6999969482421875 ) ; pair zaaaf ; zaaaf = 3bp * zaaae; picture Paaag ; Paaag:=Paaad shifted zaaab ; pair zaaah ; zaaah = lrcorner Paaad ; pair zaaai ; zaaai = -1.0 * zaaah; picture Paaaj ; Paaaj:=Paaag shifted zaaai ; picture Paaak ; Paaak:=Paaaj shifted zaaaf ; draw Paaak ; picture Paaal ; Paaal:=btex En haut ^^e0 droite etex ; pair zaaam ; zaaam = ( 0.6999969482421875 , 0.6999969482421875 ) ; pair zaaan ; zaaan = 3bp * zaaam; picture Paaao ; Paaao:=Paaal shifted zaaab ; pair zaaap ; zaaap = llcorner Paaal ; pair zaaaq ; zaaaq = -1.0 * zaaap; picture Paaar ; Paaar:=Paaao shifted zaaaq ; picture Paaas ; Paaas:=Paaar shifted zaaan ; draw Paaas ; picture Paaat ; Paaat:=btex En bas ^^e0 gauche etex ; pair zaaau ; zaaau = ( -0.6999969482421875 , -0.6999969482421875 ) ; pair zaaav ; zaaav = 3bp * zaaau; picture Paaaw ; Paaaw:=Paaat shifted zaaab ; pair zaaax ; zaaax = urcorner Paaat ; pair zaaay ; zaaay = -1.0 * zaaax; picture Paaaz ; Paaaz:=Paaaw shifted zaaay ; picture Paaba ; Paaba:=Paaaz shifted zaaav ; draw Paaba ; picture Paabb ; Paabb:=btex En bas ^^e0 droite etex ; pair zaabc ; zaabc = ( 0.6999969482421875 , -0.6999969482421875 ) ; pair zaabd ; zaabd = 3bp * zaabc; picture Paabe ; Paabe:=Paabb shifted zaaab ; pair zaabf ; zaabf = ulcorner Paabb ; pair zaabg ; zaabg = -1.0 * zaabf; picture Paabh ; Paabh:=Paabe shifted zaabg ; picture Paabi ; Paabi:=Paabh shifted zaabd ; draw Paabi ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;