Попиксельная генерация мира

[Nikk[UA]]

Здраствуйте. Я пишу игру на подобие терарии. Перед мною стоит такая проблема: как сгенерировать красивый мир? Пишу на delphi 7. Для рендера использую opengl.

Так вот, нужно сгенерировать мир в двухмерном массиве.

IDWorld : Array [0..10000-1, 0..1000-1] of GLUbyte;

где 0..10000-1 это 10000 пикселей по x, а 0..1000-1 это 1000 по y.

при генерации ланшафт должен быть красивым, тоесть с горами, холмами и деревьями. Подскажите в какой способ это лучше сделать?

[s-andriano]

Представления о красоте пока не формализованы, и вряд ли когда эта задача будет решена в полном объеме.
Для генерации ландшафта приемлемые результаты дает perlin noise. Алгоритм достаточно прости и содержит набор настроечных коэффициентов, при помощи которых можно добиться желаемого результата.
Ну а деревья, я так понимаю, нужно генерить отдельно и расставлять по уже имеющемуся ландшафту.

[Nikk[UA]]

Перлин - хорошая идея. спс

Вот нашел код, но он не для делфи, а для c++ или c#, короче хрен его знает. Если не сложно, переведите на старую добрую делфи

function IntNoise(32-bit integer: x)

x = (x<<13) ^ x;
return ( 1.0 - ( (x * (x * x * 15731 + 789221) + 1376312589) & 7fffffff) / 1073741824.0);

end IntNoise function

[s-andriano]

А зачем Вам именно этот код.
Судя по всему, это одна из реализаций ДПСЧ.
Можно воспользоваться любой другой. Хоть стандартный random.

[Utkin]

Вот нашел код, но он не для делфи, а для c++ или c#, короче хрен его знает

На c# нет функций. Возможно это бейсик...

[Nikk[UA]]

С random не достичь такого ефекта реальности ланшафта как с perlin noise. Жду либо альтернативы либо перевода данного кода.

Уткин, не думаю что это бейсик! Мена интересует что такое

x<<13

и

7fffffff

Остальное я сам смогу перевести.

[BDA]

& 7fffffff

Это маска. 31 единичный бит. Т.е. такой код отбросит бит знака от числа. Десятичное представление: 2147483647.

x<<13

Битовый сдвиг. На дельфи: x shl 13.

Попробуйте:

function IntNoise(x: integer):integer;
begin	
x := (x shl 13)  xor x;
result := (1.0 - ( (x * (x * x * 15731 + 789221) + 1376312589) and 2147483647) / 1073741824.0); 
end;

[s-andriano]

Сообщение от Nikk[UA]

С random не достичь такого ефекта реальности ланшафта как с perlin noise.

Аргументировать можете?

PS. Сравнивать perlin noise и random - примерно то же самое, что сравнивать здание с кирпичом.

[Nikk[UA]]

Могу. С рандомом получается очень кривая и ломаная линия которая напоминает скорее кардиограмму. Плюс в придачю рандом какой то глюканутый. Я задал чила от 0 до 10, а оно постоянно 1 или 2 выбирает.

А с перлином я достиг более мение нормального ланшафта. Хотя и у перлина целый вагон недостатков.

[s-andriano]

Сообщение от Nikk[UA]

Могу. С рандомом получается очень кривая и ломаная линия которая напоминает скорее кардиограмму. Плюс в придачю рандом какой то глюканутый. Я задал чила от 0 до 10, а оно постоянно 1 или 2 выбирает.

А с перлином я достиг более мение нормального ланшафта. Хотя и у перлина целый вагон недостатков.

Еще раз:
random и perlin - алгоритмы разного уровня, и сравнивать их между собой нельзя.
Ваше утверждение напоминает:
Когда я строю дом, он выходит хорошо, а когда из кирпича - плохо.
Качество ГПСЧ, конечно, имеет значение (и не только в алгоритме Перлина), но при вменяемом ГПСЧ результат (в смысле Pelin noise) будет примерно одинаков.
Проверено.
Вы еще скажите, что Перлин хорошо получается на Си и плохо - на Делфи.