Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

Re: FullGraphics with Graphics3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg31346] Re: FullGraphics with Graphics3D
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Tue, 30 Oct 2001 04:35:29 -0500 (EST)
  • Organization: Universitaet Leipzig
  • References: <9r3cd3$ql9$1@smc.vnet.net> <9r578s$s1k$1@smc.vnet.net> <9rb8db$5mc$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

sorry,  try

Import[Export["/tmp/test.mps", gr]]

to get your 2d graphics.

Regards
  Jens

Martijn van Manen wrote:
> 
>  Jens & everybody else out there,
> 
> Though I would be perfectly happy if it did, what you suggest does
> not seem to work. If you Show the Graphics obtained from a
> Graphics3D object the Axes disappear.  Thus when you then apply
> the FullGraphics your Axes are naturally also gone. I came to the
> conclusion after trying a snippet such as:
> 
> gr = ParametricPlot3D[{s, (1 - t^2), t + s^3}, {s, -1, 1}, {t, -1, 1},
>     Axes -> True, AxesLabel -> {"X", "Y", "Z"}];
> 
> Show[Graphics[gr]]
> (* axes are gone *)
> FullGraphics[Graphics[gr]]
> (* no axes as well  *)
> 
> Maybe you have some other trick that could help me? ( for those
> who were wondering, I'm trying to write a very primitive conversion of
> Mathematica graphics to MetaPost )
> 
> Thanks in advance,
> 
> Martijn


  • Prev by Date: Re: Reading 16-bit TIFF Images into Mathematica
  • Next by Date: Re: Evaluating the Error Function of a Complex Argument
  • Previous by thread: Re: FullGraphics with Graphics3D
  • Next by thread: Export of Cells in Bitmap