Реализую много травы

[ABTOMAT]

В-общем, действительно лушше на квады сделаю

[ЛысыЙ_Чук-Иванчук]

Незнаю как вы, но Дипломат говорит верно!
ЗЫ\
Я ето делаю просто, может показатся что несильно просто и быстро- но у меня нет СУПЕР гиганской базы и вот что я делаю:
Я вмаксе ставлю всю трову куда мне надо, и потом соеденяю секции премерно 10 в один большой ТРАВ...
Потом-же в блице гружу всю базу Анимом и нахожу всю ету растительность, трава распределена поименно, чем больше её размер тем дольше ана будет сохранятся в зоне видемости, а чем она менше и в зависимосте от настроек которые поставит Юзер- она прячется(действует безотказно, и скорость бешаная).

Да ешо, если ты будеш делать чтото типа горной месности, то твоя трава будет тупо торчать на склонах(ели ты её конечно несобираешся по вектору выравнивать)

И не советую юзать текстуру с альфой, лутше с маской(один куст с альфой = ~20 кустов с маской)

[moka]

vlad, тут речь шла о Очень большой местности, а как нам известно блиц не может держать Огромное колличество объектов в памяти, поэтому их нужно загружать\выгружать из файлов содержащих о них информацию.

Насчёт склонов, он пошёл по другому пути, он как я понял собирается делать карту растительности: картинка с пикселями разных цветов, как уже было написано выше, она же должна быть пропорциональна карте высот 1 пиксель карты растительности на 1 пиксель карты высот, или 1 растительности на 4 высоты. Таким образом, будет трава расти не где угодно, а где "сказано" .

[Diplomat]

Господа! Ну так что же вы спорите? Создайте свою Очень Большую Местность, реализуйте алгоритм- благо он не сложен- и проверьте. Это сразу и навеки решит все вопросы.

как нам известно блиц не может держать Огромное колличество объектов в памяти, поэтому их нужно загружать\выгружать из файлов

Товарищи, вы собрались прямо в динамике с файлами на винчестере работать?.. В целях сохранения производительности и долговременной целостности железа не рекомендую этого делать. Изыскивайте другие пути.

[HolyDel]

самое интересное что неподалеку есть аналогичная тема.
загрузите свою травяную карту в оперативку.
загрузите модели травяного участка (квад 64 на 64) например.
затем читая из оперативки (еще раз повторюсь что последовательное чтение из файла ради 9-16-25-36 и т.д. значений нерулит, а с seek-ами вы, господа, пожалуй возиться нестанете) вы ставите траву туда, куда надо. из оперативки считать 100, да хоть 1000, ето тьфу, ничто, вы даже задержки непочуствуете, объекты с травой кже загружены, и пресловутое копиентити - которе как известно геометрию некопирует (поетому очень быстрое) тормозить небудет, удаля то что уже ненужно - freeentity и всёёё.

[Matt Merkulov]

Может проще будет создать n травяных кустов, по мере их выхода из зоны видимости помечать, как "свободные", и брать из списка "свободных" кусты для размещения на новом месте? Грубо говоря, перемещать всю траву вместе с игроком.

[Diplomat]

2 Matt Merkulov: И ты, Брут! (с)

2 HolyDel: Идея жизнеспособная, но что придётся делать, если твоим скопированным травяным участком придётся засадить не-плоскую-по-определению гору?

2 Господа новички! Простите пожалуйста, но читать приводимые домыслы попросту надоело.
Вот два примера, которые, надеюсь, разьяснят новичкам то, что всем остальным давно понятно и так.
Сорри за сумбурность кода- я и так потратил на него 30 минут времени, которое мог потратить с заметно большей пользой, чем на демонстрации элементарных истин.
Заметьте, что соотношение производительностей 1 к 2 (возможное отклонение зависит от соотношения производительностей процессор/виеокарта конкретной машины) не является константным. При увеличении площади участка отображаемой травы, различие производительностей первого и второго примера будет расти практически по экспотенте.
Должен также заметить, что ускорить и первый, и второй пример можно приблизительно в полтора-два раза, что, впрочем, никак не повлияет на соотношение их производительностей.
[blitz]
; Пример 1. "Многокустье"

;Инициализация графики
Graphics3D 1024,768,32,1

;Коллизия камера-уровень
Const Env=1;окружение
Const Unt=2;юнит
Collisions Unt,Env,2,1

;Камера. Она же игрок
cam=CreateCamera()
CameraRange Cam,0.5,257
PositionEntity Cam,128,2,128
EntityType Cam,Unt

