Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Problem with Out keeping the camera view direction

• To: mathgroup at smc.vnet.net
• Subject: [mg84407] Re: Problem with Out keeping the camera view direction
• From: Norbert Marxer <marxer at mec.li>
• Date: Fri, 21 Dec 2007 20:40:49 -0500 (EST)
• References: <200712190912.EAA13635@smc.vnet.net> <fkftkf$on$1@smc.vnet.net>

On 21 Dez., 09:31, Brett Champion <bre... at wolfram.com> wrote:
> On Dec 19, 2007, at 3:12 AM , Camille JORDAN wrote:
>
>
>
>
>
> > Ok let' say we run this command
>
> > Plot3D[Sqrt[1 - x^2 - y^2], {x, -1, 1}, {y, -1, 1},
> > =A0MeshShading -> {{Yellow, Orange}, {Pink, Red}}, Mesh -> 10,
> > =A0MaxRecursion -> 2, WorkingPrecision -> 20, PlotPoints -> {100, 100},
> > =A0Boxed -> False, Background -> Black]
>
> > that produces a nice semi sphere
>
> > now use the Mouse cursor to rotate the semisphere to a different
> > position. or Alt to zoom in or out etc
> > and then use
>
> > Rasterize[Out[3]]
> > assuming the Out[3] is the output from the above Plot3D command
>
> > shouldn't Rasterize of the Out[3] keep the same camera view port
> > coordinates?
>
> > How can I get the view port coordinates from the Out[3] so that I can
> > place that directly on my Plot3D then?
> > Thanks for the help.
>
> Copy the rotated graphic into an input cell, and wrap code around =A0
> it. =A0For example: Rasterize[<graphic>] or Options[<graphic>]
>
> Brett Champion
> Wolfram Research- Zitierten Text ausblenden -
>
> - Zitierten Text anzeigen -

Hello

When you use the idea of Brett Champion you can make the whole
procedure in one step.

You just have to evaluate an input cell with the following content
(where I only added the Option ImageSize in Plot3D )

gr = Plot3D[Sqrt[1 - x^2 - y^2], {x, -1, 1}, {y, -1, 1},
       MeshShading -> {{Yellow, Orange}, {Pink, Red}}, Mesh -> 10,
   MaxRecursion -> 2,
       WorkingPrecision -> 20, PlotPoints -> {100, 100},
   Boxed -> False,
       Background -> Black, ImageSize -> 300];
CellPrint[Cell[BoxData[RowBox[{ToBoxes[gr], "//", "Options"}]],
"Input"]]

When you evaluate the above cell you get another input cell in which
you can rotate the graphics and everytime you hit Shift+Enter the
ViewPoint settings are outputted.

Best Regards
Norbert Marxer

• References:
  • Problem with Out keeping the camera view direction
    • From: Camille JORDAN <ynceraj@gmail.com>