input geometriesyr16;

figure(0,2u,12u,9u);
pair R,S,P;
trace grille(1) withcolor blanc;
P=pp(8,3);
R-P=pp(-4.25,1);
S-P=pp(-1,3);
marque_p:="croix";
nomme.lrt(P);
nomme.urt(S);
nomme.lrt(R);
drawoptions(withpen pencircle scaled 1.1bp);
path fig;
fig=pp(2,4.5)..pp(1.5,5)..pp(1.8,8)..pp(2,8.5)..%
pp(5,8.15)..pp(5.5,8)..pp(6,7.5)..pp(8,7.5)..%
pp(8.5,7)..pp(9,5.5)..pp(10.5,5)..pp(10.15,3)%
..pp(10.1,2.5)..pp(8,2.45)..pp(6,2.6)..pp(4,2.5)%
..pp(3.5,4)..cycle;
trace fig;
fin;
end