%% auteur : Gilles Mora

-5 5 setxrange
-7 7 setyrange
40 setxunit
40 setyunit
/A{-3 0} def
/B{3 0 } def
/C{0 5} def
/D{0 -5} def
[A B C] polygone
[D O] ligne
/P {0.4 B C ABpoint} def
P point

/fillstyle {.5 setgray fill} def
[A P B] polygone*



setTimes
(10°) -0.5 1.5 [2 2] text