;солнце
Sun=CreateLight(1)
TurnEntity Sun,45,45,0
LightColor Sun,250,200,150

;Поле, по которому мы буем ходить
Ground=CreatePlane()
TexGround=CreateTexture(64,64,1)
EntityTexture Ground,TexGround
SetBuffer TextureBuffer(TexGround)
For x=0 To 63
For y=0 To 63
Color Rnd(64),Rnd( 128 ),Rnd(32)
Plot x,y
Next
Next

;небо, ограничивающее наше поле
Sky=CreateSphere( 8 )
PositionEntity Sky,128,0,128
EntityType Sky,Env
ScaleEntity Sky,128,128,128
FlipMesh Sky
TexSky=CreateTexture(64,64,1)
EntityTexture Sky,TexSky
SetBuffer TextureBuffer(TexSky)
For y=0 To 63
Color y*3,y*4,128+y*2
Line 0,y,63,y
Next

;Модель куста травы
MGrass=CreateCube()
ScaleMesh MGrass,0.5,0.9,0.5
PositionMesh MGrass,0,1,0
EntityFX MGrass,16
TexGrass=CreateTexture(64,64,4)
EntityTexture MGrass,TexGrass
SetBuffer TextureBuffer(TexGrass)
Col= 0 Shl 24 Or 0 Shl 16 Or 0 Shl 8 Or 0 Shl 0
For x=0 To 63
For y=0 To 63
WritePixel x,y,col
Next
Next
For q=0 To 20
Color Rnd( 128 ),Rnd(255),Rnd(64)
Line 20+Rnd(20),60,5+Rnd(55),5+Rnd(30)
Next
HideEntity MGrass

;создаём тип кустов травы
Type Grass
Field Model
End Type

;создаём карту растительности
Dim GrassMap(256,256),GrassOnMap(256,256)
For i=0 To 256
For j=0 To 256
GrassMap(i,j)=1
Next
Next

;Гл.Цикл
SetBuffer BackBuffer()
While Not KeyHit(1)

;Таймер
If M<MilliSecs() Then
M=M+40
If M+40<MilliSecs() Then M=MilliSecs()+40
;игрок ходит
If KeyDown(203) Then TurnEntity cam,0,5,0
If KeyDown(205) Then TurnEntity cam,0,-5,0
If KeyDown(200) Then MoveEntity cam,0,0,0.3
If KeyDown( 208 ) Then MoveEntity cam,0,0,-0.2
EndIf

;управление травой с некой периодичностью
If GrassDelay<MilliSecs() Then
GrassDelay=MilliSecs()+100

;создание нужной травы
PlayerX=EntityX(cam)
PlayerZ=EntityZ(cam)
For ScanX=PlayerX-32 To PlayerX+32
For ScanZ=PlayerZ-32 To PlayerZ+32
If ScanX>=0 And ScanZ>=0 And ScanX<=256 And ScanZ<=256 Then
If GrassMap(ScanX,ScanZ)=1 And GrassOnMap(ScanX,ScanZ)=0 Then
grs.grass=New grass
grs\Model=CopyEntity(MGrass)
ScaleEntity grs\Model,Rnd(2),Rnd(1),Rnd(2)
PositionEntity grs\Model,ScanX,0,ScanZ
GrassOnMap(ScanX,ScanZ)=1
NGrass=NGrass+1
EndIf
EndIf
Next
Next
;удаление ненужной травы
For grs.grass=Each grass
If EntityDistance(grs\Model,cam)>32 Then
GrassOnMap(EntityX(grs\Model),EntityZ(grs\Model))= 0
NGrass=NGrass-1
FreeEntity grs\Model
Delete grs.grass
EndIf
Next

EndIf

;Подсчёт FPS
If MFPS<MilliSecs() Then
MFPS=MilliSecs()+1000
CurrentFPS=FPS
FPS=0
Else
FPS=FPS+1
EndIf

UpdateWorld()
RenderWorld()
Flip(0)
Color 255,255,255
Locate 10,10
Print "FPS: "+CurrentFPS
Print "Number of grass bushes: "+NGrass
Print "Triangles in frame: "+TrisRendered()
Wend

End[/blitz]

====================================

[blitz]
;Пример 2. "Синглсёрфейс".

;Инициализация графики
Graphics3D 1024,768,32,1

;Коллизия камера-уровень
Const Env=1;окружение
Const Unt=2;юнит
Collisions Unt,Env,2,1

