%% auteur : 

-3 5 setxrange
-3 3 setyrange
15 setfontsize
30 setxunit
30 setyunit
/B {3 -2} def
/C {4 2} def
/D{-1 2} def
/A {-2 -2} def
[A B C D] points
[A B C D] polygone
[A C] ligne
[B D] ligne
/O{A C B D interdroite} def 
[A O O C]{2 marked}dapply
[O D O B]{3 marked}dapply

setTimesItalic
   (A) A dltext
   (B) B drtext
   (C) C urtext
   (D) D ultext
(O) A C B D interdroite dtext


%% adresse IP : 89.227.22.15