MathGroup Archive 2007

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

Search the Archive

Invert Black/White Colors of Binary Images


Hi,

I am using the following code to create black and white images with
5%  black pixels and 95% white pixels:

blackcolor = Table[1, {45}];
whitecolor = Table[0, {855}];
arrayvalues = Join[blackcolor, whitecolor];
randompermutation := RandomSample[Range[1, 900]];
image := Partition[arrayvalues[[randompermutation]], 30];
t1 = Graphics[Raster[image]]

How can I invert the coloring to have 5% white and 95% black??

Thank you,
Tara


  • Prev by Date: Re: Export figures with tooltips
  • Next by Date: Plotting of Sin(x)/x
  • Previous by thread: Re: Export figures with tooltips
  • Next by thread: Re: Invert Black/White Colors of Binary Images