productive day

[specis]

yup, as the topic says.... i had a productive day. borrowed need for speed 2 underground from a mate... good game :D might buy it. played that mosta the day.. been reading the blitzmax docs. wrote a wee sample demo blur effect thing, rather simple, got someone to compile it for me cos i aint bought blitzmax yet, still unsure about it being useful or not.  anyway code snippets

CODE SNIPPETGraphics 800,600,32
AutoMidHandle(True)
temp=LoadImage("logo2.png") x = -100
rotan = 0
alx = 1
speed = 1
Global Int_array:Int[]
Int_array = New Int[100]
Function addnewpos(rot)
Int_array[0] = rot
For X = 99 To 1 Step -1
y = x - 1
If Not (Int_array[y] = Null)
Int_array[x] = Int_array[y]
EndIf
Next
End Function
While Not KeyHit(KEY_ESCAPE)
Cls
SetBlend(ALPHABLEND)
For y = 99 To 0 Step - 1
SetAlpha(alx - (y * 0.015))
SetRotation(Int_array[y])
DrawImage(temp,400,300)
Next
Flip
FlushMem
addnewpos(rotan)
If KeyDown(KEY_LEFT)
rotan = rotan - 1
EndIf
If KeyDown(KEY_RIGHT)
rotan = rotan + 1
EndIf
Wend
End

and thats about it from me today :) lazy day woot