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

end; { Case }

Image.Canvas.Pixels[x,y] := clBlue;

end; { for i }

end;

procedure TMainForm.N7Click(Sender: TObject);

begin

AfinConvert;

end;

procedure TMainForm.OneMore;

var

dx, dy, Rand, Kx, Ky: word;

A, B, C, D, E, F: real;

x, y, K: real;

i: longint;

begin

Kx := 4; Ky := 4;

dx := (xEnd-xStart+1) div Kx; xEnd := xStart +Kx*dx - 1;

dy := (yEnd-yStart+1) div Ky; yEnd := yStart +Ky*dy - 1;

x := xStart; y := yStart;

for i := 1 to 100000 do begin

Rand := Random(Kx*Ky);

if (Rand = 0) or (Rand = 3) or (Rand = 12) or (Rand = 15) then

Continue;

K := (Rand - Kx*(Rand div Kx)) *dx;

x := K + xStart + 1 + (x-xStart+1) / Kx;

K := (Rand div Kx)*dy;

y := K + yStart + 1 + (y-yStart+1) / Ky;

Image.Canvas.Pixels[Round(x),Round(y)] := clBlue;

end; { for i }