Книга программиста/Фильтрация изображений на PascalABC.Net: различия между версиями

Содержимое удалено Содержимое добавлено
Строка 358:
Pic1: Picture;
 
function ByteInterpolation(a, b, p: byte) := Round(a + (b - a) * p / byte100);
begin
var d := Round(Abs(a - b) * (p / 100));
if a > b then Result := a - d else Result := a + d;
end;
 
function InterpolateColor(с1, с2: Color; p: byte):= ARGB(ByteInterpolation(с1.A, с2.A, p), ByteInterpolation(с1.R, с2.R, p), ByteInterpolation(с1.G, с2.G, p), ByteInterpolation(с1.B, с2.B, p));