-2.5 6.5 setxrange
-1.5 6.5 setyrange
/A {0 5} def
/O {0 0} def
/C {4 3} def
/B {A O 20 rotatepoint} def
/D {C O 20 rotatepoint} def
[O A C B D] points
[O A B] polygone
[O C D] polygone
%[D I C J B] ligne
setTimesItalic
(A) A urtext
(B) B ultext
(C) C urtext
(D) D urtext
(O) O drtext
|