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}]]
