Rotate zoom and pan graphics

Plot3D[Im[ArcSin[(x + I y) ^ 4]], {x, -2, 2}, {y, -2, 2}, Mesh -> None, PlotStyle -> Directive[Yellow, Specularity[White, 20], Opacity[0.8]], ExclusionsStyle -> {None, Red}]

-Graphics3D-

ParametricPlot3D[{{4 + (3 + Cos[v])Sin[u], 4 + (3 + Cos[v])Cos[u], 4 + Sin[v]}, {8 + (3 + Cos[v])Cos[u], 3 + Sin[v], 4 + (3 + Cos[v])Sin[u]}}, {u, 0, 2Pi}, {v, 0, 2Pi}, PlotStyle -> {Red, Green}]

-Graphics3D-