Message Boards

WOLFRAM COMMUNITY

8693 Views

1 Reply

6 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Staff Picks Mathematics Recreation Visual Arts Dynamic Interactivity Graphics and Visualization Wolfram Language

[GiF] Hip to be square

Michael Sollami

Michael Sollami, Salesforce

Posted 6 years ago

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: w=1920;h=1080;d=60;t=1; f[t_] := Module[{fillStyle,q,e,o}, Reap[For[q=0,q<w,q+=d2, For[e=0,e<h,e+=d2, fillStyle=RGBColor[Sin[t+e],Cos[2-e],Cos[t+q+e],Cos[t+q+e]]; o=(dCos[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]

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: Michael Sollami