Justin Geddes’ Lost Cosmonaut series of paintings, oil on wood or oil on linen

(via 2dots)

Mathematica code:

`Circles[Ccolor_, BGcolor_, X_, Y_, s_, r_, IS_] := Graphics[  Table[   {Ccolor,    Disk[{x, y} + s, r]},   {x, -X, X}, {y, -Y, Y}],  ImageSize -> IS, Background -> BGcolor,   PlotRange -> {{-X-1, X+1}, {-Y-1, Y+1}}]W[x_, y_, w_, a_, t_] :=  w ((Cos[a] + Sin[a]) x + (Sin[a] - Cos[a]) y) + t*2 PiManipulate[Circles[ If[color==0,White, Black],If[color==0, Black, White], X, Y, .25 r*{Cos[W[x, y, w, a, t]], Sin[W[x, y, w, a, t]]},  r/2, IS],{color,0,1,1}, {IS, {{500}, {500, 700}}},{X, 10, 100, 1}, {Y, 10, 100, 1},{{r, .5}, .1, 1},{{w, 1}, 0, 1},{a, 0, 2 Pi},{t, 0, 1}]Manipulate[ Circles[  White, Black, 10, 14,  .25 (.5)*{Cos[W[x, y, .25, 3Pi/2, t]], Sin[W[x, y, .25, 3Pi/2, t]]},  .5/2, {500,700}],{t, 0, 1}]`

Symmetry is merely an expression of how something stands in relation to itself.

Mathematica code:

`R[n_] := (SeedRandom[n]; RandomReal[])Table[Animate[ Graphics[  Table[   {PointSize[.03], Opacity[Exp[-.8 (Mod[t - 5*R[Q*i], 5])]],     Point[       Table[        RotationTransform[k*2 Pi/8][{R[Q*2 i], R[Q*2 i + 1]}],      {k, 0, 7, 1}]]},   {i, 1, 100, 1}],  PlotRange -> 1.33, ImageSize -> 500], {t, 0, 29/6, 1/6}, AnimationRunning ->False],{Q, {5, 7, 10, 14}}]`

Yay! Thank you so very much. if you are not all ready following intothecontinuum I would highly recommend it.

(via static-void)

An animation showing the construction of a hypercube graph of dimension 4

(Source: static-void)

Entre linhas e corpos (Publicado com o Instagram)

A model of a Soviet arctic port city for 4,000 inhabitants, shown at the Expo-67 in Montreal. Sputnik Digest, February 1968.

The town has no streets, squares, or separate houses. It lies entirely under a cement roof and has walls of metal and glass. The town, together with an ever-green orchard and a micro-climate of its own, is encased in a single shell.

[via mikasavela + downwithutopia]