Re: Rotating a 2D graphic on screen?
- To: mathgroup at smc.vnet.net
- Subject: [mg43689] Re: Rotating a 2D graphic on screen?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 30 Sep 2003 16:42:37 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <bl8hal$8d1$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
do you mean
Needs["Geometry`Rotations`"]
gg = Plot[Sin[x], {x, 0, 2Pi}];
and
With[{phi = Pi/3},
Show[
gg /. Line[pnts_] :> Line[Rotate2D[#, phi, {Pi, 0}] & /@ pnts]
]
]
or
With[{phi = Pi/3},
Show[
FullGraphics[
gg] /. {Line[pnts_] :> Line[Rotate2D[#, phi, {Pi, 0}] & /@
pnts],
Text[what_, pnt_, args__] :>
Text[what, Rotate2D[pnt, phi, {Pi, 0}], args]}
]
]
Regards
Jens
AES/newspost wrote:
>
> Any easy way to rotate a 2D graphic about it's center by an arbitrary
> number of degrees _after_ I've created it?
>
> I'd like to lay out and program the graphics in a certain set of x,y
> coordinates where the equations and formulas are simplest -- then rotate
> and display it in a rotated set of x',y' = Horiz,Vert coordinates. I
> can of course do the transformations "by hand" as I go along -- but
> it's just a messy process.
>
> Illustrator can do it, instantly, with an EPS graphic. Sure would be
> nice if Mathematica could?