Présentation de astroide_04.jps

-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