лишний квад

[GoodWin]

;created by GoodWin
;[email protected]
AppTitle "Temp"
Global width% = 1024, height% = 768
;Global width% = 800, height% = 600
; -=3D=-
Graphics3D width,height,32,1
SetBuffer BackBuffer()
;-=Includes=-
;Include "include\fps.bb"
;-=Globals=-
Global camera
Global light
;-=Types=-

light=CreateLight ()
PositionEntity light,0,0,-10
camera=CreateCamera ()
CameraRange camera,0.1,1000000
cube=CreateCube()
PositionEntity cube,0,0,10
sky=CreateNebula()
;-= îñíîâíîé öèêë =-
While Not KeyHit(1)
;-=WireFrame=-
If KeyHit(17)
wire=Not wire
WireFrame wire
EndIf
;================================================= =========
TurnEntity cube,1,1,1
move_camera()
;PositionEntity sky,EntityX(camera,1),EntityY(camera,1),EntityZ(ca mera,1)
;================================================= =========
UpdateWorld
RenderWorld
; Text 20,20,"FPS: "+fps2()
Text 20,40,"Tris: "+TrisRendered ()

Flip
Wend
End
;-=Functions=-
Function CreateNebula()
s=CreateMesh()
For i=0 To 30
Local s1=CreateQuad(s,"nebula.tga")
EntityColor s1,RandomINT(100,255),RandomINT(0,10),RandomINT(20 0,255)
EntityAlpha s1,.5
ShowEntity s1
RotateEntity s1,RandomINT(-90,90),RandomINT(0,350),RandomINT(0,360)
MoveEntity s1,0,0,10
ScaleEntity s1,RandomINT(2,5),RandomINT(2,6),1
AddMesh s1,s
Next
FreeEntity s1
Return s
End Function
Function CreateQuad(entity,brush$)
sprite=CreateMesh(entity)
he=LoadBrush(brush,3)
v=CreateSurface(sprite,he)
FreeBrush he
AddVertex ( v,-3,3,0,1,0) ; top left 0,1;1,0
AddVertex ( v,3,3,0,0,0) ; top right 1,1;1,1
AddVertex ( v,-3,-3,0,1,1) ; bottom left 0,0;,0,0
AddVertex ( v,3,-3,0,0,1) ; bottom right 1,0;0,1
AddTriangle( v,0,1,2)
AddTriangle( v,3,2,1)
EntityFX sprite,41
EntityOrder sprite,1000000
HideEntity sprite
Return sprite
End Function
Function move_camera()
mxspd# = MouseXSpeed()*0.25
myspd# = MouseYSpeed()*0.25
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
v#=.1
If accel#<0 Then
accel#=0
ElseIf accel#>5
accel#=5
Else
accel#=accel#+MouseDown(3)*v#-MouseDown(2)*v#
EndIf
MoveEntity camera,0,0,accel#
TurnEntity camera,myspd#,-mxspd#,0
End Function

народ помогите... вот такой вот код...
все вроде нормально, но если двинуться назад видно квад (а может и не один) и не понятно откуда он...
или я чего то не вижу...

[HolyDel]

Сообщение от GoodWin

Function CreateNebula()
s=CreateMesh()
For i=0 To 30
Local s1=CreateQuad(s,"nebula.tga")
EntityColor s1,RandomINT(100,255),RandomINT(0,10),RandomINT(20 0,255)
EntityAlpha s1,.5
ShowEntity s1
RotateEntity s1,RandomINT(-90,90),RandomINT(0,350),RandomINT(0,360)
MoveEntity s1,0,0,10
ScaleEntity s1,RandomINT(2,5),RandomINT(2,6),1
AddMesh s1,s
Next
FreeEntity s1
Return s
End Function

Заметь, где у тебя стоит FreeEntity. А от проклятого квада можно избавиться (ты будешь смеяться) если убрать строчку AddMesh s1,s