%% auteur : 

30 setxunit
30 setyunit
-2.05 2.05 setxrange
-2.05 2.05 setyrange

/A{0 0} def

/fillstyle{jaune fill} def
0 102 A 2 wedge*
/fillstyle{bleu hachure} def
102 186 A 2 wedge*
/fillstyle{rouge /hangle 45 store hachure} def
186 252 A 2 wedge*
/fillstyle{0.8 setgray fill} def
252 300 A 2 wedge*
/fillstyle{noir hachure} def
300 360 A 2 wedge*

setTimesItalic
(Cheval) 0.5 0.5 text
(Chien) -1.5 0.5 text
(Chat) -1.5 -1 text
(Dauphin) -0.65 -2 text
(Autres) 0.5 -1 text