Re: Amazing backgrounds
- To: mathgroup at smc.vnet.net
- Subject: [mg25222] Re: [mg25196] Amazing backgrounds
- From: BobHanlon at aol.com
- Date: Fri, 15 Sep 2000 02:21:54 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 9/12/2000 9:37:13 PM, moonbloody at lycos.com writes:
>Using Background option in Plot we can obtain monocromatic background only.
>Is there a way to draw a plot over a shaded background ? It' s to say over
>a background, as an example, spamming from red on the left to yellow on
>the rigth.
>
n = 30; xmin = 0; xmax = 2Pi; ymin = -1; ymax = 1;
Show[Graphics[
Table[Flatten[
{Hue[.1(k - 1)/n],
Rectangle[{xmin + (k - 1)(xmax - xmin)/n,
ymin}, {xmin + k(xmax - xmin)/n, ymax}]}, 1],
{k, 1, n}]],
Plot[Sin[x], {x, xmin, xmax}, PlotStyle -> AbsoluteThickness[2],
DisplayFunction -> Identity],
Axes -> False, Frame -> True, ImageSize -> {500, 310}];
Show[Graphics[
Table[Flatten[
{Hue[.1(k - 1)/n],
Rectangle[{xmin, ymin + (k - 1)(ymax - ymin)/n}, {xmax,
ymin + k(ymax - ymin)/n}]}, 1],
{k, 1, n}]],
Plot[Sin[x], {x, xmin, xmax}, PlotStyle -> AbsoluteThickness[2],
DisplayFunction -> Identity],
Axes -> False, Frame -> True, ImageSize -> {500, 310}];
Bob Hanlon