Présentation de astroide_01.jps

/width 300 def 
/height 300 def 
/border 7.5 def 
-1.5 1.5 setxrange 
-1.5 1.5 setyrange 
jpegmode 
 
/X {settvar 
    t Cos 3 exp 
} def 
/Y {settvar 
    t Sin 3 exp 
} def 
  0  2 pi mul settrange 
 
/dessin { 
   tracerepere 
   marks 
   1.5 setlinewidth 
   continu 
   bleu 
   {X} {Y} courbeparam 
} def 
 
{dessin} relief