%% 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