Реферат: Программная система обработки и анализа изображений

Color := Color*100;

Image.Canvas.Pixels[Round(300-x+z), Round(350-y)] := clGreen;

end; { for k }

end;

procedure TMainForm.N9Click(Sender: TObject);

begin

Paporotnik;

end;

function TMainForm.GetDensity: string;

var

i, j: byte;

LenX, LenY, x, y, xOld, yOld, dx, dy: word;

BlackCnt, TotCnt: word;

P: real; { Плотность пикселов в квадранте }

S, S1: string;

begin

{ Определяем плотность в 9 квадрантах }

{ выделенного диапазона }

S := '';

LenX := xEnd-xStart+1;

LenY := yEnd-yStart+1;

xOld := xStart; yOld := yStart;

for j := 1 to 3 do begin

if j = 2 then dy := LenY-2*Round(LenY/3)

else dy := Round(LenY/3);

for i := 1 to 3 do begin

if i = 2 then dx := LenX-2*Round(LenX/3)

else dx := Round(LenX/3);

{------------------------------------------------------------------}