input geometriesyr16;

typerepre:="persp";

figureespace(-5u,-5u,5u,5u);
Initialisation(10,0,10,30);
trace cercles((0,0,0),(0,0,2),(0,0,0),(0,1,0),(0,0,1));
path CL;
color M,M';
color Cent;
Cent=1/2[(0,0,0),(0,2*cosd(45),2*sind(45))];
M=(0,2*cosd(-15),2*sind(-15));
M'=(-1,greenpart(Cent),bluepart(Cent));
path Sect;
Sect=cercles(Cent,M,Cent,M,M');
remplis Sect withcolor 1.1*gris;
trace subpath(0,length Sect/2) of Sect dashed evenly;
trace subpath(length Sect/2,length Sect) of Sect;
CL=cercles((0,0,0),(0,2,0),(0,0,0),(0,1,0),(1,0,0));
trace subpath(0,length CL/2) of CL;
trace subpath(length CL/2,length CL) of CL dashed evenly;
marque_p:="plein";
pointe(M,(0,0,0),Cent);
marque_p:="non";
label.llft(btex $O$ etex,Projette((0,0,0)));
label.ulft(btex $R$ etex,Projette(Cent));
finespace;

end