Re: RegionPlot color
- To: mathgroup at smc.vnet.net
- Subject: [mg87327] Re: RegionPlot color
- From: Will Robertson <wspr81 at gmail.com>
- Date: Tue, 8 Apr 2008 05:33:55 -0400 (EDT)
- References: <ftcp1i$kvu$1@smc.vnet.net>
On Apr 7, 6:20 pm, None None <worm9... at yahoo.com> wrote:
> Mathematica 6 produces a region and fills it with default color in
"RegionPlot" (drawing 2D inequality). I wish to use the color elsewhere in graphics applications. I could not recognize the color and the scheme associated with it. kindly guide me on locating this color among mathematica 6 color schemes.
I tried replicating this colour once (not very hard) and decided it
was too hard :) It's not exactly a shade of blue, although it's too
far from Nest[Lighter,Blue,4]:
Show@{RegionPlot[x < 0.5, {x, 0, 1}, {y, 0, 1}],
RegionPlot[x > 0.5, {x, 0, 1}, {y, 0, 1},
PlotStyle -> Nest[Lighter, Blue, 4]]}
Which is, now that I look at it, the same as {Opacity[0.2],Blue}:
Show@{RegionPlot[x < 0.33, {x, 0, 1}, {y, 0, 1}],
RegionPlot[0.33 < x < 0.66, {x, 0, 1}, {y, 0, 1},
PlotStyle -> {Opacity[0.2], Blue}],
RegionPlot[x > 0.66, {x, 0, 1}, {y, 0, 1},
PlotStyle -> Nest[Lighter, Blue, 4]]}
Usually I just apply my own colours :) but it would be nice to know
exactly which ones Mathematica uses. I suppose it wouldn't be hard just to
figure it out by inspecting the plot that get drawn by default and
extracting the colour information.
By the way, on the offchance you're outputting EPS graphics, this
would be a convenient time to shamelessly plug my "FakeRegionPlot"
package:
<http://library.wolfram.com/infocenter/MathSource/7074/>
Cheers,
Will