verbatimtex
%&latex
\documentclass{article}
\usepackage[frenchb]{babel}
\begin{document}
etex

input geometriesyr16;

figuremainlevee(0,0,8u,8u);
pair A,B,C,I,H;
A=u*(1,1);
B-A=u*(0,3);
C-A=u*(6,0);
trace triangle(A,B,C);
H=projection(A,B,C);
I=milieu(B,C);
trace chemin(I,A,H);
trace codeperp(A,H,I,5);
trace marqueangle(I,A,H,0);
label.urt(btex 24\degres etex,w);
nomme.llft(A);
nomme.top(B);
nomme.rt(C);
nomme.urt(H);
nomme.urt(I);
finmainlevee;
end