Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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


  • Prev by Date: Re: Abstract Symbolic Matrix operations in Mathematica
  • Next by Date: newbie: can't Manipulate ListPlot of recurrence
  • Previous by thread: FullGraphics of Graphics3D
  • Next by thread: Re: Precise bitmaps