       Combining Plots in a Natural Manner

• To: mathgroup at smc.vnet.net
• Subject: [mg29786] Combining Plots in a Natural Manner
• From: "David Park" <djmp at earthlink.net>
• Date: Tue, 10 Jul 2001 20:25:26 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Dear MathGroup,

I have, perhaps too often, mentioned my DrawingPaper package on MathGroup.
Many people, naturally enough, are reluctant to depend too heavily on third
party, and non WRI Mathematica software. However, there are two simple
routines which easily implement the core idea. I thought I would present and
illustrate these routines because they provide an easy alternative to the
standard methods of combining plots, and can be used without DrawingPaper.
The core idea is to reduce plots to primitive graphics, which can then be
easily intermixed with other graphics primitives and directives in one
statement.

I will present the routines and two examples first, and then give some
discussion.

Needs["Graphics`Colors`"]
Needs["Graphics`ImplicitPlot`"]
Needs["Graphics`FilledPlot`"]
Needs["Graphics`Graphics`"]

The first routine serves to extract the primitive graphics and is so simple
I am almost embarrassed to present it.

Attributes[DrawGraphics] = {HoldAll};
DrawGraphics[plot_] :=
Block[{\$DisplayFunction = Identity},
First[Graphics[plot]]]

The second routine is equally trivial but serves to get rid of one level of
unnecessary complexity and confusion.

Draw2D[primitives_List, opts___?OptionQ] := Show[Graphics[primitives], opts]

But look how we can use them. Here I combine a ContourPlot, a Disk, a
Circle, a DensityPlot, a regular Plot, a ParametricPlot, an ImplicitPlot,
the points Mathematica used in generating the ImplicitPlot, some Text and
color directives, all in one statement, which contains only a list of the
graphical elements and the overall plot options. We just wrap DrawGraphics
around each of the plot statements.

Draw2D[
{ContourPlot[Sin[x y], {x, -Pi/2, Pi/2}, {y, -1, 1}] // DrawGraphics,
Orchid, Disk[{0, 0}, Sqrt/4],
Black, Circle[{0, 0}, Sqrt/4],
DensityPlot[Sin[x y], {x, -1/4, 1/4}, {y, -1/4, 1/4},
ColorFunction -> Hue, PlotPoints -> 8] // DrawGraphics,
Peacock, Plot[Sin[x], {x, -Pi/2, Pi/2}] // DrawGraphics,
Blue, ParametricPlot[{Cos[t], Sin[t]}, {t, 0, 2Pi}] // DrawGraphics,
Red,
ellipse = ImplicitPlot[x^2 + 3y^2 == 1, {x, -1, 1}] // DrawGraphics,
LightBlue, PointSize[0.01], ellipse /. Line[pts_] :> Point /@ pts,
Gold, Text["Draw It!", Scaled[{0.95, 0.1}], {1, -1}]},
Frame -> True, AspectRatio -> Automatic, Background -> Linen,
ImageSize -> 500,
PlotLabel ->
"Combining Plots, Graphics Primitives\n\t and Graphics Directives"];

It is very useful to have the primitive graphics from a plot because then we
can do further manipulations on them. In the example above, we could
immediately convert a line from one of the plots into points. In the second
example below, I color the area inside a cardioid but outside a unit circle.
(I imagine there is also a way to do this with InequalityPlot.) It is
difficult to use FilledPlot directly because of the shape of the region. But
we can use FilledPlot in the theta-r plane and then transform to the xy
plane. So here I draw the filled area and the polar plots for the cardioid
and circle in one statement.

Draw2D[
{(FilledPlot[{1, 1 + Cos[t]}, {t, -Pi/2, Pi/2}, Fills -> LightSteelBlue,
Curves -> None, PlotPoints -> 31] //
DrawGraphics) /. {t_?NumberQ, r_?NumberQ} -> {r Cos[t],
r Sin[t]},
PolarPlot[1 + Cos[t], {t, 0, 2Pi}, PlotPoints -> 31] // DrawGraphics,
PolarPlot[1, {t, 0, 2Pi}] // DrawGraphics},
AspectRatio -> Automatic, Background -> Linen,
ImageSize -> 500,
PlotLabel -> "Primitive Graphics Can\n Be Easily Transformed"];

The advantages of this approach are:
1) There is no need to produce side plots, or to turn the display on and
off.
2) All graphical elements are on the same level, whether they are ordinary
graphics primitives or primitives generated by some plot command.
3) Graphical elements can be drawn one after the other, and mixed with
graphics directives, just in the order you wish. (And in 2D graphics, the
order matters.) This, after all, is the natural way that one would draw a
picture.
4) Graphical elements are immediately available for manipulation.
5) The overall plot options, such as Axes, Frame, FrameTicks, PlotLabel,
etc., are specified in the Draw2D (or Show) statement itself, where they
logically belong, and not in some plot command which produced only one
element of the overall graphics.
6) It is not necessary to use Prolog or Epilog, or wonder, and be surprised
by which options are actually picked up when you use the regular Mathematica
paradigm for combining plots in a Show statement or with DisplayTogether.
(Show and DisplayTogether pick up options only from the first plot listed.
So Epilog items which might naturally be associated with other plots must be
shifted to the first plot or moved to the Show or DisplayTogether statement.
That is not only not the natural way of doing things, but it loses precise
ordering control for laying down all the elements.)

By adhering to the paradigm that "Everything is an Expression" the designers
of Mathematica made a system which is both powerful and easy to use. While
plots are also expressions, they are not easy to use. For graphical
programming, I would have liked to have seen the subordinate paradigm,
"Everything is Primitive Graphics", implemented. The designers, rather, went
for set-piece plots, and then seem to have worked out methods of combining
them as an afterthought. The DrawGraphics approach goes a long way toward
implementing the "Everything is Primitive Graphics" paradigm.

David Park