Mathematica code:Tile[k_, rx_, ry_, x_, y_, r_] := Table[Translate[ Rotate[{AbsoluteThickness[k], Circle[{i, i}, {rx, ry}, {i*Pi #pattern
Mathematica code:Tile[k_, rx_, ry_, x_, y_, r_] := Table[Translate[ Rotate[{AbsoluteThickness[k], Circle[{i, i}, {rx, ry}, {i*Pi #pattern