Книга программиста/Фильтрация изображений на PascalABC.Net: различия между версиями
Содержимое удалено Содержимое добавлено
Строка 329:
=Сепия=
[[File:Сепия.png|900px|frameless]]
{{Hider|
title = Комментарии к коду |
hidden = 1 |
title-style = text-align: center; |
content-style = text-align: left; |
content =
# '''R''' - фактор интерполяции красной компоненты между изначальным цветом и серым
# '''G''' - фактор интерполяции зеленой компоненты между изначальным цветом и серым
# '''B''' - фактор интерполяции синей компоненты между изначальным цветом и серым
# '''Intensivity''' - интенсивность цвета
}}
<source lang="pascal">
uses GraphABC;
Строка 342 ⟶ 353 :
function ByteInterpolation(a, b, p: byte) := Round(a + (b - a) * p / 100);
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));
begin
| |||