%@AUTEUR:Guillaume Connan

prologues:=2;

verbatimtex
%&latex
\documentclass{article}
\usepackage[upright]{fourier}
\begin{document}
etex

input geometriesyr16

figure(-8cm,-9cm,9cm,8cm);
pair A,B,C,D,E,O,Z;
path cc,dd;
O=(0,0);
A=(-2cm,-5cm); B=(2cm,-5cm);Z=2*B;
trace codesegments(O,A,O,B,2);
cc=cercles(A,O); dd= B--Z;
E=cc intersectionpoint dd;

trace arccercle(E,O,A) withcolor orange dashed evenly;
trace A--O--B--cycle withcolor red;
trace B--E withcolor blue;

label.lft(btex A etex,A);
label.rt(btex B etex,B);
label.top(btex O etex,O);
label.rt(btex E etex,E);
fin;

end