Re: Primitive Disk Gradient Fills in Graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg110962] Re: Primitive Disk Gradient Fills in Graphics
- From: "David Park" <djmpark at comcast.net>
- Date: Wed, 14 Jul 2010 05:36:17 -0400 (EDT)
Here is a solution using Presentations. You should also be able to do this
using RegionPlot, Show and some graphics level jumping.
Needs["Presentations`Master`"]
gradientDisk::usage =
"gradientDisk[{xcenter, ycenter}, radius, color] will draw an \
outlined colored disk with the color blended from White to full color \
across the the horizontal dimension.";
SyntaxInformation[
gradientDisk] = {"ArgumentsPattern" -> {{_, _}, _, _}};
gradientDisk[{xcenter_, ycenter_}, radius_, color_] :=
{RegionDraw[(x - xcenter)^2 + (y - ycenter)^2 < radius^2, {x,
xcenter - radius, xcenter + radius}, {y, ycenter - radius,
ycenter + radius},
ColorFunctionScaling -> False,
ColorFunction ->
Function[{x, y},
Blend[{White, color},
Rescale[x, {xcenter - radius, xcenter + radius}]]]],
AbsoluteThickness[1],
Circle[{xcenter, ycenter}, radius]}
Draw2D[
{gradientDisk[{0, 0}, 1, Red],
gradientDisk[{2, 2}, 1/2, Green],
gradientDisk[{-2, 1}, .45, Blue]},
Frame -> True,
PlotRange -> 4
]
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
From: Murta [mailto:rodrigomurtax at gmail.com]
Hello All
There is really no way to do a simple gradient fill inside a disk
in Mathematica?
I'm working in a BubbleChart, and would like to make a graphics
disk using ChartElements, going to color x to transparent using
opacity.
I get surprised to see that there is no way to work with gradient
fill inside primitives like Disk.. there is really this?
If it's true, please, correct it in Mathematica 8!...