input geometriesyr; figure(0,0,6.5u,6u); pair A,S,B,A',B',K,O,O'; K=(0,0); S=u*(3,0.75); O=(xpart(S),5.25u); O'=3/4[S,O]; path cc,cd; cc=cercle(K,2.5cm) yscaled 0.15 shifted O; cd=cercle(K,(3*2.5/4)*cm) yscaled 0.15 shifted O'; A=point(length cc/2) of cc; B=point(0) of cc; A'=point(length cd/2) of cd; B'=point(0) of cd; trace A--S--B; cotationmil(S,O,-3cm,20,btex 16~cm etex); draw subpath(0,length cc/2) of cc dashed evenly; draw subpath(length cc/2,length cc) of cc; draw subpath(0,length cd/2) of cd dashed evenly; draw subpath(length cd/2,length cd) of cd; draw S--O--A dashed evenly; draw O'--A'; draw codeperp(S,O',A',5); draw codeperp(S,O,A,5); nomme.bot(S); nomme.rt(B'); nomme.urt(B); nomme.ulft(A); nomme.lft(A'); fin; end