big speed hit ...

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

ford escort

uh right skidracer :)
thanks... but i didn't know there's new flags... my fault i had to read more the docs :op

Graphics 800,600,32,0
max=255
Dim x(max),y(max)
For a=0 To max
x(a)=Rand(800)
y(a)=Rand(600)
Next
Repeat
Cls
For t=0 To max
Color t,t,t
x(t)=x(t)+Rand(5)-3
y(t)=y(t)+Rand(5)-3
Text x(t),y(t),t
Next
Color 20,20,40
Rect 0,500,800,100
miror=CreateImage(800,100,1,2)
Stp#=1
For a= 1 To 100
z#=z#+Stp#
	CopyRect 0,400+a,800,1,(100-a)*Cos(z#),100-a,BackBuffer,ImageBuffer(miror)
Next
z#=z#-99*Stp#
DrawImage miror,0,500
FreeImage miror
Flip
Color 255,255,255
Until KeyDown(1)

work better :))
thanks