Книга программиста/Фильтрация изображений на PascalABC.Net: различия между версиями
Содержимое удалено Содержимое добавлено
Строка 358:
Pic1: Picture;
function ByteInterpolation(a, b, p: byte) := Round(a + (b - a) * p /
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));
|