input geometriesyr12;
figure(0,0,6u,8u);
pair A,B,C,D,S,H,O;
A=u*(0.75,0.75);
B=u*(4,0.75);
C=u*(5,2.25);
D-A=C-B;
H=iso(D,B);
S=(xpart(H),7u);
O=1/5[H,S];
trace A--B--C--S--cycle;
trace S--B;
trace C--A--D--S--H dashed evenly;
trace C--D--B dashed evenly;
trace S--H dashed evenly;
trace D--O--B dashed evenly;
trace A--O--C dashed evenly;
nomme.llft(A);
nomme.lrt(B);
nomme.rt(C);
nomme.lft(D);
nomme.ulft(O);
nomme.bot(H);
nomme.top(S);
fin;
end