Présentation de nephroide

Retour Texte non formaté Éditer PostScript


-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

Présentation de nephroide_02.jps