Re: From 3D to 2D
- To: mathgroup at smc.vnet.net
- Subject: [mg90594] Re: From 3D to 2D
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 15 Jul 2008 06:16:56 -0400 (EDT)
- References: <g5f61i$rdp$1@smc.vnet.net>
Hi,
what is wrong with
g2D = ImportString[ExportString[g3D, "PDF"], "PDF"][[1]]
??
Regards
Jens
congruentialuminaire at yahoo.com wrote:
> Hello UG:
>
> I stumbled across another method [applicable with V6] with apparently
> less overhead compared to the earlier provided solution. This is:
>
> g3D = Plot3D[Sin[x*y], {x, 0, Pi}, {y, 0, Pi}]
>
> g2D = GraphicsGrid[{List@g3D}]
>
> g2D // Head
>
> This method seems to leave the front-end confused. It still gives the
> rotate cursor and indeed lets you rotate the graphic, but it
> apparently cannot be resized.
>
> So maybe this method is problematic, but it did allow me to combine
> the 2D version with some 2D primitives for annotation [which was my
> original goal].
>
> HTH.
>
> Regards..RogerW
> ----------------------------------------------------------------------------------------------
> On Dec 11 2007, 4:10 am, Jens-Peer Kuska <ku... at informatik.uni-
> leipzig.de> wrote:
>> Hi,
>>
>> in older Mathematica versions the simple
>> call of Graphics[your3dGraphicsObject]
>> would generate the2dversion. This
>> usefull feature is gone with version 6
>> but you cann still export the3dgraphics to
>> a2dvector format and obtain the same effect, i.e.
>>
>> gg = Plot3D[Sin[x*y], {x, 0, Pi}, {y, 0, Pi}]
>>
>> test = ImportString[ExportString[gg, "PDF"], "PDF"]
>>
>> and test is the2dgraphics you want.
>>
>> Regards
>> Jens
>