Question

Considering Sjoerd Solution on displaying multiple 2D plots in 3D :

myDisk[{x_, y_, z_}, r_] :=

Polygon@Table[
             {x, y, z} + r {Cos[\[Phi]], Sin[\[Phi]], 0} // N, 
             {\[Phi], 0, 2 \[Pi], 2 \[Pi]/200}
             ]

Graphics3D[
 {
   EdgeForm[],
  {
   Red, 
   myDisk[{1, 1, 0.5}, 0.5],  
   myDisk[{0, 0, 0.5}, 0.5],   
   myDisk[{-1, -1, 0.5}, 0.5]
   },
   {
   Blue,  
   myDisk[{1, -1, -0.5}, 0.5],
   myDisk[{0, 0, -0.5}, -0.5], 
   myDisk[{-1, 1, -0.5}, 0.5]}
   }
   ]

Using ViewPoint I get :

Whereas I would like to systematically see :

Any Idea ?

Answer 1

A combination of ViewVertical -> {0, 1, 0}, and ViewPoint -> Top?