rotating stuff, having troubles...

Thanks Stevie, sorry I took so long getting back. I will be doing this with a resolution of 1024,768 so it will look better, i will also start it the blue at zero and keep it there, then the white color looks yellow.

psp will be the thrust value so it will grow and shrink with speed.....some extra particles that fade off, i think it will do...

anyway here is a start......anybody else got any ideas..

Graphics 640,480

SetBuffer BackBuffer()

px=320:py=240:psp#=1

Repeat
	
	Cls
	If MouseDown(1) Or KeyHit(203) Or KeyDown(203)
		rot=(rot+5)Mod 360
	EndIf	
	If MouseDown(2) Or KeyHit(205) Or KeyDown(205)
		rot=(rot+355)Mod 360
	EndIf
	If KeyHit(200) Or KeyDown(200)
		psp=psp*1.1
		If psp>4 Then psp=4
	Else
		psp=psp*0.95
		If psp<1 Then psp=1
	EndIf	
	
	Nx# = Cos( rot ) : Ny# = Sin( rot )
	For i = 0 To 10
		r = 255
		g = ( 200 - i*20)
		;b = ( 50 - i*15)
		rad = ( 15 - i )
		Color r, g, b
		Oval px - Nx * i * psp - rad , py - Ny * i * psp - rad, rad * 2 + 1, rad * 2 + 1
	Next
	
	Text 10,10,"Use left and right cursor to rotate the jet stream."
	Text 10,20,"Use up cursor to use thrust."
	
	Flip	
Until KeyHit(1)

End