Fichier nephroide_02.jps — Modifié le 21 Septembre 2002 à 11 h 21
-4 4 setxrange
-4 4 setyrange
/A {0 2} def
/B {0 -2} def
/cerc {O 2} def
%% syntaxe : I d manip --> le cercle de centre I tangent a la droite d donnee
/manip {
2 dict begin
/d defdroite
/I defpoint
I
I d orthoproj
I distance
end
} def
/d {A B} def
/dessin {
/alpha 0 def
rouge
/pas 3 def
360 pas idiv {
/alpha alpha pas add store
/M {alpha cerc cpoint} def
M d manip cercle
} repeat
} def
{dessin} relief