Zylinder

Parameterdarstellung: x=r cos t, y=r sin t, z=u

Table[
      ParametricPlot3D[{3  Cos[t], 3  Sin[t], u}, {t, 0, 2  Pi}, {u, -2, 
          2}, Axes -> None, Boxed -> False, ImageSize -> 500, 
        ViewPoint -> {3  Sin[2  Pi k/100], 3  Cos[2  Pi k/100], 
            3 + 5  Sin[2  Pi k/100]}], {k, 1, 100}]