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

[B C] ligne
[A D] ligne

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



setTimes
   (90°) 40 O 0.6  cpoint [2 2] cctext