%% auteur : Florent Braisaz

-1.5 6 setxrange
-1 6.5 setyrange

15 setfontsize

30 setxunit
30 setyunit

/A {0 0} def
/B {5 0} def
/C {5 5} def
/D {0 5} def

/M {0 2} def
/N {5 3} def

1 setlinewidth

[A B C D] polygone
[A C] ligne

/H {M A -45 rotatepoint} def
/E {N C -45 rotatepoint} def

/F {H E -90 rotatepoint} def
/G {E H 90 rotatepoint} def

/d {A B E perp} def
/I {d A B interdroite} def

/e {B E H paral} def
/J {e A B interdroite} def

gsave
bleu
[E I] ligne
[E B] ligne
[H J] ligne
grestore

gsave
rouge
/fillstyle {0.9 cyan fill} def
[H E F G] polygone*
grestore


setTimesItalic
(A) A dltext
(B) B drtext
(C) C urtext
(D) D ultext
(E) E crtext
(F) F uctext
(G) G cltext
(H) H crtext
(I) I dctext
(J) J dctext