regarde l´image un peu plus bas et page 1 il y a un script mais je sais si il est bon
sync on
make object cube 1,1
do
yrotate object 1,object angle y(1)+5
text 10,10,str$(screen fps())
lock pixels
for x=0 to screen width()
for y=0 to screen width()
c=point(x,y)
a=(rgbr(c)+rgbg(c)+rgbb(c))/3
dot x,y,rgb(a,a*1.5,a)
next y
next x
for y=0 to screen height() step 3
line 0,y,screen width(),y
next x
unlock pixels
sync
loop