In[]:=
Slider[Dynamic[n],{0,1000,1}]randomPaths=Table[(RandomInteger[{0,1},{n,3}]-1/2)2,100]//Map[AnglePath3D];colors=ColorData[112,"ColorList"];color[n_]:=colors[[Max[Mod[n,Length@colors],1]]]Graphics3D[MapIndexed[{color@First@#2,Line[#1]}&,randomPaths],ViewPoint{5,6,3}]
Out[]=
Out[]=
