i've made a quick screen saver in dbpro. you can download the image files from the entery in the codebase.
load image "GRASS09.BMP",1:load image "mess.bmp",2:load image "messb.bmp",3
make object cube 1,50:texture object 1,1:set detail mapping on 1,3:turn object right 1,45
make matrix 1,5000,5000,100,100:randomize matrix 1,20:prepare matrix texture 1,1,1,1:update matrix 1
posz = object position z(1):posx = object position x(1)
make camera 1:set camera view 1,10,10,330,250:position camera 1,200,200,200:point camera 1,50,25,50:color backdrop 1,rgb(0,0,150)
make camera 2:set camera view 2,screen width()-330,10,screen width()-10,250:position camera 2,4800,200,4800:point camera 2,4950,25,4950:color backdrop 2,rgb(0,0,150)
hide mouse:do
if edge = 0
inc posz:inc posx
else
dec posz:dec posx
endif
if posz > 4999 then turn object right 1,180:edge = 1
if posz < 1 then turn object right 1,180:edge = 0
position object 1,posx,get ground height(1,posx,posz) + 30,posz
posy = object position y(1)
set camera to follow posx,posy,posz,wrapvalue(object angle y(1)),100,50,100,0
point camera 1,posx,posy,posz:point camera 2,posx,posy,posz
text 1,1,str$(screen fps())
sync:loop
W0000000000000000000T
