Source
28.45 setxunit
-1 5 setxrange
-1.5 4.5 setyrange
/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 {1.2} def
/B {0 0} def
/C {4 0} def
/A {B 4 C 4 intercercle 4 2 roll pop pop} def
/B' {A C milieu} def
/C' {A B milieu} def
/G {B B' C C' interdroite} def
[A B C A] ligne
(A) A [a dup] uctext
(B) B [a dup] dltext
(C) C [a dup] drtext
(B') B' [a dup] crtext
(C') C' [a dup] cltext
(G) G [a dup] dctext

[B' B] ligne
[C' C] ligne
A B' 2 marked
C B' 2 marked
A C' 2 marked
C' B 2 marked

G A G vecteur norme cercle
[A G] pointilles ligne