Веселые секреты

[Diplomat]

2 РАХ:
Очень симпатичный пример.
И если о пользе введения повртексной генерации ландшафта можно было бы еще в принципе спорить, то вертексколоры вместо текстуры рулят очевидно и без вопросов. Респект адназначна.

Заметка: стиль проганья классный, академичен до предела. Например, используешь "Local"(!) при обьявлении переменных в теле ф-и(!!), пишешь идентификаторы типа переменной "%"(!!), да еще и используешь их повторно... Где учился? /не покажусь нахальным?/

[pax]

Я самоучка , просто много примеров переглядел за долгое время пока пишу игру

Правда незнаю когда допишу (Bombers3D).

Да и спасибо за приятный ответ.

diplomat
у нас всех такой код
может новички пишут по другому
но тот кто прогает больше года приходит к такому стилю примерно

только не говори что ты скромный и пушистый )

[pax]

Я игрой (Bombers3D) занялся серьезно только этим летом, хотя задумал написать ее еще полтора года назад когда у меня Blitz появился

А пока вот усовершенствованная функция-генератор террейна:

Function GenerateTerrain%(SizeX#,SizeZ#,MaxHeight#,HeightMapFile$,DetailX%=0,DetailZ%=0,VertexColorsMap$="")
;#Region Собственно генератор террейна
	Local HeightMapImage%=LoadImage(HeightMapFile$)
	DetailX%=Abs(DetailX%): DetailZ%=Abs(DetailZ%)
;Автоматический выбор детализации используя HeightMap
	If DetailX%=0 Then
 DetailX%=ImageWidth(HeightMapImage%)
	EndIf
	If DetailZ%=0 Then
 DetailZ%=ImageHeight(HeightMapImage%)
	EndIf
;Это чтобы упростить нахождение высоты вертекса	при несоответствии HeightMap'a
;указанной детализации
	If DetailX%<>ImageWidth(HeightMapImage%) Or DetailZ%<>ImageHeight(HeightMapImage%) Then
 ResizeImage(HeightMapImage%,DetailX,DetailZ)	
	EndIf
	
	Local StepX#=SizeX#/Float#(DetailX-1)
	Local StepZ#=SizeZ#/Float#(DetailZ-1)
	Local Mesh%=CreateMesh()
	Local Surface%=CreateSurface(Mesh)
	Local X#,Z#,H#,K#=3*255
	Local I#,J#
	
;Расположение вертексов
	SetBuffer ImageBuffer(HeightMapImage%)
	For I=0 To DetailZ-1
 Z=SizeZ#*0.5-I*StepZ#
 For J=0 To DetailX-1
 	GetColor(J,I)
 	H#=(ColorRed()+ColorGreen()+ColorBlue())/K ;H = 0 .. 1
 	X=-SizeX#*0.5+J*StepX#
 	AddVertex(Surface,X,MaxHeight#*H#,Z,J/Float#(DetailX-1),I/Float#(DetailZ-1))
 Next
	Next
	SetBuffer BackBuffer()
	FreeImage(HeightMapImage%)
	
;Создание поверхности
	For I=0 To DetailZ-2
 For J=0 To DetailX-2
 	AddTriangle (Surface%,DetailX*I+J, DetailX*I+J+1, J+1+DetailX*(I+1))
 	AddTriangle (Surface%,DetailX*I+J, J+1+DetailX*(I+1), J+DetailX*(I+1))
 Next
	Next
;#End Region

;#Region Раскрашивание вертексов
	If VertexColorsMap$<>"" Then
 Local ColorImage%
 EntityFX Mesh%,2;Использование режима 'use vertex colors instead of brush color'
 ColorImage%=LoadImage(VertexColorsMap$)
	;Изменение размера ColorMap при несовпадении с детализацией
 If DetailX%<>ImageWidth(ColorImage%) Or DetailZ%<>ImageHeight(ColorImage%) Then
 	ResizeImage(ColorImage%,DetailX,DetailZ);Это чтобы упростить нахождение цвета вертекса	
 EndIf
 SetBuffer ImageBuffer(ColorImage%)
 For I=0 To DetailZ-1
 	For J=0 To DetailX-1
  GetColor(J,I)
  VertexColor(Surface%,DetailX*I+J,ColorRed(),ColorGreen(),ColorBlue())
 	Next
 Next
 SetBuffer BackBuffer()
 FreeImage(ColorImage%)
	EndIf
;#End Region
	UpdateNormals(Mesh%)
	Return Mesh%	
End Function

Решил что так будет универсальнее...

[ABTOMAT]

А если вот уж прям приспичило делать с альфлй - как от туннельного эффекта избавиться?

[HolyDel]

сортировать сюрфейс, немало либ для етих целей сделано.

[piro]

Люди, у меня первый прпимер выдаёт 70-80,а второй.... 450-500. Так что огромное пасибо дипломату.

[HolyDel]

я вот думаю каким макаром он может выдавать больше 50 фпс, если там стоит иммитация игровой логики в 20 мс?
Дипломату огромный респект за красиво отрендеренные местности, надо ету технику прихватизировать.

[ABTOMAT]

Ух ты ж, сколько лет прошло!
Я эту тему за неделю второй раз ищу, а она, оказывается "Весёлые секреты" называется! Случайно забрёл сегодня.
Люди! Называйте темы так, чтоб название отражало её суть!
И, кстати, пример из первого поста актуален по сей день. Кто из блицеров не видел - советую ознакомиться.

[Nex]

А как так "симпатично" раскрашивать ландшафт? Наложением текстуры у меня так не получалось..

[ARA]

Вероятно автор клал на нолевой слой карту цвета(растянутую на весь терайн), а на первый слой детайл текстуру с Мультиплай 2)

[ABTOMAT]

Если у кого-то остался аттач из первого поста, выложите, пожалуйста.

[mauNgerS]

Вот.

[LLI.T.A.L.K.E.R.]

Кратко, в чём суть (способ эффекта)?
AddMesh?

А ну да, имеются поклетчатые mesh-и (сетки 8х8 ), к которым addmesh близкие деревья.

Пробовал как то ещё с >1000 текстурированными ящиками.b3d позиции x=0 to 100 а y=rand(-3,3)
Так вот при AddMesh хоть ты видишь один уголочек меша - он программно весь рисуется. А если отдельными все Entity - то они авто-Hide-тся.
Так что по разному случаи бывают...

[H@NON]

Вот делал что-то подобное. Тут локация разбивается по сетке на сектора куда уже добавляется меш. Также есть возможность в дальнейшем обращаться к этому мешу(который уже добавился в сектор), позиционировать его, поворачивать, с текстурами на моделях проблем вроде не должно быть. Забирайте кому нужно.