input geometriesyr12;
figure(-5u,-5u,5u,5u);
pair O,A,B,D,E,C,S,T,U,P;
O=u*(1,1);nomme.bot(O);
A=u*(-1,1);nomme.llft(A);
B=2[A,O];nomme.lrt(B);
path cc;
cc=cercledia(A,B);
draw cc;
D=A rotatedabout(B,-50);
E=1/4[B,D];
C=(E--D) intersectionpoint cc;nomme.top(C);
draw triangle(A,B,C);
S=2[O,A];
path cd;
cd=cercledia(S,O);
T=cc intersectionpoint cd;
U=T reflectedabout(O,S);
P=droite(S,T) intersectionpoint parallele(B,O,T);
  %draw cd withcolor white;
draw droite(S,T) withcolor white;
  %draw droite(B,P,1.25) withcolor white;
fin;
end