@options;
@figure;
A=point(-2,0);
B=point(1,1);
C=point(1,-2);
d=droite(A,B);
perp=perpendiculaire(C,d) {rouge};