-- Elevation
-- "raise" a pixel diagonally depending on its value
-- author: Marco Pontello
-- modified for Pixopedia 24 by Sinisa Petric, 2008  

image_OUT = 0
image_INP = 1

function elevate(x, y, h)
  local i
  r, g, b = fp24_getImageRGB(image_INP, x, y)
  v = fp24_getImageLuminance01(image_INP, x, y)
  for i = v * h, 1, -1 do
    fp24_setImageRGB(image_OUT, x+i, y-i, r, g, b)
  end
end

factor = 10 
if factor > 0 then
  for y = 0, vp24_height-1 do
    for x = 0, vp24_width-1 do
      elevate(x, y, factor)
    end
    fp24_showProgress(y, vp24_height)
  end
end