%% taille de la fenetre
-2 4 setxrange
-3 3 setyrange

%% definition des fonctions coordonnees
/x {
   settvar
   t Cos 2 mul 2 t mul Cos add
} def
/y {
   settvar
   t Sin 2 mul 2 t mul Sin sub
} def

%% on ne s'interresse qu'a la tangente erticale, d'ou les derivees
/x' {pop 0} def
/y' {pop 1} def

%% trace du repere
tracerepere
marks

%% l'intervalle du parametre
0 2 pi mul settrange

%% epaisseur du trait
1.5 setlinewidth

%% trace de la courbe
{x} {y} courbeparam

%% taille puis trace de la tangente
3 settailletangente
pi (x) (y) ptangente

%% la legende
setTimesItalic
   (O) O dltext