\begin{verbatim}
%appel du fichier
input courbescp;
beginfig(1);
  cadre((0,0),(10,10));   %indispensable
  origine((5,5));         %indispensable
  unites(2,2);            %indispensable
  %cartésienne
  draw courbe2(-2,2,100,x**2-2*x-1) withcolor bleu;
  %paramétrée
  draw param3(0,2*pi,100,(2*(cos(t)**3),2*(sin(t)**3))) withcolor rouge;
  %polaire
  draw polaire1(0,2*pi,100,1+cos(theta)) withcolor vert;
  %polaire paramétrée
  draw polaireparam5(0,2*pi,100,((pi/2)*cos(t),sin(t))) withcolor
  orange;
endfig;
end;
\end{verbatim}