input geometriesyr16 u:=1.15cm; vardef affichenom(text t)= forsuffixes p_=t: nomme.top(p_); endfor; enddef; figure(0,0,15u,15u); pair A[]; A1=u*(0.75,7); A2-A1=u*(1.75,-1); A3-A2=u*(0.5,5); A4-A3=u*(0.5,-1); A5-A4=u*(-0.25,-9); A6-A5=u*(8,0); A7-A6=u*(-0.25,9); A8-A7=u*(0.5,1); A9-A8=u*(1,-5); A10-A9=u*(1.75,1); A11-A10=u*(-2,6); A12-A11=u*(-1.25,0.5); A13-A12=u*(-1.5,0.75); A14-A13=u*(-1,-0.5); A15-A14=u*(-2,0); A16-A15=u*(-1.25,0.5); A17-A16=u*(-1.5,-0.75); A18-A17=u*(-1,-0.5); trace polygone(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18); %affichenom(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18); path piece[]; piece1=(0,0)--u*(1.5,2)--u*(1.5,4)--u*(0,4)--cycle; piece2=cercles((0,0),1.5u); piece3=(0,0)--u*(3,0)--u*(4,2)--u*(1,2)--cycle; piece4=(0,0)--u*(2,1)--u*(1.5,3)--cycle; piece5=u*(0,2)--u*(1,0)--u*(3,0)--u*(4,2)--cycle; piece6=symetrie(polygone(u*(1,0),rotation(u*(1,0),(0,0),72),rotation(u*(1,0),(0,0),2*72),rotation(u*(1,0),(0,0),3*72),rotation(u*(1,0),(0,0),4*72)),(0,0),u*(1,0)); piece7=(0,0)--u*(0.5,0)--u*(1,1)--u*(1.5,1)--u*(2,0)--u*(2.5,0)--u*(1.75,2)--u*(0.75,2)--cycle; piece8=(0,0)--u*(1.5,0)--u*(1.5,3)--cycle; piece9=(0,0)--u*(1,1.5)--arccercle(u*(1,1.5),u*(0,1.5),u*(0.5,1.5))--arccercle(u*(0,1.5),u*(-1,1.5),u*(-0.5,1.5))--cycle; drawoptions(withpen pencircle scaled 1.5bp); trace piece1 shifted (A5+u*(1,1)); trace piece2 shifted(iso(A5,A6)+u*(0,2)); trace piece3 shifted(A14+u*(-2,-3)); trace piece4 shifted(A4+u*(0.5,0.5)); trace piece5 shifted(iso(A5,A7)+u*(-1,0)); trace piece6 shifted(A4+u*(1,-1)); trace piece7 shifted(A4+u*(2,-2)); trace piece8 shifted(A6+u*(-2,1)); trace piece9 shifted(A7+u*(-1.5,-2)); drawoptions(); fin; figure(-5u,-5u,5u,5u); trace piece1; fin; figure(-5u,-5u,5u,5u); trace piece2; fin; figure(-5u,-5u,5u,5u); trace piece3; fin; figure(-5u,-5u,5u,5u); trace piece4; fin; figure(-5u,-5u,5u,5u); trace piece5; fin; figure(-5u,-5u,5u,5u); trace piece6; fin; figure(-5u,-5u,5u,5u); trace piece7; fin; figure(-5u,-5u,5u,5u); trace piece8; fin; figure(-5u,-5u,5u,5u); trace piece9; fin; end