The 2015 One-Liner Competition has some awesome entries. The third-place award is a particularly cool one, and was posted with a challenge from the judges:

I decided to try my hand at it. I'm still well over 128 characters, but I was able to make a non-stop animated version:

r := RandomReal[1, {7, 2}];
p = r;
p2 = r;
c = 0;
data[t_] := p + t (p2 - p);
Dynamic[
 c = c + .01;
 If[c == 1, p = p2; p2 = r; data[t_] := p + t (p2 - p);];
 c = FractionalPart[c];
 Graphics[{Hue@(data[c][[1]]), 
   BSplineCurve[data[c], SplineClosed -> 2 > 1]}, 
  PlotRange -> {{0, 1}, {0, 1}}]]

And it works! I'm sure it can be done better, but I had fun anyway.