MathGroup Archive 2003

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

Search the Archive

Re: Rotating a 2D graphic on screen?

  • To: mathgroup at
  • Subject: [mg43689] Re: Rotating a 2D graphic on screen?
  • From: Jens-Peer Kuska <kuska at>
  • Date: Tue, 30 Sep 2003 16:42:37 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <bl8hal$8d1$>
  • Reply-to: kuska at
  • Sender: owner-wri-mathgroup at


do you mean

gg = Plot[Sin[x], {x, 0, 2Pi}];


With[{phi = Pi/3},
    gg /. Line[pnts_] :> Line[Rotate2D[#, phi, {Pi, 0}] & /@ pnts]


With[{phi = Pi/3},
        gg] /. {Line[pnts_] :> Line[Rotate2D[#, phi, {Pi, 0}] & /@
        Text[what_, pnt_, args__] :> 
          Text[what, Rotate2D[pnt, phi, {Pi, 0}], args]}


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?

  • Prev by Date: Re: webMathematica:MSPValues and TEXTAREA
  • Next by Date: Diff. Equ
  • Previous by thread: Re: Rotating a 2D graphic on screen?
  • Next by thread: Computational aspects of Galois theory?