Interactive Point Plotting

Manipulate[Graphics[Table[{Hue[(i+10*j)/100],PointSize[0.0001*i],
Point[{Cos[Pi*i/50]^3+j,j*Sin[Pi*i/50]/3}]},{i,100},{j,N}],
GridLines->Automatic,ImageSize->Large,Axes->True],{N,Range[1,5,1]}]