[Program23]

А AmbientLight использовать не проще ли?
И для усиления эффекта,поставить спрайт,текстуру перед камерой:Noise.tga
)))Эффект тот же,а скорость выше.
--------------------------------------
Вот я как-бэ исправил,по-моему нормально вышо))))можешь там амбиентлайт поменять как тебе надобнее.
Вот подкорректированный код:

Graphics3D 1280,1024,32,2
AmbientLight 255,255,255
SetBuffer BackBuffer()
HidePointer

AmbientLight 255,83,83

Global Camera=CreateCamera()

cube=CreateCube()
PositionEntity cube,0,0,0
cubetex=LoadTexture("GameMedia\txtr_215.jpg")
EntityTexture cube,cubetex


Global Noise%=LoadTexture("GameMedia\Noise.tga",3)

plane=CreatePlane()
planetex=LoadTexture("GameMedia\txtr_173.jpg")
EntityTexture plane,planetex


LoadCamera(0,5,-10)

While Not KeyHit(1)

UpdateCamera()
UpdateWorld
RenderWorld
	If FPSTimer>MilliSecs() Then
	fpsc=fpsc+1
	Else
	fps=fpsc*2
	fpsc=0
	FPSTimer=MilliSecs()+500
	EndIf

Text 100,85,"FPS: "+fps+". Tris rendered:"+TrisRendered()

Flip
Wend
End

Type Camera
	Field Camera%,Poly%,Render%
	Field Mx#,My#
	Field Noise%
End Type 

Function LoadCamera(x,y,z)
	c.Camera = New Camera
	c\Camera = Camera
	PositionEntity Camera,x,y,z
		Mx#=MouseXSpeed()
		My#=MouseYSpeed()
		c\Noise=Noise
	    c\Poly=CreateCube()
     	EntityParent c\Poly,c\Camera
    	ScaleEntity c\Poly,2,2,.1
	    PositionEntity c\Poly,0,0,2
        EntityTexture c\Poly,c\Noise
	     TextureBlend c\Noise,3
End Function 

Function UpdateCamera()
	For c.Camera = Each Camera
		Mx#=MouseXSpeed()
		My#=MouseYSpeed()
		RotateEntity c\Camera,EntityPitch(c\Camera)+My#/2,EntityYaw(c\Camera)-Mx#/2,0
		MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
	Next 
End Function