Формула Градиента
Для градиента использую формулу, любезно предоставленную Odd
Procedure Gradient(h_i, w_i : Integer);
Var
i : integer;
begin
for i:= h_i downto 0 do
begin
SetColor((128 * i) / h_i, (128 * i) / h_i, (128 * i) / h_i);
DrawLine(0,h_i-i,w_i,h_i-i);
end;
end;
Однако на эмуляторе градиент получается гладкий, а на теле - явно проявляются полосы. В чем дело?
|