![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Огонь [D5, Win95/98, WinME, Win2k, WinXP]
HellTrooper © (2002-04-02 16:41:00)Есть ли какие нибудь алгоритмы чтобы сделать эффект огня?
JibSkeart (2002-04-05 15:51:00) [1]Только позже через два дня (дома надо появится)
сорри что не в тему ...
Yaro (2002-04-05 02:02:00) [2]И мне!!!!!! Дайте огоньку!!!!!
konusov (2002-04-05 00:54:00) [3]И мне -:)
Mirovodin (2002-04-05 00:04:00) [4]Берите готовый компонент
http://delphigfx.mastak.ru/libs.htm
Mastak (2002-04-04 20:42:00) [5]И мне -:)
HellTrooper (2002-04-03 11:09:00) [6]Кинь плз
JibSkeart (2002-04-02 17:51:00) [7]а вообше у мя есть исходники на паскале
мох демок тама и огонь есть, если интерестно могу кинуть
JibSkeart (2002-04-02 17:50:00) [8]Конечно !!!
и даже несколько но я знаю только один вот такой :
есть массив из NxM элементов
вокруг Х ишются точки и суммируется элементы
и находится средне арифметическое
ООО
ОХО
ООО
Var
mass:array[1..n,1..m] of byte;
a,b:Integer;
for i:=1 to n do
for j:=1 to m do
begin
a:=mass[j,i]+mass[j,i+1]+mass[j,i-1]+mass[j-1,i-1]+
mass[j-1,i+1]+mass[j-1,i-1]+
mass[j+1,i+1]+mass[j+1,i-1];
b:=Round(a/8);
mass[j,i]:=b;
end
вот помойму и все ...