Fichier astroide_02.jps — Modifié le 21 Septembre 2002 à 11 h 21
%% 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