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

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
>