View difference between Paste ID: sNPqYrsE and DWzckzMy

 data = Import["http://mi.eng.cam.ac.uk/~mh521/js/data.js", "Text"];
 x = Select[ToExpression /@ (StringSplit[data, ","][[8 ;; -2]]),
    NumberQ];
 ps = Transpose[{Range[Length[x]], x}];
 Needs["ComputationalGeometry`"];
 ps = Table[ps[[i]], {i, 1, Length[ps], Floor[Length[ps]/500]}];
 dt = DelaunayTriangulation[ps];
 toEdges[{m_, ns_List}] := Map[{m, ns[[#]]} &, Range[Length[ns]]];
 AdjToTriangles[adj_List] :=
-    With[{p = poly[[j]],
+  Module[{verts = Union[Flatten[adj]], sides, Side},
    SetAttributes[Side, Orderless];
    sides =
     Union[Side @@@
       Flatten[Distribute[#, List] & /@ Transpose[{verts, adj}], 1]];
-       Mod[RandomVariate[NormalDistribution[j/Length@poly, 0.1]],
+   ReplaceList[
-        1]],
+    sides, {___, Side[i_, j_], ___, Side[i_, k_], ___,
-      Darker@col,
+      Side[j_, k_], ___} -> {i, j, k}]];
-      If[j < Length[poly], Line[{First[p], poly[[j + 1, 1]]}], {}],
+edges = Union[Sort /@ Flatten[toEdges /@ dt, 1]];
 triangles = AdjToTriangles[edges];
-      Table[
+
-       Polygon[{First[p], p[[-1, i]],
+toTriangles[{m_, ns_List}] :=
-         p[[-1, Mod[i + 1, Length@Last[p], 1]]]}]
+  Map[{m, ns[[#]], ns[[Mod[# + 1, Length[ns], 1]]]} &,
-       , {i, Length@Last[p]}]}
+   Range[Length[ns]]];
 triangles = Union[Sort /@ Flatten[toTriangles /@ poly, 1]];
 Graphics[{
-    {j, Length@poly}]
+
    Table[
     With[{p = triangles[[j]],
       col = ColorData["StarryNightColors"][(*j/Length[poly]*)
         RandomReal[]]},
      {
       Opacity[
        Mod[RandomVariate[NormalDistribution[j/Length@triangles, 0.1]],
          1]],
       col,
       Polygon[p]
       }
      ]
     ,
     {j, Length@triangles}]
    ]
   }, PlotRange -> All, AspectRatio -> 0.618]