vardef Trace(expr nb)= path $; $=A1-- for k=2 upto nb: A[k]-- endfor cycle; $ enddef; input geometriesyr16; figure(0,0,18u,15u); trace grille(1) withcolor orange; pair A[]; A1=placepoint(2,14); A2=placepoint(5,14); A3=placepoint(5,11); A4=placepoint(4,11); A5=placepoint(4,12); A6=placepoint(2,12); trace Trace(6) withpen pensquare scaled 1.5bp; label(btex 1 etex,iso(A1,A2,A3,A4,A5,A6)); A1:=placepoint(8,14); A2:=placepoint(12,12); A3:=placepoint(8,12); trace Trace(3) withpen pensquare scaled 1.5bp; label(btex 2 etex,iso(A1,A2,A3)); A1:=placepoint(15,14); A2:=placepoint(16,14); A3:=placepoint(17,13); A4:=placepoint(17,12); A5:=placepoint(16,11); A6:=placepoint(15,11); A7=placepoint(14,12); A8=placepoint(14,13); trace Trace(8) withpen pensquare scaled 1.5bp; label(btex 3 etex,iso(A1,A2,A3,A4,A5,A6,A7,A8)); A1:=placepoint(3,10); A2:=placepoint(4,9); A3:=placepoint(3,8); A4:=placepoint(2,9); trace Trace(4) withpen pensquare scaled 1.5bp; label(btex 4 etex,iso(A1,A2,A3,A4)); A1:=placepoint(9,10); A2:=placepoint(11,9); A3:=placepoint(9,8); A4:=placepoint(7,9); trace Trace(4) withpen pensquare scaled 1.5bp; label(btex 5 etex,iso(A1,A2,A3,A4)); A1:=placepoint(13,10); A2:=placepoint(15,10); A3:=placepoint(17,9); A4:=placepoint(13,9); trace Trace(4) withpen pensquare scaled 1.5bp; label(btex 6 etex,iso(A1,A2,A3,A4)); A1:=placepoint(1,7); A2:=placepoint(3,7); A3:=placepoint(4,6); A4:=placepoint(2,6); trace Trace(4) withpen pensquare scaled 1.5bp; label(btex 7 etex,iso(A1,A2,A3,A4)); A1:=placepoint(8,7); A2:=placepoint(9,7); A3:=placepoint(11,4); A4:=placepoint(7,4); trace Trace(4) withpen pensquare scaled 1.5bp; label(btex 8 etex,iso(A1,A2,A3,A4)); A1:=placepoint(13,7); A2:=placepoint(17,7); A3:=placepoint(14,4); trace Trace(3) withpen pensquare scaled 1.5bp; label(btex 9 etex,iso(A1,A2,A3)); A1:=placepoint(1,3); A2:=placepoint(3,4); A3:=placepoint(4,2); A4:=placepoint(2,1); trace Trace(4) withpen pensquare scaled 1.5bp; label(btex 10 etex,iso(A1,A2,A3,A4)); A1:=placepoint(4,4); A2:=placepoint(9,1); A3:=placepoint(6,1); trace Trace(3) withpen pensquare scaled 1.5bp; label(btex 11 etex,iso(A1,A2,A3)); A1:=placepoint(13,3); A2:=placepoint(14,3); A3:=placepoint(17,1); A4:=placepoint(14,2); A5:=placepoint(13,2); A6:=placepoint(10,1); trace Trace(6) withpen pensquare scaled 1.5bp; label(btex 12 etex,iso(A1,A2,A4,A5)); fin; end