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: [mg103981] Re: [mg103886] Convert Graphics3D to Graphics2D. Is it possible?
• From: "Alexey Popkov" <lehin.p at gmail.com>
• Date: Wed, 14 Oct 2009 07:57:21 -0400 (EDT)
• References: <200910101111.HAA12792@smc.vnet.net> <A4E4DA09141B9D419606C6D67A4078531FA2F0@BEL1EXCLV01.adcorp.kla-tencor.com>
• Reply-to: "Alexey Popkov" <lehin.p at gmail.com>

Thank you for short code of 2D projection of the line. But this is only the 
part of problem. The real problem is that I need the full set of axes, ticks 
and labels projected to 2D. This is stumbling block.


----- Original Message ----- 
From: "van der Burgt, Maarten" <Maarten.VanDerBurgt at icos.be>
To: "Alexey" <lehin.p at gmail.com>; <mathgroup at smc.vnet.net>
Sent: Wednesday, October 14, 2009 1:18 PM
Subject: [mg103981] RE: [mg103886] Convert Graphics3D to Graphics2D. Is it possible?


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: [mg103981] [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>