Hi!
In my current project I needed a special high speed effect, so after some playing I "discovered" the following:
Sync On : Sync Rate 0 : Sync
set window on
set display mode 800,600,32
make object cube 1,10
alpha = 20
set camera to image 0,1,512,512
set camera aspect 800/600
color backdrop 0
sprite 1,0,0,1
set sprite 1,0,1
set sprite alpha 1,alpha
size sprite 1,800,600
Do
set cursor 0,0
print screen fps()
print "Press 'Down' to increase the Blur"
print "Press 'Up' to decrease the Blur"
print "Alpha: ", alpha
If upkey() = 1 and alpha < 255 and up = 0 then inc alpha : set sprite alpha 1,alpha : up = 1
If upkey() = 0 then up = 0
If downkey() = 1 and alpha > 0 and down = 0 then dec alpha : set sprite alpha 1,alpha : down = 1
If downkey() = 0 then down = 0
sprite 1,0,0,1
pitch object up 1,cos(Timer()/10)/10
roll object left 1,sin(Timer()/10)/10
turn object left 1,0.1
color object 1,rgb(int(sin(timer()/50)*255),0,int(cos(timer()/50)*255))
position camera camera position x(), camera position y(), -30+sin(timer()/10)*20
Sync
Loop
I don`t know this forum very well, therefore I don`t know wether anybody has written something similar. I hope some people can need this one.
Greetings from Germany
