%!PS-Adobe-3.0 EPSF-3.0 %%BoundingBox: -150 -150 150 150 /secteur {newpath 0 0 moveto Radius i 1 sub cos mul 0 0 Radius i 1 sub i 1 add arc closepath } def 0 0 translate /CM {28.45 mul} bind def /Radius {radius CM} def /radius 5 def 0 1 360 {/i exch def /HUE i 360 div def secteur HUE 1 1 sethsbcolor fill} for % manuel.luque27@gmail.com