Re: RealTime3D without RealTime3D
- To: mathgroup at smc.vnet.net
- Subject: [mg28557] Re: RealTime3D without RealTime3D
- From: "Drago Ganic" <drago.ganic at in2.hr>
- Date: Fri, 27 Apr 2001 03:56:11 -0400 (EDT)
- References: <9c5njv$ite@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
This works also with the 4.0 FronEnd. (MS Windows 98) Greetings from Croatia, Drago "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de> wrote in message news:9c5njv$ite at smc.vnet.net... > Hi, > > all. I just discovered a fancy feature of the 4.1 FontEnd. > > If one wish to display a Graphics3D object as real time object in > the fontend one has nothing more to do than to create a graphics cell > with the true 3d graphics object instead of the PostScript code. > > The Graphics3D[] object don't like Automatic settings in the options > and with to get a options sequence instead of a options list. The > following code should work on Unix and windows and explain the basic > steps > > make some 3d graphics: > > gg = Plot3D[Sin[x*y], {x, 0, Pi}, {y, 0, Pi}] > > now we have a 3d object rendered as PostScript. To get > a RealTime3D object (without loading the RealTime3D` package) > take te list of options and paste the 3d object > verbatim into a new cell > > vp = FullOptions[gg]; > gg2 = gg; > (* replace the options list *) > gg2[[2]] = > Sequence @@ > Select[gg[[2]], > MemberQ[{Lighting, Boxed, ViewPoint, BoxRatios}, First[#]] &]; > > (* make the cell *) > NotebookWrite[SelectedNotebook[], Cell[BoxData[gg2], "Graphics"]] > > and woops, we have a nice active movable and rotatable 3d object. > > Needless to say that the next version of MathGL3d will have a > function that does it and it will correct the lighting bug in > the RealTime3D` package. :-) > > Regards > Jens >