ViewPoint Selector for wolfram notebook

Ideas
1

I was having trouble with all the recommendations from posts that I saw for manually changing the View Point for 3D graphics in the notebook. I didn’t have success with using Dynamic or Dynamic Module but this seemed to work for me. Maybe it will save someone some time and frustration:

g1 = Graphics3D[{Sphere[],Cuboid[]}];
    Manipulate[With[{v = RotationTransform[\[Theta]z[[1]]*-2Pi+Pi, {0, 0, 1}][{Pi, 0,Pi}]}, 
            g2= Show[g1, ViewPoint -> {v[[1]],v[[2]],\[Theta]z[[2]]*-40+20}, 
         SphericalRegion -> True]],{{\[Theta]z,{.5,.5}},Locator}]
Dynamic[Options[g2,ViewPoint]]
Dynamic[Show[g2]]