[GiF] Hip to be square

Staff Picks
, , , ,
1

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:

windows.gif

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]
6 Likes
2

2015-11-02_10-07-11.png

  • Congratulations! This post is now a Staff Pick as distinguished by a badge on your profile! Thank you, keep it coming!