с виду всё прально, ошибка не здесь
Graphics3D 1024,768,32,2
SetBuffer BackBuffer()
light=CreateLight()
cam=CreateCamera()
MoveEntity cam,0,0,-30
Type ent
Field mesh
Field x,y,z
End Type
Function create()
e.ent = New ent
e\mesh = CreateCube()
e\x=Rnd(-10,10)
e\y=Rnd(-10,10)
e\z=Rnd(-10,10)
PositionEntity e\mesh,e\x,e\y,e\z
End Function
For i=1 To 20
create()
Next
Repeat
If KeyHit(57)
For e.ent = Each ent
FreeEntity e\mesh
Delete e
Next
EndIf
UpdateWorld()
RenderWorld()
Flip
Until KeyHit(1)
End
например это у меня работает на ура ))