Présentation de astroide

Retour Texte non formaté Éditer PostScript


%% auteur : 

-4 4 setxrange
-6 6 setyrange

/ell [O 3 1 0] def              %% l'ellipse consideree


/alpha 0 def
/pas 3.5 def
noir

360 pas div round cvi {
   /alpha alpha pas add store   %% on incremente l'angle

   /E {alpha ell epoint} def    %% le point de l'ellipse d'angle alpha

   ell E elltangente            %% la tangente

   E perp                       %% et sa normale

   droite                       %% que l'on trace

} repeat

Présentation de astroide_02.jps