Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Gradient fill as Background for Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg89687] Re: Gradient fill as Background for Plot
  • From: "David Park" <djmpark at comcast.net>
  • Date: Wed, 18 Jun 2008 04:23:33 -0400 (EDT)
  • References: <g3033p$maq$1@smc.vnet.net> <g32q8b$c4c$1@smc.vnet.net> <g35g4l$9fb$1@smc.vnet.net>

Thanks for pointing out the use of VertexColors.

On your last question you could take the First part of DensityPlot to obtain 
the primitives.

Plot[-1/x, {x, -1, 0},
 Prolog -> {First@DensityPlot[12 x - y, {x, -1, 0}, {y, 0, 12.2}]},
 PlotRangeClipping -> False]

The regular Mathematica graphics paradigm presents a barrier to many users 
because to make custom plots and geometric diagrams it is necessary to jump 
between graphical levels using various combinations of Show, Graphics, 
Prolog, Epilog and First. It's not that it's terribly difficult to do this 
but it's enough to stop many users. The Presentations package converts 
everything to graphical primitives so there is a uniform simple syntax for 
doing graphics. You can combine primitives and curves or surfaces together 
in one container. You just draw one thing after another. You don't have to 
use Show, Graphics, Prolog, Epilog or First. So, for your two plots we could 
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
djmpark at comcast.net
http://home.comcast.net/~djmpark/


<lehin.p at gmail.com> wrote in message news:g35g4l$9fb$1 at smc.vnet.net...
>
> Thank you for the idea! Just now I have found very nice particular
> ready-for-use solution in the Documentation Center! It is located on
> "Prolog" page under "Applications" field. It is:
>
> bg = Polygon[{ImageScaled[{0, 0}], ImageScaled[{1, 0}],
>    ImageScaled[{1, 1}], ImageScaled[{0, 1}]},
>   VertexColors -> {LightYellow, LightYellow, LightYellow, White}];
> Plot[-1/x, {x, -1, 0}, Prolog -> bg, PlotRangeClipping -> False]
>
> As I understand there should be some way for using DensityPlot as
> Prolog but DensityPlot is not a list of graphics primitives and so may
> not be directly passed to Prolog. Does anyone know how to convert
> DensityPlot for using as Prolog?
>
> 



  • Prev by Date: Re: Problems with FindRoot and recursive functions
  • Next by Date: Re: Re: Re: Re: snippets
  • Previous by thread: Re: Gradient fill as Background for Plot
  • Next by thread: Re: Gradient fill as Background for Plot