Présentation de cerc_carre.jps

%% 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