%@Auteur:Thierry Gauvin

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

input geometriesyr16;

figuremainlevee(-0.5u,0,5.5u,4.5u);
pair I,J,K,A,B;
path med,jk;
I=u*(0,3);
J=u*(5,4);
K=u*(2.5,1);
B=.5[I,J];
trace triangle(I,J,K);
jk=J--K; 
med=mediatrice(I,J);
A=jk intersectionpoint med;
trace med;
nomme.lft(I);
nomme.rt(J);
nomme.ulft(B);
nomme.rt(A);
nomme.bot(K);
remplis coloreangle(K,I,J) withcolor .5[blue,white];
trace codeangle.llft(I,J,K,0,btex 42\degres etex);
trace codeangle.rt(K,I,J,0,btex 48\degres etex);
trace codeperp(I,K,J,5);
trace segment(I,A);
trace cotationmil(K,J,-4mm,20,btex 6~cm etex);
finmainlevee;
end