autocrop
20 setxunit
10 setfontsize
rouge
/fillstyle {fill} def
O 1 cercle*
blanc
-30 30 O 1.1 wedge*
noir
setTimes
(60°) .7 0 cctext