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

input geometriesyr16;

figuremainlevee(0,0,5u,5u);
pair M,P,N;
M=u*(0.75,4.25);
P-M=u*(2,0);
N-M=u*(0,-3);
trace polygone(M,P,N);
trace appelation(M,P,2mm,btex 4~cm etex);
trace codeperp(N,M,P,5);
trace marqueangle(M,P,N,0);
label.llft(btex 19\degres etex,w);
nomme.bot(N);
nomme.lft(M);
nomme.rt(P);
finmainlevee;

figuremainlevee(0,0,5u,5u);
pair S,V,T;
V=u*(0.75,0.75);
S-V=u*(0,2);
T-S=u*(3,0);
trace polygone(S,V,T);
trace codeperp(V,S,T,8);
trace appelation(V,S,2mm,btex 3~cm etex);
trace appelation(V,T,-3mm,btex 5~cm etex);
nomme.bot(V);
nomme.ulft(S);
nomme.rt(T);
finmainlevee;

end