%% auteur : Christian Vassard


-4 7 setxrange
-4 4 setyrange
30 setxunit
30 setyunit
15 setfontsize
/A {-3 -3} def
/B {3 -3} def
/C {3 3} def
/D {-3 3} def
[A B C D] points
[A B C D] polygone

/E {0 0} def
/F {4 -2} def
/H {F E 90 rotatepoint} def
/G {E H 90 rotatepoint} def
[E F G H] polygone

/d1 {E F} def
/d2 {E H} def
/d3 {B C} def
/d4 {D C} def

/M {d1 d3 interdroite} def
M point
/N {d2 d4 interdroite} def
N point
/fillstyle {.5 setgray continu hachure} def

    mixte [E M C N] polygone*
pointilles
.7 setcurvelinewidth
[A C] ligne
[B D] ligne



setTimesItalic
   (A) A drtext
   (B) B drtext
   (C) C drtext
   (D) D drtext
   (E) E drtext
   (F) F drtext
   (G) G drtext
   (H) H drtext