Re: FullGraphics of Graphics3D
- To: mathgroup at smc.vnet.net
- Subject: [mg96774] Re: FullGraphics of Graphics3D
- From: ragfield <ragfield at gmail.com>
- Date: Tue, 24 Feb 2009 05:47:57 -0500 (EST)
- References: <gnqo3n$c9e$1@smc.vnet.net>
On Feb 21, 11:33 pm, replicator... at gmail.com wrote:
> is there a method to convert e.g. a Plot3D result to such a Graphics3D
> object, "in which objects specified by graphics options are given as
> explicit lists of graphics primitives" (taken from FullGraphics). It
> seems so that FullGraphics was deliberately created to handle 2D
> graphics, but not 3D, although the same functionality (represent axes,
> ticks, etc. by explicit primitives) would be useful in 3D as well:
> axes, labels, ticks, frames etc. as primitives in 3D environment.
Try one of the following (which should yield similar results):
g = Graphics3D[...];
ImportString[ExportString[g, "PDF" (*, "AllowRasterization"->False
*)], "PDF"]
or
(* SetOptions[$FrontEnd, PrintingOptions->
{"VertexColorRenderingMethod"->"RenderFeatures"}] *)
g = Graphics3D[...];
cell = Cell[BoxData[ToBoxes[g, StandardForm]], "Output"];
g2 = ToExpression@
First@MathLink`CallFrontEnd[ExportPacket[cell, "InputForm"]]
The commented parts may be necessary depending on your current
settings.
-Rob