@options;
  radians();

@figure;
  A = point(-1.5,2);
  B = point(-2,-1);
  C = point(2,0.5);
  sAB =segment(A,B);
  dBC =droite(B,C) {sansnom};
  sCA =segment(C,A);
  var x =AB/BC {0.711933504667742};
  m =pointsur(B,C,x)  {vertfonce};
  sAm =segment(A,m);
  var y =sin(x) {0.653298847914552};
  h =pointsur(A,m,y)  {vertfonce};