Посмотрите Graphics3D прямо в Mathematica

Question

Рассматривая Sjoerd Solution при отображении нескольких 2D-графиков в 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]}
   }
   ]

При использовании ViewPoint я получаю:

Принимая во внимание, чтоЯ хотел бы систематически видеть:

Любая идея?

Answer 1

Сочетание ViewVertical -> {0, 1, 0} и ViewPoint -> Top?

Answer 2

ViewMatrix (см. Основные примеры)

Answer 3

Как насчет ViewPoint -> Top?