Message Boards Message Boards

GROUPS:

[GiF] Hip to be square

Posted 9 months ago
1051 Views
|
1 Reply
|
5 Total Likes
|

After being a life long Macbook Pro user, I just switched and bought a Surfacebook 2. Here's an homage to the squareness of Windows:

enter image description here

w=1920;h=1080;d=60;t=1;
f[t_] := Module[{fillStyle,q,e,o},
       Reap[For[q=0,q<w,q+=d*2,
         For[e=0,e<h,e+=d*2,
          fillStyle=RGBColor[Sin[t+e],Cos[2-e],Cos[t+q+e],Cos[t+q+e]];
          o=(d*Cos[t+q]);
          Sow@{fillStyle,Rectangle[{q+o,e-o},{q+o,e-o}+{d+o,d+o}]}
         ]
       ]][[2,1]]
];
Graphics[Dynamic[f[t++0.05]], PlotRange->{{0,w},{0,h-80}}*(t), ImageSize->500, Background->Black]

enter image description here - Congratulations! This post is now a Staff Pick as distinguished by a badge on your profile! Thank you, keep it coming!

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract