Шум Перлина?

← →
D-Man (2005-04-18 00:51) [0]

Видел тут в форуме кто-то рекомендовал для генерации текстур использовать шум перлина. Я нашел несколько статей на эту тему, но все коды там С++. Не поможете ли разобраться как следующее реализуется на Паскале...

_inline float CMyNoise::Noise2D(int x, int y)
{
int n = x + y * 57;
n = (n<<13) ^ n;
return ( 1.0f - ( (n * (n * n * 15731 + 789221) + 1376312589) & 0x7fffffff) /
1073741824.0f);
}

в частности в тупик меня поставила строка
n = (n<<13) ^ n;
Что сие "<<" означает?

← →
Санёк (2005-04-18 01:22) [1]

побитовый сдвиг влево на 13.
надеюсь, пояснять ^ и & не надо?

← →
XProger © (2005-04-18 02:15) [2]

function TMyNoise.Noise2D(x, y: integer): single; var n : integer; begin n := x + y * 57; n := (n shl 13) xor n; Result := (1 - ((n * (n * n * 15731 + 789221) + 1376312589) and $7fffffff) / 1073741824); end;

← →
wiz (2005-04-18 03:14) [3]

не так давно писал, может быть кому-то полезно (создание текстур на основе "шума Перлина"):

http://www.rust-game.com/tex_maker_src.zip (~12Kb, sources only)
http://www.rust-game.com/tex_maker_bin.zip (~170Kb, exe+sources)

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

← →
D-Man (2005-04-18 09:29) [4]

Респект всем!

← →
parovoZZ © (2005-04-19 09:49) [5]

Так это псевдо случайный сигнал или настоящий шум?

← →
D-Man (2005-04-19 12:13) [6]

А настоящий шум это что?
С помощью шума перлина я так понял можно делать случайные текстуры любого вида, в зависимости от параметров, вот и хочу поэкспериментировать

← →
Zer0[np] (2005-04-23 05:35) [7]

посмотри на code.rpro.ru
я там делал с помощю перлина фоны к ксониксу и шарики и фоны к беджевелед =)

вообще перлин в умелых руках может творить чудеса...

← →
Zer0[np] (2005-04-23 05:40) [8]

// wiz, u rox man!

← →
wiz (2005-04-26 14:20) [9]

2 Zer0 :)))

Шум Перлина? Найти похожие ветки