%auteur : Peric
28.45 setxunit
-5 11 setxrange
-5 8 setyrange

/A {0 0} def
/D {4 0} def
/H {4 2} def
/E {0 2} def
/B1 {A E H 6 interdroitecercle 4 2 roll pop pop} def
/B2 {A D H 6 interdroitecercle 4 2 roll pop pop} def
/B3 {0 -4} def
/B4 {-4 0} def
/a {1.5} def
/b {1.3} def

#tex# $A$
A [a dup ] dltexlabel
#tex# $D$
D [a dup ] drtexlabel
#tex# $H$
H [a dup ] urtexlabel 
#tex# $E$
E [a dup ] ultexlabel
#tex# $B_1$
B1 [a dup ] ultexlabel
#tex# $B_2$
B2 [a dup ] drtexlabel
#tex# $B_3$
B3 [a dup ] dctexlabel
#tex# $B_4$
B4 [a dup ] cltexlabel


[E A D H E B1 H B2 D B3 A B4 E] ligne
H B1 10 Arc
H B2 10 Arc
B1 H 2 marked
H B2 2 marked
B3 D 3 marked
D B2 3 marked
B4 E 1 marked
E B1 1 marked
B4 A 4 marked
A B3 4 marked

#tex# $6$
H B1 milieu [a dup] urtexlabel
#tex# $6$
H B2 milieu [a dup] urtexlabel
#tex# $4$
A B3 milieu [a dup] cltexlabel
#tex# $4$
A B4 milieu [a dup] dctexlabel
#tex# $2\sqrt{5}$
E B1 milieu [b dup] cltexlabel
#tex# $2\sqrt{5}$
E B4 milieu [b dup] ultexlabel
#tex# $4\sqrt{2}$
D B2 milieu [b dup] dctexlabel
#tex# $4\sqrt{2}$
D B3 milieu [b dup] drtexlabel
H E B1 angledroit
H D B2 angledroit
E A B4 angledroit
D A B3 angledroit