Point("A",1,2) ;
Point("B",-1,1) ;
Point("C",2,-1) ;
Segment("s1","A","B");
Segment("s2","B","C");
Segment("s3","A","C");
Perpendicular("d1","s1","C");  
Perpendicular("d2","s2","A");  
OrderedIntersection("h1","d1","d2",0);  // CaRMetal : Intersection("h1","d1","d2");