input geometriesyr; figure(0,0,5u,6u); pair S,O,B,A,K; K=(0,0); S=u*(2.5,0.75); O=u*(2.5,5.25); nomme.bot(S); nomme.top(O); path cc,cd; cc=cercle(K,2cm); cd=cc yscaled0.15 shifted O; draw cd; A=point(0) of cd; B=point(length cd/2) of cd; draw triangle(A,B,S); trace O--S dashed evenly; trace codeperp(S,O,A,5); nomme.lft(B); nomme.rt(A); trace A--B; fin; end