Synchronize two Mathematica plots angle and position so they can be simultaneously rotated with the mouse

gistfile1.txt

from: http://mathematica.stackexchange.com/questions/5375/extract-current-viewing-parameters-from-a-3d-view/5377#5377

    {vp, vv} = Options[Graphics3D, {ViewPoint, ViewVertical}][[All, 2]];
    
    Grid[{{Graphics3D[Cuboid[], ViewPoint -> Dynamic[vp], 
        ViewVertical -> Dynamic[vv]], 
       ParametricPlot3D[{Cos[u], Sin[u] + Cos[v], Sin[v]}, {u, 0, 
         2 Pi}, {v, -Pi, Pi}, ViewPoint -> Dynamic[vp], 
        ViewVertical -> Dynamic[vv]]}}]