input geometriesyr12;
figure(0,0,10u,8u);
pair A,R,B,S;
B=u*(2,1);
A=u*(1,4);
path cc;
cc=droite(A,rotation(B,A,90));
R=cc intersectionpoint droite(B,rotation(A,B,-50));
S=cc intersectionpoint droite(B,rotation(A,B,-65));
trace triangle(A,B,S);
trace codeperp(S,A,B,5);
trace B--R;
nomme.bot(B);
nomme.top(A);
nomme.top(R);
nomme.urt(S);
trace cotationmil(B,A,3mm,15,btex $380\,m$ etex);
trace marqueangle(R,B,A,0);
label.top(btex 50° etex,w);
marque_a:=50;
trace marqueangle(S,B,R,0);
label.urt(btex 15° etex,w);
fin;
end