sync rate 60 : randomize timer()
`make a simple texture
create bitmap 1,64,64
ink RGB(0,166,0),0
box 0,0,64,64
i as integer
ink RGB(0,100,0),0
for i = 0 to 1000
dot rnd(64),rnd(64)
next i
get image 1,0,0,64,64
delete bitmap 1
ink RGB(255,255,255),RGB(0,0,0)
`make a simple matrix
make matrix 1,200,200,20,20
randomize matrix 1,10
prepare matrix texture 1,1,1,1
update matrix 1
height as float
do
`move camera
if upkey() then move camera 0,1
if downkey() then move camera 0,-1
if leftkey() then yrotate camera 0,camera angle y(0)-1
if rightkey() then yrotate camera 0,camera angle y(0)+1
`get the height of the camera
height = (get ground height(1,camera position x(0),camera position z(0))+2
position camera 0,camera position x(0),height,camera position z(0)
loop
dbpro : p166mmx @ 233 : 256mb : sb 128pci : sis onboard
