Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.02.03;
Скачать: CL | DM;

Вниз

Градиент   Найти похожие ветки 

 
Quelle   (2007-03-04 17:26) [0]

Уважаемые мастера.
Скажите, как сделать
градиент через 3 цвета, как
в Photoshope (например, от белого к черному через синий).

Вот пример, но только через красный,
с остальными не получается.

procedure PhotoshopGradient;
var
d:integer;
x,y:integer;
begin
for y:=0 to 255 do
for x:=0 to 255 do
begin
  if (255-x-y) >=0 then
     d:=255-x-y;
  Form1.Canvas.Pixels[x,y]:=RGB(255-y,d,d);
end;
end;


 
GrayFace ©   (2007-03-04 18:39) [1]

Цвета смешиваются так:
RGB((R1*P1 + R2*P2 + R3*P3) div (P1+P2+P3), (G1*P1 + G2*P2 + G3*P3) div (P1+P2+P3), (B1*P1 + B2*P2 + B3*P3) div (P1+P2+P3));
где Ri, Gi, Bi - компоненты i-го цвета, Pi - веса.

Веса можно взять так:
P1:= 256*y div (Height-1)
P2:= 256*(Width-1 - x) div (Width-1)
P3:= 256*(Height-1 - y) div (Height-1)

Чтобы работало быстро, надо Width и Height сохранить в локальных переманных и не обращаться к Canvas.Pixels, а работать напрямую со ScanLine-ами. См. модуль QPix.pas в http://www.grayface.nm.ru/PSPak.rar (не мой, но я к нему тоже приложил руку). Есть статья от Mbo по этому поводу, поищи слова "Быстрый доступ к пиксел".



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

Текущий архив: 2008.02.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.02 c
2-1200240167
Steep
2008-01-13 19:02
2008.02.03
TextFile, String - Delete


15-1198599946
Kerk
2007-12-25 19:25
2008.02.03
Линуксоиды маст дай :)))


1-1191152330
Farel
2007-09-30 15:38
2008.02.03
Отправка писем с помощью fastnet


2-1199814308
fics
2008-01-08 20:45
2008.02.03
Рамочка вокруг компонетов, как её убрать?


2-1199588278
Артем
2008-01-06 05:57
2008.02.03
IStorage и WebBrowser