%% auteur : 

-4 4 setxrange
-4 4 setyrange
50 setxunit
50 setyunit
/E {-3 0} def
/B {3 0} def
/O{0 0} def

%% le cercle de diametre [AB]
/cerc {E B diamcercle} def

%% le point du cercle d'angle donne
/C {180 cerc cpoint} def
/A {90 cerc cpoint} def
/D {-90 cerc cpoint} def


[A B] ligne
[A C] ligne
[C D] ligne
[D B] ligne
[A D] ligne
[O A] ligne
[O B] ligne
A B 2 marked
B D 2 marked
A C 2 marked
C D 2 marked
continu

B A C angledroit
B O A angledroit
D C A angledroit
B D C angledroit
A B D angledroit
cerc cercle
setTimesItalic
   (A) A [2 2] ultext
   (B) B [2 2] drtext
   (C) C [2 2] ultext
(D) D [2 2] dtext
   (O) O [2 2] drtext


#latex# $2\sqrt{2}$
 O A milieu [1.5 1.5] drtexlabel