* THE SKIN GAME *: 2013

12/27/13

BYE BYE GOD

10/14/13

SMILE AT LILLIPUT

10/7/13

Ich liebe und hasse Berlin

10/2/13

WHICH WAY ? ( in the desert )

10/1/13

YOU ARE RIGHT

9/3/13

Why , so I Saw !

8/5/13

Does Kate know of this?

5/21/13

RAISED A LOUD CRY

Awful from the front,quite awful!

5/20/13

DESIGNED TO SURPRISE

I am not surprised at that.

5/17/13

Late 19th and early 20th century technology.

3/5/13

OOK HERE ,SIR ( un unnatural scoundrel )

-----++----+---. I have no taste on beauty .

2/26/13

FAILED GIF

R[n_] := (SeedRandom[n]; RandomReal[])
G[A_, s_, c_, T_, x_] := A*T*Exp[-(x - c)^2/s]

ListAnimate[
 Show[
   Table[
    Plot[
     100 - n + 
     Sum[G[.05, 6, 100*R[n], 
                 Sum[G[1, .01, k - R[2 n], 1, m/100 + t], 
                 {k, -3, 3, 1}], 
                x],
     {n, 1, 100, 1}], 
   {x, -10, 110}],
    PlotStyle -> Directive[Black], PlotRange -> {{-10, 110}, {0, 100.5}},
    Filling -> Axis, FillingStyle -> White, Axes -> False, AspectRatio -> Full, 
    ImageSize -> {500, 700}],
  {n, 0, 100, 1}]],
{t, 0, .95, .5}, AnimationRunning->False]