mmm..i see that you got help already..
anyway..here's simple snippet..
Rem *
Rem * Author : Scorpyo
top1:
rem ********** MAIN 1 ****************
set display mode 800,600,16
hide mouse
autocam off
backdrop off
gosub createtexture
backdrop on
set global collision off
sync rate 0
autocam off
set camera range 10,10000
angle#=45.0:px#=45.0:camz#=-140.0
gosub makeplains
sync on
top2:
rem *****MAIN LOOP******
do
if inkey$()="m" then px#=px#-0.1
if inkey$()="n" then px#=px#+0.1
if inkey$()="r" then angle#=wrapvalue(angle#+1.0)
if inkey$()="t" then angle#=wrapvalue(angle#-1.0)
if inkey$()="z" then camz#=camz#+0.5
if inkey$()="x" then camz#=camz#-0.5
position object 9999,-px#,0.0,0.0
position object 9998,px#,0.0,0.0
yrotate object 9999,-angle#
yrotate object 9998,angle#
scroll object texture 9999,-0.01,0.0
scroll object texture 9998,0.01,0.0
gosub update_camera
gosub Printdata
rem Update screen
sync
rem End loop
loop
makeplains:
make object plain 9998,100,200
texture object 9998,2
position object 9998,px#,0.0,0.0
yrotate object 9998,angle#
make object plain 9999,100,200
texture object 9999,2
position object 9999,-px#,0.0,0.0
yrotate object 9999,-angle#
return
Printdata:
set cursor 0,0
set text opaque
print "Fps=",screen fps()
print "polygons=",statistic(1)
print "angle#=",angle#
print "px#=",px#
print "distance=",px#+px#
print " m = planes closer to each other "
print " n = planes farer "
print " z & x moves camera closer/farer "
print " r & t rotates planes "
return
rem ***********CAMERA***************
update_camera:
cx#=0.0
cz#=camz#
cy#=0.0
position camera cx#,cy#,cz#
point camera 0.0,0.0,0.0
return
createtexture:
black#=rgb(0,0,0)
cls black#
inkcolor#=rgb(255,255,255)
for n=1 to 100
x=rnd(100)
y=rnd(100)
dot x,y,inkcolor#
next n
get image 2,0,0,100,100
cls black#
return
