d1 := Droite("A","B"); d2 := Droite("A","C"); d3 := Perpendiculaire(d1,"C"); d4 := Perpendiculaire(d2,"B"); H := Intersection(d3,d4);