Bridges

Continuing the random theme, this time playing around with BrownianBridgeProcess. Here's the code:

data = Module[{n = 256}, 
   ParallelTable[
    RandomFunction[
       TransformedProcess[(1 + x[t]) {Cos[t], Sin[t]}, 
        x \[Distributed] 
         BrownianBridgeProcess[
          1/7, {2 ? i/n, 0}, {2 ? + 2 ? i/n, 0}], 
        t], {2 ? i/n, 2 ? + 2 ? i/n, ?/100}][
      "ValueList"][[1]], {i, 1, n}]
   ];

DynamicModule[{cols},
 cols = RGBColor /@ {"#FAFAFA", "#1C1C1C"};
 Manipulate[
  ListLinePlot[Evaluate[data[[;; i]]], AspectRatio -> 1, 
   PlotRange -> {{-#, #}, {-#, #}} &[2.1], Axes -> None, 
   ImageSize -> 540, Background -> cols[[2]], 
   PlotStyle -> Directive[cols[[1]], Thickness[.001]]], {i, 0, 
   Length[data], 1}]]