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

procedure TMainForm.Onemore1Click(Sender: TObject);

begin

OneMore;

end;

procedure TMainForm.Mandel;

var

Z, Z0, C: TComplex;

i, x, y: word;

begin

Z0 := TComplex.Create(0,0);

Z := TComplex.Create(0,0);

C := TComplex.Create(0,0);

for y := yStart to yEnd do begin

for x := xStart to xEnd do begin

C.Assign(x,y);

Z.Mul(Z0);

Z.Plus(C);

if (Z.Re < 2) and (Z.Im < 2) then

Image.Canvas.Pixels[Z.Re,Z.Im] := clBlue;

Z.Assign(0,0);

end; { for x }

end; { for y }

C.Free;

Z.Free;

Z0.Free;

end;

procedure TMainForm.N8Click(Sender: TObject);

begin

Mandel;