sync on

type pix

    xpo as float
    ypo as float
    xmo as float
    ymo as float
    col as dword

endtype

global w
global h


make2images()
save image "Bit12.bmp",1
save image "Bit22.bmp",2

load bitmap "Bit12.bmp",1
load bitmap "Bit22.bmp",2



set current bitmap 0

copy bitmap 1,0

make memblock from bitmap 1,1

global dim pixels(screen width(),screen height()) as pix

get_pixels()

do

    move_pixels()
    sync

loop

function get_pixels()

    w = screen width()
    h = screen height()
    hw = w/2
    hh = h/2

    for y = 0 to h-1
        for x = 0 to w-1
            p = (((y*w)+x)*4)+12
            pixels(x,y).xpo = x
            pixels(x,y).ypo = y
            pixels(x,y).xmo = (x-hw)*0.04
            pixels(x,y).ymo = (((y-hh)*0.01)-2.0)+(((x-hw)*0.008)^2)
            pixels(x,y).col = rgb(memblock byte(1,p+2),memblock byte(1,p+1),memblock byte(1,p))
        next x
    next y

endfunction

function move_pixels()

    copy bitmap 2,0
`    cls 0
    lock pixels

    for y = 0 to h
        for x = 0 to w
            inc pixels(x,y).xpo,pixels(x,y).xmo
            inc pixels(x,y).ypo,pixels(x,y).ymo
            inc pixels(x,y).ymo,0.5
            pixels(x,y).col = rgb(maxm(rgbr(pixels(x,y).col)+5),maxm(rgbg(pixels(x,y).col)+5),rgbb(pixels(x,y).col))
            dot pixels(x,y).xpo,pixels(x,y).ypo,pixels(x,y).col
        next x
    next y

    unlock pixels

endfunction

function maxm(value)

    if value > 255 then value = 255

endfunction value

function make2images()

autocam off
color backdrop 0
position camera 0,0,0
for image=1 to 2
for n=1 to 500
if image=1 then make object box n,rnd(10)+1,rnd(10)+1,rnd(10)+1
if image=2 then make object sphere n,rnd(7)+1,20,20
color object n,rnd(1000000000)
position object n,rnd(100)-50,rnd(100)-50,rnd(100)+50
next n
sync
get image image,0,0,screen width(),screen height(),1
delete objects 1,500
next image

endfunction