MathGroup Archive 2010

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

Search the Archive

Re: Is it possible to place arbitrary 2D graphics on 3D


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?




  • Prev by Date: Re: Researchers break speed barrier in solving important class of
  • Next by Date: Re: How to detect 'bad' characters in expressions in the notebook?
  • Previous by thread: Re: Researchers break speed barrier in solving important class of
  • Next by thread: nested SetDelayed