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