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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
| procedure TForm1.N2Click(Sender: TObject); //Добавляет картинку и вносит в массив координаты точек кривой 0 - черный цвет, 1 - белый цвет
var Fname:string; Bitmap: TBitmap; i,j:Integer; f:file;
begin
if OD1.Execute then
begin
FName := OD1.FileName;
begin
Bitmap:=TBitmap.Create;
Bitmap.LoadfromFile(Fname);
With Image.Picture.bitmap do
Begin
Width:=Bitmap.Width;
height:=Bitmap.Height;
Palette:=Bitmap.Palette;
Canvas.draw(0,0,bitmap);
Refresh;
end;
end;
end;
for i:=0 to 473 do
begin
for j:=0 to 289 do
begin
if Form1.Image.Picture.Bitmap.Canvas.Pixels[i,j]=clblack then
begin
Arr[i,j]:=0;
end
else
begin
Arr[i,j]:=1;
end;
end;
end;
end;
procedure SearchNew1(a,b:integer);// поиск пересечений окружности с кривой
var i,r,a11,b11:Integer; exit,exit1:Boolean;
begin
r:=16;
a11:=a;
b11:=b;
exit1:=false;
for a:=0 to 473 do
begin
for b:=0 to 289 do
begin
if arr[a,b]=0 then //проверяем что точка принадлежит кривой
begin
if (Sqr(a-a11)+sqr(b-b11))=256 then //проверяем что точка принадлежит окружности радиуса 16
begin
ass:=a;
ass2:=b;
exit1:=False;
exit:=False;
end;
end;
end;
end;
end;
procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Form1.Image.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
Form1.Image.Picture.Bitmap.Canvas.Ellipse(x-16,y-16,x+16,y+16);
SearchNew1(x,y);
Form1.Image.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
Form1.Image.Picture.Bitmap.Canvas.Ellipse(ass-16,ass2-16,ass+16,ass2+16);
SearchNew1(ass,ass2);
Form1.Image.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
Form1.Image.Picture.Bitmap.Canvas.Ellipse(ass-16,ass2-16,ass+16,ass2+16);
SearchNew1(ass,ass2);
Form1.Image.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
Form1.Image.Picture.Bitmap.Canvas.Ellipse(ass-16,ass2-16,ass+16,ass2+16);
SearchNew1(ass,ass2);
Form1.Image.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
Form1.Image.Picture.Bitmap.Canvas.Ellipse(ass-16,ass2-16,ass+16,ass2+16);
SearchNew1(ass,ass2);
Form1.Image.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
Form1.Image.Picture.Bitmap.Canvas.Ellipse(ass-16,ass2-16,ass+16,ass2+16);
end; |
(
