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 Au dessus etex ; pair zaaae ; zaaae = ( 0 , 1.0 ) ; pair zaaaf ; zaaaf = 3bp * zaaae; picture Paaag ; Paaag:=Paaad shifted zaaab ; pair zaaah ; zaaah = llcorner Paaad ; pair zaaai ; zaaai = lrcorner Paaad ; pair zaaaj ; zaaaj = ( 0.5 ) [ zaaah , zaaai ] ; pair zaaak ; zaaak = -1.0 * zaaaj; picture Paaal ; Paaal:=Paaag shifted zaaak ; picture Paaam ; Paaam:=Paaal shifted zaaaf ; draw Paaam ; picture Paaan ; Paaan:=btex En dessous etex ; pair zaaao ; zaaao = ( 0 , -1.0 ) ; pair zaaap ; zaaap = 3bp * zaaao; picture Paaaq ; Paaaq:=Paaan shifted zaaab ; pair zaaar ; zaaar = ulcorner Paaan ; pair zaaas ; zaaas = urcorner Paaan ; pair zaaat ; zaaat = ( 0.5 ) [ zaaar , zaaas ] ; pair zaaau ; zaaau = -1.0 * zaaat; picture Paaav ; Paaav:=Paaaq shifted zaaau ; picture Paaaw ; Paaaw:=Paaav shifted zaaap ; draw Paaaw ; picture Paaax ; Paaax:=btex ^^c0 droite etex ; pair zaaay ; zaaay = ( 1.0 , 0 ) ; pair zaaaz ; zaaaz = 3bp * zaaay; picture Paaba ; Paaba:=Paaax shifted zaaab ; pair zaabb ; zaabb = llcorner Paaax ; pair zaabc ; zaabc = ulcorner Paaax ; pair zaabd ; zaabd = ( 0.5 ) [ zaabb , zaabc ] ; pair zaabe ; zaabe = -1.0 * zaabd; picture Paabf ; Paabf:=Paaba shifted zaabe ; picture Paabg ; Paabg:=Paabf shifted zaaaz ; draw Paabg ; picture Paabh ; Paabh:=btex ^^c0 gauche etex ; pair zaabi ; zaabi = ( -1.0 , 0 ) ; pair zaabj ; zaabj = 3bp * zaabi; picture Paabk ; Paabk:=Paabh shifted zaaab ; pair zaabl ; zaabl = lrcorner Paabh ; pair zaabm ; zaabm = urcorner Paabh ; pair zaabn ; zaabn = ( 0.5 ) [ zaabl , zaabm ] ; pair zaabo ; zaabo = -1.0 * zaabn; picture Paabp ; Paabp:=Paabk shifted zaabo ; picture Paabq ; Paabq:=Paabp shifted zaabj ; draw Paabq ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;