Re: crosshatch shading
- To: mathgroup at smc.vnet.net
- Subject: [mg88347] Re: crosshatch shading
- From: "David Park" <djmpark at comcast.net>
- Date: Fri, 2 May 2008 03:44:42 -0400 (EDT)
- References: <fvbr2c$pho$1@smc.vnet.net>
Yes, I think you can. Others may have a better way but here is a method
using the Presentations package. I use it to hatch the positive lobe of a
Sin curve. Basically I draw a set of slanted parallel lines and restrict
their extent with a RegionFunction.
Needs["Presentations`Master`"]
Draw2D[
{Draw[Sin[x], {x, 0, 2 \[Pi]}],
Line[{{0, 0}, {2 \[Pi], 0}}],
GrayLevel[.5],
Draw[# + .5 x, {x, 0, 2 \[Pi]},
PlotPoints -> 40,
RegionFunction -> Function[{x, y, u}, 0 < y < Sin[x]]] & /@
Range[-1.6, 1, .1]},
PlotRange -> {-1.1, 1.1},
Frame -> True]
Here is a method for a stand alone hatched plot without the package.
RegionPlot[0 < y < Sin[x], {x, 0, \[Pi]}, {y, 0, 1},
ColorFunction -> (White &),
BoundaryStyle -> Black,
Mesh -> 30,
MeshFunctions -> {.5 #1 - #2 &}]
And here is the way to combine RegionPlots with other plot elements using
Presentations.
Draw2D[
{Draw[Sin[x], {x, 0, 2 \[Pi]}],
Line[{{0, 0}, {2 \[Pi], 0}}],
RegionDraw[0 < y < Sin[x], {x, 0, \[Pi]}, {y, 0, 1},
ColorFunction -> (White &),
BoundaryStyle -> Black,
Mesh -> 30,
MeshFunctions -> {.5 #1 - #2 &}]},
PlotRange -> {-1.1, 1.1},
Frame -> True]
--
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
<gsi.tim at gmail.com> wrote in message news:fvbr2c$pho$1 at smc.vnet.net...
>I am preparing a graph for publication. I have been able to shade
> various areas in the graph different colors using the Filling option.
> However, for publication the paper will be in black and white. I would
> like to change the shaded areas to be filled in with crosshatches,
> parallel lines, etc. What are the options and commands to do this? I
> have looked online, but have not found an answer.
>
> Thanks in advance.
>