Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Convert Graphics3D to Graphics2D. Is it possible?

• To: mathgroup at smc.vnet.net
• Subject: [mg103975] Re: [mg103886] Convert Graphics3D to Graphics2D. Is it possible?
• From: "van der Burgt, Maarten" <Maarten.VanDerBurgt at icos.be>
• Date: Wed, 14 Oct 2009 07:56:16 -0400 (EDT)
• References: <200910101111.HAA12792@smc.vnet.net>

Alexey,


Is this something which could help?

pp = ParametricPlot3D[{Cos[\[Theta]], Sin[\[Theta]],
   Sqrt[\[Theta]]}, {\[Theta], 0, 6 Pi}]

m = RotationMatrix[\[Theta], {{0, 0, 1}, {0, 1, 0}}] /. \[Theta] ->
    75 Degree;

pp[[1, 1, 3, 2]] /. {{x_, y_, z_} -> {(m.{x, y, z})[[1]], (m.{x, y,
z})[[2]]}};
Graphics[{Blue, %}, Axes -> True]

pp[[1, 1, 3, 2]] is the Line[] object containing  the 3D points.

Best regards,

Maarten



-----Original Message-----
From: Alexey [mailto:lehin.p at gmail.com]
Sent: Saturday, 10 October, 2009 13:11
To: mathgroup at smc.vnet.net
Subject: [mg103975] [mg103886] Convert Graphics3D to Graphics2D. Is it possible?

Hello,
My aim is to produce vector-quality 2D representation of Graphics3D
for publication purposes. I would wish to have a general solution but
if it is impossible in the new version of Mathematica I should
consider only my particular case. My Graphics3D consists of a smooth
line representing the solution of a system of differential equations
(and axes, of course). So it seems to be a simple case. Is it possible
to convert this 3D graphics in 2D format preserving text as text (not
converting text in vector lines)?

As an suitable example one may use Graphics3D generated by
ParametricPlot3D[{Cos[\[Theta]], Sin[\[Theta]],
  Sqrt[\[Theta]]}, {\[Theta], 0, 6 Pi}]

• References:
  • Convert Graphics3D to Graphics2D. Is it possible?
    • From: Alexey <lehin.p@gmail.com>