input geometriesyr16; marque_r:=25; marque_p:="plein"; figure(0,0,u,u); trace feuillet withcolor gris; pair A,B; A=u*(0.5,0.5); path cc; cc=cercles(A,0.4u); B=pointarc(cc,30); trace cc; drawoptions(withcolor bleu); pointe(A,B); drawoptions(); trace cercles(A,marque_r/10); trace cercles(B,marque_r/10); fin; figure(0,0,u,u); trace feuillet withcolor gris; pair A,B; A=u*(0.5,0.5); path cc; cc=cercles(A,0.4u); B=pointarc(cc,30); trace cc; trace segment(A,B); drawoptions(withcolor bleu); pointe(A); drawoptions(); trace cercles(A,marque_r/10); fin; end