input geometriesyr12;
figure(0,-u,6u,9u);
pair A,B,C,S;
B=u*(1,3);nomme.lft(B);
S=u*(1,8);nomme.ulft(S);
A=u*(5,3);nomme.urt(A);
C=u*(4,0);nomme.rt(C);
trace B--S--A--C--cycle;
trace S--C;
trace B--A dashed evenly;
trace codeperp(S,B,A,5); draw codeperp(B,A,C,5);
fin;
end