Re: Gradient fill as Background for Plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg89730] Re: Gradient fill as Background for Plot*From*: lehin.p at gmail.com*Date*: Thu, 19 Jun 2008 05:43:01 -0400 (EDT)*References*: <g3033p$maq$1@smc.vnet.net> <g32q8b$c4c$1@smc.vnet.net>

On 18 June, 12:24, "David Park" <djmp... at comcast.net> wrote: > Thanks for pointing out the use of VertexColors. > > On your last question you could take the First part of DensityPlot to obt= ain > the primitives. > > Plot[-1/x, {x, -1, 0}, > Prolog -> {First@DensityPlot[12 x - y, {x, -1, 0}, {y, 0, 12.2}]}, > PlotRangeClipping -> False] Thank you very much! It is simple and straightforward! But there appears additional question: how to make this DensityPlot-background to fill all image? The option "PlotRangeClipping -> False" gives only little help. The axes in the Plot gets out of the DensityPlot- background. I have tried "ImageSize" option for DensityPlot but it does nothing in this case. > The regular Mathematica graphics paradigm presents a barrier to many user= s > because to make custom plots and geometric diagrams it is necessary to ju= mp > between graphical levels using various combinations of Show, Graphics, > Prolog, Epilog and First. It's not that it's terribly difficult to do thi= s > but it's enough to stop many users. The Presentations package converts > everything to graphical primitives so there is a uniform simple syntax fo= r > doing graphics. You can combine primitives and curves or surfaces togethe= r > in one container. You just draw one thing after another. You don't have t= o > use Show, Graphics, Prolog, Epilog or First. So, for your two plots we co= uld > use the following. > > Needs["Presentations`Master`"] > > Combining graphical primitives with a Plot curve: > > Draw2D[ > {Polygon[{ImageScaled[{0, 0}], ImageScaled[{1, 0}], > ImageScaled[{1, 1}], ImageScaled[{0, 1}]}, > VertexColors -> {LightYellow, Yellow, LightYellow, White}], > Draw[-1/x, {x, -1, 0}]}, > AspectRatio -> .6, > Axes -> True] > > Combining a DensityPlot with a Plot curve: > > Draw2D[ > {DensityDraw[12 x - y, {x, -1, 0}, {y, 0, 12.2}], > Draw[-1/x, {x, -1, 0}]}, > AspectRatio -> .6, > Axes -> True] > > -- > David Park > djmp... at comcast.nethttp://home.comcast.net/~djmpark/ It is interesting but Draw2D also produces graphical primitives? Or it simply converts any passed Graphics-object to graphical primitives?