Вот взялся писать небольшую программу для редактирования изображений и теперь хочется использовать как можно больше различного рода графических эффектов... Подскажите, пожалуйста, какие-нибудь алгоритмы (или хотя на сайт отправьте  )...
Но заранее не нужно предлагать следующие эффекты:
| Код |
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);
|
|