Fichier astroide_02.jps — Modifié le 21 Septembre 2002 à 11 h 21

astroide_02.pdf
Source
%% 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