Step 1

p1 = Plot[x Sin[x] - 1, {x, -2.5, 2.5}]

Output

-Graphics-

Step 2

p2 = Plot[Evaluate[D[x Sin[x] - 1, x]], {x, -2.5, 2.5}, PlotStyle -> Red]

Output

-Graphics-

Step 3

p3 = Plot[Sin[x], {x, -2.5, 2.5}, PlotStyle -> Magenta]

Output

-Graphics-

Step 4

p4 = Graphics[{Magenta, Polygon[{{0.4, 0}, {0, 0.5}, {-0.4, 0}}]}]

Output

-Graphics-

Step 5

Show[p1, p2, p3, p4]

Output

-Graphics-

Step 6

Show[p1, p2, p3, p4, PlotRange -> All]

Output

-Graphics-

Step 7

GraphicsRow[{p1, p2, p3, p4}]

Output

-Graphics-

Step 8

GraphicsGrid[{{p1, p2}, {p3, p4}}]

Output

-Graphics-

Step 9

GraphicsColumn[{p1, p2, p3, p4}]

Output

-Graphics-

Step 10

Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Epilog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]

Output

-Graphics-

Step 11

Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Prolog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]

Output

-Graphics-

Step 12

sp = Graphics3D[Sphere[{0, 0, 0}, 0.8], Boxed -> False]

Output

-Graphics3D-

Step 13

pp3 = ParametricPlot3D[{(2 + Cos[v])Cos[u], (2 + Cos[v])Sin[u], Sin[v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, Axes -> None, Boxed -> False]

Output

-Graphics3D-

Step 14

Show[sp, pp3]

Output

-Graphics3D-

Step 15

watermark = Style["Done", 36, Bold, Opacity[.6]]

Output

Done

Step 16

SphericalPlot3D[ϕ, {θ, 0, Pi}, {ϕ, 0, 3Pi}, Boxed -> False, Axes -> None, Epilog -> Inset[watermark, Automatic, Automatic, Automatic, {1, 1}]]

Output

-Graphics3D-

Functions used

Combine two or more graphics