Message Boards Message Boards

[GiF] Hip to be square

GROUPS:

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]
POSTED BY: Mike Sollami
Answer
3 months ago

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!

POSTED BY: Moderation Team
Answer
3 months ago

Group Abstract Group Abstract