1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
Begin
For j:=1 to Image1.Height do
Begin
For i:=1 to Image1.Width do
Begin
If Image1.Canvas.Pixels[i,j]=RGB(0,0,0) then
Begin
For y:=1 to Image1.Height do
Begin
For x:=1 to Image1.Width do
Begin
If Image1.Canvas.Pixels[x,y]=RGB(0,0,0) then
Begin
r:=sqrt(sqr(x-i)+sqr(y-j));
rayons[k]:=r;
k:=k+1;
End;
End;
End;
End;
End;
End;
For k:=1 to 360000 do
Begin
j:=1;
For i:=1 to 360000 do
Begin
If (rayons[i]<rayons[k]-5) and (rayons[i]>rayons[k]+5) then j:=j+1;
If j>100 then rayonsE[k]:=rayons[k];
End;
End;
For j:=1 to Image1.Height do
Begin
For i:=1 to Image1.Width do
Begin
If Image1.Canvas.Pixels[i,j]=RGB(0,0,0) then
Begin
For y:=1 to Image1.Height do
Begin
For x:=1 to Image1.Width do
Begin
If Image1.Canvas.Pixels[x,y]=RGB(0,0,0) then
Begin
r:=sqrt(sqr(x-i)+sqr(y-j));
For k:=1 to 360000 do
If (r>rayonsE[k]-5) and (r<rayonsE[k]+5) and (r>0) then Image1.Canvas.Pixels[round((x+i)/2),round((y+j)/2)]:=RGB(0,0,0);
End;
End;
End;
End;
End;
End;
End; |
Partager