This may be a trivial question, but I seem to be missing something. Let's say I create a graphics object like so:
tp = Plot[{Sin[x], -Sin[x]}, {x, 0, 1 Pi}, AspectRatio -> Automatic,
Axes -> None, PlotStyle -> {Black, Black}, Filling -> Axis]
Now perhaps I want a rotated and scaled version of the same:
tprs = Magnify[Rotate[tp, 45*Degree], 0.5]
And now I want to have a graphic containing both of these:
Show[tp, tprs]
That last one fails, since tprs is not a graphics, according to Mathematica. What is it I am missing?
More generally I would like to be able to move around, rotate, and scale objects like my tp above arbitrarily, and combine them with other graphics objects within a single graphic. I guess what I really want is a new graphics primitive that I can later call as "objectname[{x,y}, s, \theta]" to make it appear at point {x, y} (relative to some reference point of the object), magnified by a factor s, and rotated by an angle \theta.
Overlay[{tp, tprs}]
works, but I hate to use such a method... $\endgroup$ – Jason B. Jul 27 '16 at 20:43Magnify
, but relevant: mathematica.stackexchange.com/q/57803/9490 $\endgroup$ – Jason B. Jul 27 '16 at 20:43Scale
instead ofMagnify
with the solution in the duplicate. $\endgroup$ – Michael E2 Jul 28 '16 at 12:20