Mathematica code:
Manipulate[ Graphics[  Table[   Table[    {EdgeForm[{Black, AbsoluteThickness[2.5]}], FaceForm[White],     Translate[      Polygon[       Table[{         {3.9 Sin[Pi/8 (t + V)]          + i/8 ((-1)^S*(1 + Abs[3.9 Sin[Pi/8 (t + V)]]) - 3.9 Sin[Pi/8 (t + V)]),          i/8},         {-3.9 Sin[Pi/8 (t + V)]           + i/8 ((-1)^S*(1 + Abs[3.9 Sin[Pi/8 (t + V)]]) + 3.9 Sin[Pi/8 (t + V)]),         2 - i/8},         {(-1)^S* 6 - (-1)^S*i/8, 2 - i/8},         {(-1)^S*6 - (-1)^S*i/8, i/8}},        {i, 0, 8, 1}]],      {0, -2 V}]},    {S, 0, 1}],   {V, 0, 7, 1}], ImageSize -> 500], {t, 0, 16}]

 

Mathematica code:

Manipulate[
Graphics[
Table[
Table[
{EdgeForm[{Black, AbsoluteThickness[2.5]}], FaceForm[White],
Translate[
Polygon[
Table[{
{3.9 Sin[Pi/8 (t + V)]
+ i/8 ((-1)^S*(1 + Abs[3.9 Sin[Pi/8 (t + V)]]) - 3.9 Sin[Pi/8 (t + V)]),
i/8},
{-3.9 Sin[Pi/8 (t + V)]
+ i/8 ((-1)^S*(1 + Abs[3.9 Sin[Pi/8 (t + V)]]) + 3.9 Sin[Pi/8 (t + V)]),
2 - i/8},
{(-1)^S* 6 - (-1)^S*i/8, 2 - i/8},
{(-1)^S*6 - (-1)^S*i/8, i/8}},
{i, 0, 8, 1}]],
{0, -2 V}]},
{S, 0, 1}],
{V, 0, 7, 1}],
ImageSize -> 500],
{t, 0, 16}]

(Source: intothecontinuum)

(Reblogged from crookedindifference)

"spinning around"

"spinning around"

(Reblogged from imgfave)
imgfave:

Posted by Yayi

imgfave:

Posted by Yayi

(Reblogged from imgfave)
Words of Wisdom !

Words of Wisdom !