%% auteur : Peric
28.45 setxunit
7.5 setborder
90 setangle_repere
-1 8 setxrange
-1 5 setyrange
/c {30  cos} def
/s {30  sin} def

/A {0 0} def
/B {8 c mul 8 s mul} def
/G {A A B vecteur 3 8 div mulv translatepoint  } def
/H {G 120 dir 0.5 mulv translatepoint} def
/I {A B milieu} def
/J {G I milieu} def
/K {J 120 dir 0.5 mulv translatepoint} def

/titrait {%le point à marquer puis un point de la droite
4 dict begin 
/b defpoint
/a defpoint
/d {a a b vecteur arg 90 add dir 0.1 mulv translatepoint} def
/e {a a b vecteur arg -90 add dir 0.1 mulv translatepoint} def
[d e] ligne
end
} def

[A B B A G A I A ] {titrait} 4 4 Apply
(A) A [1.5 dup] ultext
(B) B [1.5 dup] ultext
(G) H [1.5 dup] ultext
(I) I [1.5 dup] drtext
[A B] ligne
B J K angledroit
G J 2 marked
J I 2 marked

2 setlinewidth
G 0.5 cercle
G I mediatrice droite