Книга программиста/Фильтрация изображений на PascalABC.Net: различия между версиями
Содержимое удалено Содержимое добавлено
Строка 32:
var
Pic1: Picture;
V: real := 128 * N / 100;
procedure TruncColor(var a: integer);
Строка 50 ⟶ 51 :
begin
var c := Pic1.GetPixel(i, j);
var
var
var
TruncColor(r);
|