Re: embedding 2D graphic
- To: mathgroup at smc.vnet.net
- Subject: [mg111982] Re: embedding 2D graphic
- From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
- Date: Mon, 23 Aug 2010 02:38:43 -0400 (EDT)
Hi,
do you have a real Mathematica Graphics? Then something like this could
be of interest:
gr = DensityPlot[Abs[ArcCos[x + I y]], {x, -2, 2}, {y, -2, 2},
MeshFunctions ->
Function @@@ {{{x, y, z}, Re[ArcCos[x + I y]]}, {{x, y, z},
Im[ArcCos[x + I y]]}},
MeshStyle -> {Opacity[1/3], Opacity[2/3]},
ColorFunction -> "NeonColors", FrameTicks -> None, Mesh -> 10,
PlotRangePadding -> None, Frame -> False]
gr /. {x_?NumericQ, y_?NumericQ} :> {x, y, 0} /.
Graphics[p__, _] :> Graphics3D[p]
Cheers
Patrick
On Sun, 2010-08-22 at 08:08 -0400, David Turner wrote:
> Hello,
>
> I have a 2D graphic that I wish to place on the xy-plane and display in a 3D-coordinate system. I've tried using Import but with no success.
>
> Any ideas?
>
> Thanks,
>
> David
>
> ~~~~~~~~~~~~~~~~~~~~~~~
> David Turner, Ph.D.
> Professor of Mathematics
> Faulkner University
> 5345 Atlanta Highway
> Montgomery, AL 36109
> (334) 386-7163
> dturner at faulkner.edu<mailto:dturner at faulkner.edu>
> _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
>
> This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited.
>