Книга программиста/Фильтрация изображений на PascalABC.Net: различия между версиями
Содержимое удалено Содержимое добавлено
Нет описания правки |
|||
Строка 107:
Pic1: Picture;
function ByteInterpolation(a, b, p: byte) := Round(a + (b - a) * p /
function InterpolateColor(с1, с2: Color; pA, pR, pG, pB: byte):=ARGB(ByteInterpolation(с1.A, с2.A, pA), ByteInterpolation(с1.R, с2.R, pR), ByteInterpolation(с1.G, с2.G, pG), ByteInterpolation(с1.B, с2.B, pB));
|