Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: "layering" 2d plots

• To: mathgroup at smc.vnet.net
• Subject: [mg60647] Re: Re: "layering" 2d plots
• From: Oliver Ruebenkoenig <ruebenko at imtek.uni-freiburg.de>
• Date: Fri, 23 Sep 2005 04:19:51 -0400 (EDT)
• Organization: InterNetNews at News.BelWue.DE (Stuttgart, Germany)
• References: <200507030757.DAA18308@smc.vnet.net> <200507040624.CAA05801@smc.vnet.net> <dgolld$htp$1@smc.vnet.net> <200509210720.DAA08027@smc.vnet.net> <dgtj16$26d$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Dear Murray,

sorry! That was my mistake. The correct command is imsToGraphics3D. 

Then you can do the following:

Needs["Imtek`Graphics3D`"]

c1 = Circle[{1, 2}, 1.2];

Show[
  imsToGraphics3D[ Graphics[ {c1 } ], # ] & /@ Range[ 0, 2, 0.2 ], 
  AspectRatio -> Automatic, PlotRange -> All, Boxed -> False]

Sorry again. 

However, you can also use imsExtrudeGraphics. imsExtrudeGraphics[ graphic, 
{ zMin, zMax } ] extrudes a graphics object from zMin to zMax. 

Show[ Graphics3D[ 
    Thread[ imsExtrudeGraphics[ 
        Circle[{1, 2}, #] & /@ Range[ 1, 2, 0.1 ], { # - 0.1, # + 0.1 } & 
/@ 
          Range[ 1, 2, 0.1 ] ] ] ], Boxed -> False ]

Does this help? Maybe I have not really understood the question ;-)

Oliver


On Thu, 22 Sep 2005, Murray Eisenberg wrote:

> Unless I minsunderstand the poster's question or the functionality of 
> IMSweb's imsExtrudeGraphics, I don't think the latter answer's the former...
> 
> I thought imsExtrudeGraphics takes a single 2D graphics and places it in 
> a 3D picture or else extrudes it into 3D.
> 
> What the poster asked was how to take a whole (finite) series of 2D 
> plots and stack them up.  Is it obvious how to use imsExtrudeGraphics to 
> accomplish that?
> 
> Oliver Ruebenkoenig wrote:
> > Hi,
> > 
> > On Tue, 20 Sep 2005, Curtis Osterhoudt wrote:
> > 
> > 
> >>Hi, all, 
> >>
> >>    I have a question about the ability to show 2D graphics in a pseudo
> >>3D way.
> >>
> >>    I have produced a series of 2D plots, each of some system with some
> >>parameter changed slightly (this is experimental data. To forestall
> >>questions along the lines of "why don't you sample the function in a
> >>different way", I'll say that it's not possible yet. In addition, it'd
> >>just be nice to see if this -- proposed --  way is possible in
> >>practice). Although making an animation with the plots one after another
> >>is possible, I think it'd be a bit easier to see what's going on if I
> >>could "stack" each plot on top of the others, but with perspective shown.
> >>
> >>    *     Can I take a 2D plot, either an imported picture or a
> >>      Mathematica ArrayPlot or something similar, and show it in "3D",
> >>      in which the plot looks like a sheet of paper viewed from some
> >>      oblique angle, foreshortened appropriately?  I think this is the
> >>      sticking point of the whole exercise.
> > 
> > 
> > If you download the package from:
> > http://www.imtek.uni-freiburg.de/simulation/mathematica/IMSweb/
> > 
> > you will find a function called imsExtrudeGraphics which will extrude 2D 
> > Graphics to 3D Graphics. 
> > 
> > You might want to join the mailing list under:
> > http://elmo.imtek.uni-freiburg.de/mailman/listinfo/ims
> > 
> > Hope that helps,
> > 
> > Oliver
> > 
> > Oliver Ruebenkoenig, <ruebenko at imtek.de>
> >    Phone: ++49 +761 203 7385
> > 
> > 
> 
> -- 
> Murray Eisenberg                     murray at math.umass.edu
> Mathematics & Statistics Dept.
> Lederle Graduate Research Tower      phone 413 549-1020 (H)
> University of Massachusetts                413 545-2859 (W)
> 710 North Pleasant Street            fax   413 545-1801
> Amherst, MA 01003-9305
> 
> 


Oliver Ruebenkoenig, <ruebenko at imtek.de>
   Phone: ++49 +761 203 7385

• Follow-Ups:
  • Re: "layering" 2d plots
    • From: Curtis Osterhoudt <gardyloo@mail.wsu.edu>

• References:
  • Re: "layering" 2d plots
    • From: Oliver Ruebenkoenig <ruebenko@imtek.uni-freiburg.de>