/* Projection d'un point sur les axes du repère 
   avec l'extension geometry_dev en utilisant :
   les fonctions de projection horizontale et verticale
        transform vprojection(line l, bool safe=false)
        transform vprojection(line l, bool safe=false)
   les constantes (de type line) prédéfinies :
	    line Ox
        line Oy
*/
import geometry;

size(7cm,0);
show(currentcoordsys);

// Définition d'un point...
point A=(4,3);
// ... et de ses projetés sur les axes.
point xA=vprojection(Ox)*A,
      yA=hprojection(Oy)*A;
/* ATTENTION ! Cf. exemple suivant,
   pour une méthode plus courte.
*/

// Constructions
dot("$A$",A,NE);
draw(xA--A--yA,dashed+green);
dot("$x_A$",xA,S);
dot("$y_A$",yA,W);

addMargins(1cm,1cm);