| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Шум Перлина? [Delphi, Windows]
D-Man © (2005-04-18 00:51:00)Видел тут в форуме кто-то рекомендовал для генерации текстур использовать шум перлина. Я нашел несколько статей на эту тему, но все коды там С++. Не поможете ли разобраться как следующее реализуется на Паскале...
_inline float CMyNoise::Noise2D(int x, int y)
{
int n = x + y * 57;
n = (n
wiz (2005-04-26 14:20:00) [1]2 Zer0 :)))
Zer0[np] (2005-04-23 05:40:00) [2]// wiz, u rox man!
Zer0[np] (2005-04-23 05:35:00) [3]посмотри на code.rpro.ru
я там делал с помощю перлина фоны к ксониксу и шарики и фоны к беджевелед =)
вообще перлин в умелых руках может творить чудеса...
D-Man (2005-04-19 12:13:00) [4]А настоящий шум это что?
С помощью шума перлина я так понял можно делать случайные текстуры любого вида, в зависимости от параметров, вот и хочу поэкспериментировать
parovoZZ (2005-04-19 09:49:00) [5]Так это псевдо случайный сигнал или настоящий шум?
D-Man (2005-04-18 09:29:00) [6]Респект всем!
wiz (2005-04-18 03:14:00) [7]не так давно писал, может быть кому-то полезно (создание текстур на основе "шума Перлина"):
http://www.rust-game.com/tex_maker_src.zip(~12Kb, sources only)
http://www.rust-game.com/tex_maker_bin.zip(~170Kb, exe+sources)
всё сделано под Делфю, максимально простым способом (ничего лишнего)
XProger (2005-04-18 02:15:00) [8]
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;
Санёк (2005-04-18 01:22:00) [9]побитовый сдвиг влево на 13.
надеюсь, пояснять ^ и & не надо?
| |
