Drawing To TextureBuffer fails

Function CreateHalo()
	Local Size=128
	Local Flags=1+2+4+8+256
	
	Local Halo=CreateTexture(Size,Size,Flags)
	
	SetBuffer TextureBuffer(Halo)
	LockBuffer TextureBuffer(Halo)
	
	Local r#
	Local Theta#
	
	Local O=Size*0.5
	Local Grade=255/O
	
	For Theta=0 To 360
		For r=0.01 To O Step 0.4
			Color 255-(r*Grade),255-(r*Grade),255-(r*Grade)
			Plot O+r*Sin(Theta),O+r*Cos(Theta)
		Next
	Next
	
	UnlockBuffer TextureBuffer(Halo)
	SetBuffer BackBuffer()

;Added for verification
	SaveBuffer(TextureBuffer(Halo),"texture.bmp")
	Return Halo
End Function

			Plot O+r*Sin(Theta),O+r*Cos(Theta)