/* Droite perpendiculaire à une droite donnée
   passant par un point donné
*/
// import geometry_dev; // extension devenue l'extension geometry officielle
import geometry;        // le 12/05/09, dans la version 1.71 d'asymptote. :-))

size(7cm,0);

// Affichage du repère courant
show(currentcoordsys);
// Tracé de la droite d'équation y = 2x - 3
line d1=line(2,-3);
draw(d1,.8blue);
// Point A de coordonnées (4,1)
point pA=(4,1);
dot("A",pA,NE);
// Perpendiculaire à d1 passant par A
line d2=perpendicular(pA,d1);
draw(d2,.8green);
// Codage de l'angle droit
perpendicularmark(d1,d2);

draw(box((-2,-2),(5,4)),invisible);