Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- m = 5;
- n = 5;
- colors = Hue /@ Range[1/(m*n), 1, 1/(m*n)];
- rectangles = Table[Rectangle[{m, n}, RoundingRadius -> .35], {m, 5}, {n, 5}];
- Graphics[{EdgeForm[Black], {colors, Flatten@rectangles}[Transpose]}, Frame -> True]
- Graphics[{EdgeForm[Black], Riffle[colors, Flatten@rectangles]}, Frame -> True]
Add Comment
Please, Sign In to add comment