Текущий архив: 2003.03.17;
Скачать: CL | DM;

Вниз

Помогите с графикой. Как мне вычислить заполнение черного цвета.   Найти похожие ветки 

← →
sashok ©   (2003-03-04 18:45) [0]

Мне нужно вычислить процент заполнения черным в bmp (черно/белом)
Всмысле 100% это весь bmp (A4), а тот черно белый рисунок имеет x% черного. Помогите, кто может.

---

← →
MBo ©   (2003-03-04 19:59) [1]

Что, неужели трудно пикселы посчитать?


function CalcBlackPercent(bmp: TBitmap): Double;
var
i, j, k, Sum, wdt, wbytes, lastbits: Integer;
SLine: PByteArray;
b: byte;
begin
Sum := 0;
wdt := bmp.Width;
wbytes := ((wdt + 7) shr 3) - 2;
lastbits := 8 - wdt mod 8;
for i := 0 to bmp.Height - 1 do
begin
SLine := bmp.ScanLine[i];
for j := 0 to wbytes do
begin
b := Sline[j];
for k := 0 to 7 do
Sum := Sum + ((b shr k) and 1);
end;
b := Sline[wbytes + 1];
for k := lastbits to 7 do
Sum := Sum + ((b shr k) and 1);
end;
Result := (1 - Sum / (wdt * bmp.Height)) * 100;
end;



---

Страницы: 1 вся ветка

Текущий архив: 2003.03.17;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.012 c