-- quad mirror
-- modified for Pixopedia 24 by Sinisa Petric, 2008  

image_OUT = 0
image_INP = 1

for y = 0, vp24_height-1 do
  for x = 0, vp24_width-1 do
    if x < (vp24_width/2) then
      x1 = x
    else
      x1 = vp24_width-x-1
    end
    if y < (vp24_height/2) then
      y1 = vp24_height-y-1
    else
      y1 = y
    end
    r,g,b = fp24_getImageRGB(image_INP, x1,y1)
    fp24_setImageRGB(image_OUT, x,y,r,g,b)
  end
  fp24_showProgress(y, vp24_height)
end