Présentation de nephroide_03.jps

/syracuse/bbgraf/icons/nephroide_03.jpg
%% auteur : -4 4 setxrange -5 5 setyrange /X {settvar 3 t Cos mul 3 t mul Cos sub } def /Y {settvar 3 t Sin mul 3 t mul Sin sub } def /X' {settvar -3 t Sin mul 3 t mul Sin 3 mul add } def /Y' {settvar 3 t Cos mul 3 t mul Cos 3 mul sub } def 0 2 pi mul settrange continu 1 dict begin 1.5 setlinewidth bleu {X} {Y} courbeparam end /pas .05 def /alpha tmin def noir tmax tmin sub pas div round cvi { /alpha alpha pas add store alpha (X) (Y) dptangente alpha X alpha Y perp droite } repeat