Skip to main content
Mathematica

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

6
  • $\begingroup$ A very simple and surprising trick. Of course +1. $\endgroup$ Commented Aug 20, 2014 at 18:42
  • 1
    $\begingroup$ Hopefully master @kguler is proud of his padawan's use of Identity :) $\endgroup$ Commented Aug 20, 2014 at 18:49
  • $\begingroup$ @mfvonh, nice... +1 of course :) $\endgroup$ Commented Aug 20, 2014 at 18:56
  • 6
    $\begingroup$ this works when Graphics has a single argument (e.g. no graphics options in e1 and e2). Otherwise, if, say e2 has the option ImageSize->300, we need something less clean -- like {e1, e2} /. Rotate[Graphics[x_, y_], r_] :> Graphics[Rotate[x, r], y] // Show $\endgroup$ Commented Aug 20, 2014 at 19:03
  • $\begingroup$ @kguler I think that should be y___, otherwise that seems like the best solution yet. $\endgroup$ Commented Aug 21, 2014 at 10:06