Are you talking about something like this:
sync on : sync rate 200
make object plain 1,100,100
ghost object on 1
create bitmap 1,640,480
set current bitmap 1
do
if cycle=0
ink rgb(c,c,c),0
c=c+1
if c=255 then cycle=1
else
ink rgb(c,c,c),0
c=c-1
if c=0 then cycle=0
endif
box 0,0,255,255
get image 1,0,0,255,255
texture object 1,1
sync
loop
EDIT:
or this:
cls 0
sync on
backdrop on
color backdrop 0
autocam off
rem make 2 images to texture object
for t=1 to 100
ink rgb(rnd(255),rnd(255),rnd(255)),0
dot rnd(50),rnd(50)
next t
get image 1,0,0,51,51
cls 0
for t=1 to 25
ink rgb(rnd(255),rnd(255),rnd(255)),0
box t,t,t+rnd(25),t+rnd(25)
next t
get image 2,0,0,51,51
make object plain 1,100,100
texture object 1,1
set object 1,1,0,0,0,1,0,1
fade object 1,0
ghost object on 1
set ambient light 100
position camera 0,0,-500
t=1
do
for l=rgb(255,255,255) to 0 step -65793
set object ambient 1,l
sync
next l
inc t
if t>2 then t=1
texture object 1,t
sleep 1000
for l=0 to rgb(255,255,255) step 65793
set object ambient 1,l
sync
next l
sleep 1000
sync
loop