input constantes; input geometriepoint; beginfig(1); u:=5mm; affixe.R(u*(1,1))so; affixe.S(u*(9,1))se; affixe.T(u*(1,7))n; draw triangle(R,S,T); draw codeperp(S,R,T,5); cotation(R,S,-2mm,-2mm,btex $8\,cm$ etex); cotation(R,T,2mm,2mm,btex $6\,cm$ etex); cotation(T,S,2mm,2mm,btex ? etex); endfig; end