Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Re: Easy Mapping problem that has me stumped!

  • To: mathgroup at smc.vnet.net
  • Subject: [mg82824] Re: Easy Mapping problem that has me stumped!
  • From: RicoS <rob.ladd at gmail.com>
  • Date: Thu, 1 Nov 2007 05:02:45 -0500 (EST)

Well, I'm not sure why the responses aren't posted, but I got great help from Carl, Szabolcs, Bobby and Tom, thanks folks.

Heres what I got:
map = Import["someImage.gif", "Data"]
mp2 = map/255
Manipulate[
 	Graphics[
  		Raster[
   			Clip[
    			Map[(hi*#^lo*{r, g, b, \[Alpha]}) &, mp2, {2}],
    			{0, 1}]
   			  ]
  			],
 			{{r, 1, "Red Value"}, 1, 0},
 			{{g, 1, "Green Value"}, 1, 0},
 			{{b, 1, "Blue Value"}, 1, 0},
 			{{hi, 1, "High Threshold"}, 2, 1},
 			{{lo, 1, "Low Threshold"}, 1, 2},
 			{\[Alpha], 1, 0}
 		]

Thanks again!!


  • Next by Date: Re: Easy Mapping problem that has me stumped!
  • Next by thread: Re: Easy Mapping problem that has me stumped!