MathGroup Archive 2007

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

Search the Archive

Re: Invert Black/White Colors of Binary Images



Hi Tara,

simpliy replace 0 by 1 and vice versa:

image = image /. {1 -> 0, 0 -> 1}

hope this helps, Daniel



Tara.Ann.Lorenz at gmail.com wrote:

> 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: diff eq
  • Next by Date: Re: Simplifying an expression - with my own definition of what
  • Previous by thread: Re: Invert Black/White Colors of Binary Images
  • Next by thread: Re: Invert Black/White Colors of Binary Images