;Камера. Она же игрок
cam=CreateCamera()
CameraRange Cam,0.5,257
PositionEntity Cam,128,2,128
EntityType Cam,Unt

;солнце
Sun=CreateLight(1)
TurnEntity Sun,45,45,0
LightColor Sun,250,200,150

;Поле, по которому мы буем ходить
Ground=CreatePlane()
TexGround=CreateTexture(64,64,1)
EntityTexture Ground,TexGround
SetBuffer TextureBuffer(TexGround)
For x=0 To 63
For y=0 To 63
Color Rnd(64),Rnd( 128 ),Rnd(32)
Plot x,y
Next
Next

;небо, ограничивающее наше поле
Sky=CreateSphere( 8 )
PositionEntity Sky,128,0,128
EntityType Sky,Env
ScaleEntity Sky,128,128,128
FlipMesh Sky
TexSky=CreateTexture(64,64,1)
EntityTexture Sky,TexSky
SetBuffer TextureBuffer(TexSky)
For y=0 To 63
Color y*3,y*4,128+y*2
Line 0,y,63,y
Next

;Модель куста травы
MGrass=CreateCube()
ScaleMesh MGrass,0.5,0.9,0.5
PositionMesh MGrass,0,1,0
EntityFX MGrass,16
HideEntity MGrass


;создаём карту растительности
Dim GrassMap(256,256),GrassClaster(16,16)
;создаём синглмешевую траву, разбитую на участки-кластеры
For x=0 To 16
For z=0 To 16
NGrass=NGrass+1
GrassClaster(x,z)=CreateMesh()
PositionEntity GrassClaster(x,z),x*16+8,0,z*16+8
EntityAutoFade GrassClaster(x,z),30,32
Next
Next
For x=0 To 256
For z=0 To 256
GrassMap(x,z)=1
If GrassMap(x,z)=1 Then
TempGrass=CopyMesh(MGrass)
ScaleMesh TempGrass,Rnd(2),Rnd(1),Rnd(2)
PositionMesh TempGrass,x,0,z
AddMesh TempGrass,GrassClaster(x/16,z/16)
FreeEntity TempGrass
EndIf
Next
Next
TexGrass=CreateTexture(64,64,4)
SetBuffer TextureBuffer(TexGrass)
Col= 0 Shl 24 Or 0 Shl 16 Or 0 Shl 8 Or 0 Shl 0
For x=0 To 63
For y=0 To 63
WritePixel x,y,col
Next
Next
For q=0 To 20
Color Rnd( 128 ),Rnd(255),Rnd(64)
Line 20+Rnd(20),60,5+Rnd(55),5+Rnd(30)
Next
For x=0 To 16
For z=0 To 16
PositionMesh GrassClaster(x,z),-x*16-8,0,-z*16-8
EntityTexture GrassClaster(x,z),TexGrass
Next
Next

;Гл.Цикл
SetBuffer BackBuffer()
While Not KeyHit(1)

;Таймер
If M<MilliSecs() Then
M=M+40
If M+40<MilliSecs() Then M=MilliSecs()+40
;игрок ходит
If KeyDown(203) Then TurnEntity cam,0,5,0
If KeyDown(205) Then TurnEntity cam,0,-5,0
If KeyDown(200) Then MoveEntity cam,0,0,0.3
If KeyDown( 208 ) Then MoveEntity cam,0,0,-0.2
EndIf

;Подсчёт FPS
If MFPS<MilliSecs() Then
MFPS=MilliSecs()+1000
CurrentFPS=FPS
FPS=0
Else
FPS=FPS+1
EndIf

UpdateWorld()
RenderWorld()
Flip(0)
Color 255,255,255
Locate 10,10
Print "FPS: "+CurrentFPS
Print "Number of grass bushes: "+NGrass
Print "Triangles in frame: "+TrisRendered()
Wend

End[/blitz]

Я сожалею, что мне пришлось выполнить ту небольшую и несложную работу, которую должен был выполнить автор темы, прежде, чем заводить сеё лишенное смысла и давно решенное обсуждение.
Надеюсь, приведенные примеры кому-то действительно помогут.
Удачи.

--Добавлено--
Первый пример содержит баг: заметьте, что часть создаваемых в первом цикле вокруг игрока кустов тут же удаляется во втором. Полагаю, вы сумеете исправить его самостоятельно. Впрочем, на ФПС баг влияет незначительно, т.к. тормозит в первом примере далеко не только логика.

[kortesfil]

хаха, делай траву как в WOW-е и не будут тебя мучать тормоза