Re: rasterarray border?
- To: mathgroup at smc.vnet.net
- Subject: [mg56037] Re: rasterarray border?
- From: dh <dh at metrohm.ch>
- Date: Thu, 14 Apr 2005 08:54:30 -0400 (EDT)
- References: <d3ia99$9jj$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Mauel,
I do not think that you can draw the border inside RasterArray, You must
draw it separately, like e.g.:
von = Table[Random[Integer, {-1, 2}], {3}, {3}];
Show[Graphics[{
RasterArray[von /.
{-1 -> RGBColor[1, 1, 1],
0 -> RGBColor[0.97, 0.97, 1],
1 -> RGBColor[0.3, 0, 0],
2 -> RGBColor[1, .78, .78]}],
(Line[t = Reverse[#];
{t - {0, 0}, t - {1,0}, t - {1, 1},
t- {0, 1},t - {0, 0}}]) & /@
Position[von, x_ /; x != -1]}],
AspectRatio -> Automatic];
Sincerely, Daniel
Manuel Marques-Pita wrote:
> hello,
>
> I am drawing a rasterarray in which I need to draw a border/stroke round
> some of the elements in the array (all the ones != -1 below).
>
> Show[Graphics[RasterArray[von /.
> {-1 -> RGBColor[1, 1, 1],
> 0 -> RGBColor[0.97, 0.97, 1],
> 1 -> RGBColor[0.3, 0, 0],
> 2 -> RGBColor[1, .78, .78]}]],
> AspectRatio -> Automatic];
>
> I haven't found a way to do this yet, any ideas/suggestions?
>
> Thanks in advance!
>
> Manuel
>