jpegmode
%% trace du repere
tracerepere
marks

%% definition de la fonction a tracer
/f {.3 mul Sin 5 mul} def

%% dessiner un point sur la courbe
1 dup f point        %% trace du point d'abscisse 1
%% idem avec une croix
5 dup f times2       %% trace du point d'abscisse 5
%% avec des pointilles
2 dup f dashpoint    %% trace du point d'abscisse 2

%% avec une projection en pointille sur un des axes
gsave                %% on encapsule les pointilles      
   pointilles
   [                 %% debut du tableau
      -2 dup f       %% le point de la courbe d'abscisse 2
      dupp           %% que l'on recopie
      projx          %% pour le projeter sur Ox
   ]                 %% fin du tableau
   ligne             %% trace des pointilles

   %% idem sur Oy
   [-4 dup f dupp projy] ligne
grestore             %% fin de l'encapsulation

%% epaisseur du trait
1.5 setlinewidth

%% trace de la courbe
{f} courbe