Re:Amazing backgrounds
- To: mathgroup at smc.vnet.net
- Subject: [mg25208] Re:[mg25196] Amazing backgrounds
- From: "Ersek, Ted R" <ErsekTR at navair.navy.mil>
- Date: Fri, 15 Sep 2000 02:21:45 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Gregorio Ferzio wanted to know how to show graphics with a background that
varies over a range of colors. The code below will work, but you need to
tweak the plot range in DensityPlot to suit your specific example. I
explain most of the tricks I use here in notebooks (Tricks.nb) and
(GraphicsTricks.nb) which you can down load from my web site (URL below).
--------------------
Block[{$DisplayFunction=Identity},
BackGrnd=DensityPlot[ x, {x, 0, 2Pi }, {y , -5.2, 5.2},
ColorFunction->(Hue[#/6, 1, 1]&), Mesh->False, PlotPoints->70
];
Curve=Plot[5 Sin[x], {x, 0, 2Pi } ];
];
Show[ {Graphics[BackGrnd], Curve} ];
--------------------
Regards,
Ted Ersek
Mathematica tips, tricks have moved to
http://www.verbeia.com/mathematica/tips/Tricks.html