Wednesday, December 25, 2019

Curves as Art Objects


m=15; n=18; k=600;
Graphics[Table[{ColorData["Rainbow"][i/k],
Text["\[WhiteBishop]",{n Cos[2i*Pi/k]+m Cos[n*i*Pi/k],
n Sin[2i*Pi/k]-m Sin[n*i*Pi/k]}]},{ i,k}],
ImageSize->k]


No comments:

Post a Comment