Точки в Image

[Margo_legion058]

Всем добрый день! Ребят,может кто поможет с кодом?! У меня точки на компоненте Image задаются графически (кликаем мышкой по компоненту в любом месте) и случайно. Графически все хорошо работает,а вот при случайном точки накладываются друг на друга. А должно быть так: в edit9 вводим количество центров скопления точек (сами центры воображаемые,они точкой не обозначаются),а в edit10 вводим число точек вокруг этих центров. И вот при щелчке на кнопку Button8 эти точки должны появляться на Image. То есть всего точек должно быть edit9*edit10 штук. А они у меня наслаиваются одна на другую.
Вот мой код:

procedure TForm1.Button8Click(Sender: TObject);
var
IW,IH,i,j,size:integer;
cx,cy:extended;
Delta:integer;
begin
size:=strtoint(edit10.text);
IW:=Image1.Width;
IH:=Image1.Height;
delta:=50;
for i:=1 to StrToInt(Edit9.Text) do begin
cx:=(random*(IW-2*delta));
cy:=(random*(IH-2*delta));
size:=random(8)+3;
for j:=1 to size do begin
Xp:=round(random*2*delta-delta);
Yp:=round(random*2*delta-delta);
Image1MouseDown(TObject (Image1), mbLeft,
  [], Round(Xp), Round(Yp));
Image1Click(TObject (Image1));

end;
end;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Xp:=X/map.Width;
 Yp:=(map.Height-Y)/map.Height;

  StatusBar1.Panels.Items[0].Text:=
  'X1: '+floattostrf(Xp,ffFixed,4,4);

  StatusBar1.Panels.Items[1].Text:=
  'X2: '+floattostrf(Yp,ffFixed,4,4);

  if (ssleft in shift)  then setpoint(Xp,Yp);
end;

[xrob]

чтобы сделать красивую систему частиц, недостаточно просто рамдомно натыкать точек.
вам нужно рандомные координаты обработать так,
чтобы новый центр не появлялся рядом с существующими.

самый тупой способ сделать это - генерировать рандомные координаты, пока не появятся подходящие.
очень прост в реализации, но чем больше центров будет создано - тем больше вероятность получить бесконечный цикл...


а еще можно сделать так:
создать массив всех координат области (если единичный отрезок 1рх, то это будет array[1..Width*Height] of TPoint)
функция Random будет генерировать не координаты, а индексы этого массива,
а при создании очередного центра - удалять из массива координаты, где не должен появиться новый центр.
по-моему это наилучший способ.

такой подход подойдет только если в перспективе не понадобится анимировать эти центры...

я советую вам копать в сторону, как ни странно, проверки столкновений.
представьте, что области - это бильярдные шары, которые не могут пересекаться
и решайте задачу исходя из этого.

с маленькими точками точно так же.

[Человек_Борща]

вам нужно рандомные координаты обработать так,
чтобы новый центр не появлялся рядом с существующими.

Так пусть же у центра будет радиус...

Пускай у нас есть квадрат 100x100. Квадратом рулит некий менеджер, он же рисует центры. Чтобы было все более эпично пускай радиус будет случайным но не более 35% доступной области для действий.

И так еть этот квадрат. В нем в случайном месте забирается место под точку N с радиусом X. Далее не хитрое дело вычесть из площади квадрата, площадь занятую окружностью плюс расстояние между окружностями. но для пущего аффекта сделал бы допущение некоторого % вхождения 1 окружности в пределы другой.

[s-andriano]

Сообщение от xrob

чтобы сделать красивую систему частиц, недостаточно просто рамдомно натыкать точек.

Это точно.

а еще можно сделать так:
создать массив всех координат области (если единичный отрезок 1рх, то это будет array[1..Width*Height] of TPoint)
функция Random будет генерировать не координаты, а индексы этого массива,
а при создании очередного центра - удалять из массива координаты, где не должен появиться новый центр.

Удалять из массива - слишком дорогая операция. Вполне вероятно, что время, затраченное этим алгоритмом, окажется намного больше времени исходного алгоритма, от неоптимальности которого мы хотим избавиться.
В общем случае сложность O(N^2).

Лучше перемешать массив координат, а потом "закрасить" некоторую его часть, начиная с начала. Сложность O(N).

[xrob]

s-andriano, окей, можно тогда разбить область на одинаковые элементы,
и использовать в массиве их - массив будет меньше...