Pi Random Walk

frame[n_] := Graphics[{
    {White, Thick, vis[a, 10, n]}
    }, PlotRange -> All, ImageSize -> {300, 300},
   Background -> RGBColor[44/255, 71/255, 98/255]];
Manipulate[
frame[n],
{n,1,100,1}
]