A Chain

Photo

Sun, 31 Mar 2013 16:17:53 -0400

reb36g: 3D Noise applied to sphere vertices across time...

Thu, 11 Oct 2012 19:05:00 -0400

reb36g:

3D Noise applied to sphere vertices across time (elapsed iterations) rendered with Fluxus Shader

Photo

Thu, 11 Oct 2012 19:00:13 -0400

theplenitude: Torus Knot

Thu, 11 Oct 2012 19:00:00 -0400

theplenitude:

Torus Knot

() 3

Sun, 07 Oct 2012 22:59:00 -0400

() 3

Convex Music

Mon, 10 Sep 2012 13:30:55 -0400

Convex Music

intothecontinuum: Mathematica code: G[X_, Y_, Z_, S_, p_,...

Sun, 09 Sep 2012 18:21:48 -0400

intothecontinuum:

Mathematica code:

G[X_, Y_, Z_, S_, p_, q_, r_, a_, b_, c_, N_, e_, t_, PR_, IS_] :=
Graphics[
 Table[
    Disk[
     {X*Cos[a (e*t + n)*2 Pi/N + p], Y*Cos[b (e*t + n)*2 Pi/N + q]}, 
     Z*Cos[c (e*t + n)*2 Pi/N + r*t*2 Pi] + S],
 {n, 1, N}],
PlotRange -> PR, ImageSize -> IS]

Manipulate[
 G[.75, 1, .02, .03, 0, Pi/2, .04, 3, 1, 4, 100, .08, t, 
  {{-.857, .857}, {-1.2, 1.2}}, 500],
{t, 1, 25, 1}]

intothecontinuum: r = 1 2.005 ≤ a ≤ 2.00502 401 ≥ s ≥...

Wed, 05 Sep 2012 18:42:31 -0400

intothecontinuum:

r = 1

2.005 ≤ a ≤ 2.00502

401 ≥ s ≥ 399

PDF

Mathematica code:

Manipulate[Graphics[Line[
   Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]],
  PlotRange -> 1.3],
 {r, .1, 1}, {a, 0.001, 6*Pi, .00001}, {s, 1, 800, 1}]

Photo

Wed, 05 Sep 2012 12:38:04 -0400

Fan Mixtapes

Mon, 03 Sep 2012 19:28:00 -0400

Fan Mixtapes

Profile - Facepage

Sun, 02 Sep 2012 18:32:00 -0400

Profile - Facepage

Link

Thu, 08 Nov 2007 15:35:00 -0500

Link

BunnyBunny

Mon, 24 Sep 2007 19:24:00 -0400

BunnyBunny

Color *

Thu, 14 Oct 2004 10:09:00 -0400

Color *