Форум: "Media";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

Как создать эффект шума на форме?   Найти похожие ветки 

← →
Intell ©   (2004-01-18 11:02) [0]

Как создать эффект шума на форме (Например: Когда в игре Silent Hill 2 тебя ранили, то там картинка жизней помигивает и на ней есть "шум")? Желательно кодом, или, если есть, компонентом.

---

← →
Dmyk   (2004-01-18 12:42) [1]

Попробуй добавлять к каждой точке случайное число. Чё-то вроде этого...
var
 WrkBitmap: TBitmap;
 TmpColor: TColor;
 RNmb, I, J: Integer;
begin
 for j := 0 to WrkBitmap.Height do
 for i := 0 to WrkBitmap.Width do begin
 RNmb := Random(30) - 15;
 TmpColor := WrkBitmap.Pixels[i, j]; //хех
 WrkBitmap.Pixels[i, j] := RGB(GetRValue(TmpColor) + RNmb,
   GetGValue(TmpColor) + RNmb, GetBValue(TmpColor) + RNmb);
 end;
end;
Примерно вот так...

---

← →
Intell ©   (2004-01-18 14:29) [2]

Куда его желательно применить? На таймер?

---

← →
Intell ©   (2004-01-18 19:25) [3]

Никак не могу применить код. Ошибка в слове pixels.

---

← →
Mihey ©   (2004-01-18 19:33) [4]

2 Intell:

А своих знаний не хватает, чтобы вспомнить, что Pixels находится у TBitmap.Canvas? К тому же, если всё и получится, то тормоза тебе обеспечены.

Добавление шума тут:
http://delphibase.endimus.ru/?action=viewtopic&topic=mediaimg

---

Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.187 c