BR>
color backdrop rgb(0,0,0)<BR>
load image "ground.jpg",1<BR>
make matrix 1,1000,1000,100,100<BR>
prepare matrix texture 1,1,1,1<BR>
position matrix 1,-500,0,-500<BR>
position camera 0,100,0<BR>
make object sphere 1,20<BR>
position object 1,0,0,500<BR>
set ambient light 20<BR>
color ambient light rgb(64,64,128)<BR>
set point light 0,0,0,500<BR>
position light 0,0,100,0<BR>
color light 0,512,512,255<BR>
set light range 0,1000<BR>
while inkey$()<>"x"<BR>
sync<BR>
endwhile<BR>
delete light 1<BR>
delete objec