No Title

Tue, 30 Nov 1999 00:11:00 EST

never mind I got it

if VariableExists("STARTUP") = false then
  dim height_array(319)
  setvariable "STARTUP", 1
end if
pixel_array = GetPixels()
pixel_array_size = ubound(pixel_array)
red_value = 0
blue_value = 0
green_value = 0
min_rgb = 250
current_y = 0
step = 10

for current_x = 0 to 319
  current_y = 0
  for index = (current_x*3) to (pixel_array_size-3)
    blue_value = pixel_array(index)
    if blue_value >= min_rgb then
      green_value = pixel_array(index+1)
      if green_value >= min_rgb then
        red_value = pixel_array(index+2)
        if red_value >= min_rgb then
          height_array(int(current_x/step)) = current_y
          pixel_array(index) = 0
          pixel_array(index+1) = 0
          pixel_array(index+2) = 255
        end if
      end if
    else
      if height_array(current_x) > 0 then
        index = pixel_array_size
      end if
    end if
    index = index + (320*3) - 1
    current_y = current_y + 1
  next
  current_x = current_x + step - 1
next
setpixels pixel_array
setvariable "test", height_array(int(20/5))

finding heighest white pixel on each x pixel column

Tue, 30 Nov 1999 00:11:00 EST

Hi all,

I've failed to figure this one out!

What I am wanting to do is find the y value of the hieghest white pixel in each x column of pixels in the image.

Does anyone know how this can be done?

RoboRealm Forum

No Title

finding heighest white pixel on each x pixel column