Présentation de astroide_04.jps

/syracuse/var/syracuse/bbgraf/icons/astroide_04.png
-1.2 1.2 setxrange -1.2 1.2 setyrange /r 1 def /pas .04 def /M {k 0} def %% M sur l'axes Ox /N {0 k} def %% N sur l'axes Oy /dessin { /k 0 def r pas div .725 mul round cvi { OY M r interdroitecercle /A defpoint /A' defpoint /M' {M O sympoint} def OX N r interdroitecercle /B defpoint /B' defpoint /N' {N O sympoint} def gsave rouge [A M A' M'] polygone [B N B' N'] polygone grestore /k k pas add store } repeat } def {dessin} relief