%% auteur : -3 3 setxrange -3 3 setyrange /O1 {1 1} def /O4 {1 -1} def /O2 {-1 1} def /O3 {-1 -1} def /A {2 2} def /D {2 -2} def /B {-2 2} def /C {-2 -2} def O1 1 cercle O2 1 cercle O3 1 cercle O4 1 cercle [O1 O2 O3 O4] polygone [A B C D] polygone setTimes (A) A urtext (B) B ultext (C) C dltext (D) D drtext (O) O1 urtext (1) indice (O) O2 ultext (2) indice (O) O3 dltext (3) indice (O) O4 drtext (4) indice