%% auteur : 

-0.5 4 setxrange
-0.5 3 setyrange
80 setxunit
80 setyunit
/cerc{O 3} def
/A{0 0} def
/B{3 0} def
/C{60 cerc cpoint} def
[A B C] polygone
/D {C 1.5 0 translatepoint} def
/E {C -1.5 0 translatepoint} def
[A E D B] polygone
/I{B C milieu} def
/J{A I D B interdroite} def
[A J] ligne
A I B angledroit
A C 2 marked
B I 1 marked
C I 1 marked
A B 2 marked
setTimes
(A) A [1.5 1.5] dtext
(B) B [1.5 1.5] dtext
(C) C [1.5 1.5] utext
(D) D [1.5 1.5] utext
(E) E [1.5 1.5] utext
(I) I [1.5 1.5] urtext
(J) J [1.5 1.5] rtext