Like! attracts Like!

The Empire Skins Up (by GuyOfOdd)

Sat, 23 Mar 2013 01:54:32 +0900

The Empire Skins Up (by GuyOfOdd)

Star Wars vs Jurassic Park (by Slacktory)

Sat, 23 Mar 2013 01:53:52 +0900

Star Wars vs Jurassic Park (by Slacktory)

Luke’s Change: an Inside Job (by Graham Putnam)

Tue, 19 Mar 2013 01:41:54 +0900

Luke’s Change: an Inside Job (by Graham Putnam)

First Person Darth Vader - GoPro Lightsabers (by stuntpeople)

Thu, 14 Mar 2013 23:12:26 +0900

First Person Darth Vader - GoPro Lightsabers (by stuntpeople)

collegehumor: Wait a minute. is that a balloon?

Tue, 12 Mar 2013 01:05:41 +0900

collegehumor:

Wait a minute. is that a balloon?

Photo

Sun, 03 Mar 2013 22:23:15 +0900

gregmelander: GLOBE An amazing spinning globe animation.

Sat, 02 Mar 2013 00:22:55 +0900

gregmelander:

GLOBE

An amazing spinning globe animation.

intothecontinuum: Inspired by Bridget Riley - Descending...

Wed, 27 Feb 2013 23:25:31 +0900

intothecontinuum:

Inspired by Bridget Riley - Descending (1965)

Mathematica code:

WPlot[x_, y_, h_, k_, N_, R_, m_, s_, w_, v_, t_, px_, py_] :=
 Graphics[
  Table[
   {AbsoluteThickness[k], 
    Line[Table[{x*i + 
         If[Mod[i, 2] == m, s*x*Sin[j*2 Pi/w + i*2 Pi/v + t], 0],
         (-1)^i*y + h*j}, {i, 1, N}]]},
   {j, 1, R, 1}],
  PlotRange -> {{x + px, N*x - px}, {h - y + py, R*h - y}}, 
  ImageSize -> {500, 700}
  ]

P={1, 0.5, 0.4, 4, 19, 66, 0, 0.5, 0.99, 0.94, 2.12749, 0., 0.644}

Manipulate[
 WPlot[P[[1]], P[[2]], P[[3]], P[[4]], P[[5]], P[[6]], P[[7]], 
          P[[8]],  P[[9]], P[[10]], t, P[[12]], P[[13]]],
{t, 0, 2 Pi}]

intothecontinuum: log-polar transforms shown with increasing...

Wed, 27 Feb 2013 23:24:18 +0900

s=.2

s=.5

s=.9

intothecontinuum:

log-polar transforms

shown with increasing wave amplitude from top to bottom

Mathematica code:

WfPlot[ s_, t_] :=
 Graphics[
  Table[
   {AbsoluteThickness[1.5], 
    Line[
     Table[
      {i + If[Mod[i, 2] == 0, s*Sin[j*2 Pi/66 + i*2 Pi/6 + t], 0],
       (-1)^i*.5 + .4*j},
     {i, 1, 19}]]},
   {j, 1, 69, 1}],
  PlotRange -> {{1, 19}, {.8, 27.2}}, 
  ImageSize -> {500, 500}]

LogPolar[x_, y_] := {Log[Sqrt[x^2 + y^2]], ArcTan[x, y]}

Manipulate[
  ImageTransformtion[
   WfPlot[s, t],
  LogPolar[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}],
{s, 0, 1}, {t, 0, 2Pi}]

kashief: Me

Tue, 26 Feb 2013 23:19:10 +0900

kashief:

Me

Photo

Mon, 25 Feb 2013 10:54:05 +0900

Photo

Sun, 24 Feb 2013 00:11:12 +0900

Photo

Mon, 18 Feb 2013 02:00:27 +0900

Photo

Thu, 14 Feb 2013 01:13:15 +0900

Photo

Wed, 13 Feb 2013 00:23:04 +0900

Photo

Wed, 13 Feb 2013 00:17:01 +0900

Photo

Wed, 13 Feb 2013 00:16:14 +0900

6 Star Wars Inspired Death Star Lollipops by designerlollipop

Mon, 11 Feb 2013 00:17:43 +0900

6 Star Wars Inspired Death Star Lollipops by designerlollipop

Speedrun: Star Wars IV in 60 seconds (by 0420to)

Sat, 09 Feb 2013 21:52:44 +0900

Speedrun: Star Wars IV in 60 seconds (by 0420to)

Speedrun: Back to the Future I in 60 seconds (by 1A4STUDIO)

Sat, 09 Feb 2013 21:52:10 +0900

Speedrun: Back to the Future I in 60 seconds (by 1A4STUDIO)