How to enrich a region with extra drawing primitives?

Questions
,
1

I have a Region defined and want to display this with extra graphical primitives. Please see the following code:

In[137]:= area = RegionUnion[Disk[{0, 0}, 2], Disk[{3, 0}, 3]];
In[138]:= stuff = List[Point[{0, 0}], Point[{3, 0}], Line[{{0, 0}, {3, 0}}]];
In[139]:= Graphics[stuff]
In[140]:= DiscretizeRegion[area]

What do i have to do to get the output into one picture? I tried a lot, but i don’t have a real plan. Any help is highly appreciated!

2

* Face palm *

Facepalm.jpg
Facepalm.jpg1024×683 99 KB

Show[DiscretizeRegion[area], Graphics[stuff]]

does what i want. But i don’t understand why and how this works. Any pointers are welcome.

3

I learned something new…

MeshReigons are new objects in Mathematica 10. E.g., from your example, the Head of DiscretizeRegion

 DiscretizeRegion[area] // Head

is

MeshRegion

So it is not a Graphics though its OutputForm is to display it graphically, which makes good sense. To get the graphics primitives from a MeshReigon in order to use them in a Graphics directly you can use MeshPrimitives to extract them from the MeshReigon itself as in

Graphics[{stuff, EdgeForm[{Thick, Green}], 
  MeshPrimitives[DiscretizeRegion[area], 1], FaceForm[LightPurple], 
  MeshPrimitives[DiscretizeRegion[area], 2]}]