VPF::Графические эффекты - Форум программистов

Illusion Dolphin

Дата 28.2.2005, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 13
Всего: 63

Вот взялся писать небольшую программу для редактирования изображений и теперь хочется использовать как можно больше различного рода графических эффектов... Подскажите, пожалуйста, какие-нибудь алгоритмы (или хотя на сайт отправьте smile

)...
Но заранее не нужно предлагать следующие эффекты:

Код


procedure Inverse(S, D: TBitmap); 
procedure GrayScaleImage(var S,D : tbitmap; n : integer); 
function Sepia(S,D : TBitmap; depth: Integer): Boolean; 
procedure Dither(S, D: TBitmap); 
procedure ChangeBrightness(S,D : TBitmap; Brightness: Integer);
procedure WaveSin(S, D: TBitmap; Frequency, Length:  Integer; Hor: Boolean; BackColor: TColor);
procedure PixelsEffect(S, D: TBitmap; Hor, Ver: Word);
procedure Sharpen(S, D: TBitmap; alpha: Single);
procedure Blocks(S, D: TBitmap; Hor, Ver, MaxOffset: Integer; BackColor: TColor);
procedure Gamma(S, D: TBitmap; L: Double);
function SetRGBChannelValue(S, D: TBitmap; Red, Green, Blue: Integer): Boolean;
procedure Disorder(S, D: TBitmap; Hor, Ver: Integer; BackColor: TColor);
procedure Contrast(S, D: TBitmap; Value: Integer; Local: Boolean);
Procedure Colorize(S, D : TBitmap; Luma: Cardinal);

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »