\documentclass{standalone}
\usepackage{luamplib}
\begin{document}
\begin{mplibcode}
beginfig(1);
picture P[];
P1 = image(
 for i = -10 upto 10:
   draw (left--right) scaled 200 shifted (0, 20i);
   draw (down--up) scaled 200 shifted (20i, 0);
 endfor
 path c; c = fullcircle scaled 180; clip currentpicture to c; draw c;
);

P2 = image(
 path unit; pair u, v; color a, b;
 unit = unitsquare scaled 24;
 u = point 1 of unit - point 0 of unit;
 v = point 3 of unit - point 0 of unit;
 a = 3/4[red, white]; b = 3/4[blue, white];
 for i=-5 upto 5:
   for j=-5 upto 5:
     fill unit shifted (i*u + j*v)
       withcolor if odd (i+j): a else: b fi;
     draw subpath (-1,1) of unit shifted (i*u + j*v);
   endfor
 endfor
 path c; c = fullcircle scaled 180; clip currentpicture to c; draw c;
);
undraw (left--right) scaled 2in;
draw P1; draw P2 shifted 200 down;

endfig;
\end{mplibcode}
\end{document}