Re: Is it possible to place arbitrary 2D graphics on 3D
- To: mathgroup at smc.vnet.net
- Subject: [mg113359] Re: Is it possible to place arbitrary 2D graphics on 3D
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Mon, 25 Oct 2010 06:40:45 -0400 (EDT)
Here are some ideas
gr[a_] := Plot[x^(1 - a) (1 - x)^a, {x, 0, 1},
PlotStyle -> Darker[Hue[a]]]
cgr = Show[Table[gr[a], {a, 0, 1, 0.2}]]
a = -1; Show[Graphics3D[
Cases[cgr,
Line[pts_] :>
{a++; Darker[Hue[a/5]],
Line[Append[#, a/5] & /@ pts]},
Infinity]],
Graphics3D @@ (cgr /. {
(a_ -> b_) -> Sequence[],
{x_?NumericQ, y_?NumericQ} :>
{x, y, -0.2}}),
Axes -> True]
You may also want to look at Rotate and related geometric transforms
Bob Hanlon
---- Dims <dims12 at hotmail.com> wrote:
=============
Is it possible to define 3D plane somehow and coordinates on it and
then place previously made 2D graphic object on it?