MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

Trouble with Perspective

I'm trying this method based on the example from the Documentation
Centre to create a perspective projection:

teapot := Translate[ExampleData[{"Geometry3D", "UtahTeapot"},
"GraphicsComplex"], {-0.5, 0, -0.6}];
t := TransformationMatrix[RescalingTransform[{{-10, 10}, {-10, 10},
{-3/2, 5/2}}]];
 Graphics3D[Rotate[teapot, xs, {1, 0, 0}], Axes -> True,
  ViewMatrix -> {t, {{1, 0, 0, -dx}, {0, 1, 0, -dy}, {0, 0, 1, 0},
{0,  0, -1/d, 0}}}, Lighting -> {{"Ambient", White}}],
 {xs, 0, Pi}, {d, 0.1, -10}, {dx, -10, 10}, {dy, -10, 10}]

The problem is that the vanishing point of the perspective projection
is always way down in the corner of the image, and there doesn't seem
to be any way I can alter dx/dy or the RescalingTransform to get it
into the centre (which is where I want it).  Is there a way to do

Also, is there a way to have the axes in a 3D image displayed as lines
crossing at the origin point rather than along the edges of the image?

  • Prev by Date: Re: Setting global graphics options
  • Next by Date: Running MathematicaScript in Mac Terminal
  • Previous by thread: Workbench Profile[] question
  • Next by thread: Running MathematicaScript in Mac Terminal