38 lines
842 B
ObjectPascal
38 lines
842 B
ObjectPascal
// Градиентная заливка. Выполнена интерполяцией по каждой составляющей цвета.
|
|
uses GraphABC;
|
|
|
|
var i,j: integer;
|
|
r,g,b:array[0..2] of integer;
|
|
|
|
function LinearInterp(a,b,fa,fb,x: integer): integer;
|
|
var t: real;
|
|
begin
|
|
t:=(x-a)/(b-a);
|
|
LinearInterp:=round(fa*(1-t)+fb*t);
|
|
end;
|
|
|
|
begin
|
|
SetWindowCaption('Градиент');
|
|
SetWindowSize(256*3,400);
|
|
|
|
r[0]:=255;
|
|
g[0]:=0;
|
|
b[0]:=255;
|
|
|
|
r[1]:=255;
|
|
g[1]:=255;
|
|
b[1]:=0;
|
|
|
|
r[2]:=0;
|
|
g[2]:=255;
|
|
b[2]:=255;
|
|
|
|
for i:=0 to 255 do
|
|
for j:=0 to 2 do begin
|
|
SetPenColor(RGB(LinearInterp(0,255,r[j],r[(j+1) mod 3],i),
|
|
LinearInterp(0,255,g[j],g[(j+1) mod 3],i),
|
|
LinearInterp(0,255,b[j],b[(j+1) mod 3],i)));
|
|
Line(i+255*j,0,i+255*j,WindowHeight-1);
|
|
end;
|
|
end.
|