Re: color legend
- To: mathgroup at smc.vnet.net
- Subject: [mg110472] Re: color legend
- From: Bill Rowe <readnews at sbcglobal.net>
- Date: Sun, 20 Jun 2010 03:44:43 -0400 (EDT)
On 6/19/10 at 7:49 AM, eric.phys at gmail.com (eric g) wrote:
>Hello Group, I want to add a color grayscale
>(myColorFunction[x_]:=RGBColor[1-x,1-x,1-x]) legend this arrayplot,
>from min (white) to max (dark) values.
>ArrayPlot[Table[5./(1 + x^2 + y^2), {x, -5, 5}, {y, -5, 5}], Frame
>-> None]
Perhaps something like
Grid[{{ArrayPlot[Table[5./(1 + x^2 + y^2), {x, -5, 5}, {y, -5, 5}],
Frame -> None]}, {Graphics[Raster[{Reverse@Range[50]/50}],
AspectRatio -> .1]}, {.1, 1}}, Alignment -> {{Left, Right}}]