input courbescp13;

beginfig(1);
  depart((0,0),(10,10),(5,3),1,0.5);
  draw grille(0.5);
  draw axes;
  graduantx.bot;
  graduationy(btex $1$ etex,2);
  draw courbe1(-4,3.5,100,(x-1)*(x-2)*(x+3)) withcolor violet;
  marque_re:="hachure";
  draw airesouscourbe1(-3,-1,0);
  marque_re:="remplis";
  draw airesouscourbe1(1,2,rose);
  draw tangente1(2.5);
  draw labelise1(btex $y=x^3-7x+6$ etex,0.925);
  draw parahor(-3);
  draw Projection(pointcourbe1(0.5));
  label.top(btex $y=m$ etex,placepoint(-4,-3));
endfig;
end