Optimising Challenge

Is this any closer?

SuperStrict
Graphics 640,480,0

SuperStrict
Graphics 640,480,0
Global Target:Float  
Global Angle:Float 
While Not KeyHit(KEY_ESCAPE)
	Cls
	Target=ATan2(320-MouseY(),240-MouseX()) +180
	Angle:+TweenAngle(Angle , Target , 0.05 )
	If Angle>360 Then Angle:-360
	If Angle<0 Then Angle:+360
 
	DrawLine 320 , 240 , 320+Cos(angle)*32 , 240+Sin(angle)*32
	Flip
Wend

Function TweenAngle:Float( C:Float , T:Float , S:Float)
		Local DX:Float = T-C
	 	If Abs(DX)>180 Then DX=DX-Sgn(DX)*360
		Return (DX*S)
	
End Function

Regards,
Eric