Вопрос по поводу регионов

[Malkovich]

Здрасте всем.

Задача: два шарика летают по экрану и ессно сталкиваются.
В GDI есть функция: BOOL RectInRegion(HRGN hrgn, const RECT* lprc)
С ее помощью я заставил летать и сталкиваться шарик и квадрат.

Вопрос такой: а есть ли функция что то типа
BOOL EllipsInRegion(HRGN hrgn_1, HRGN hrgn_2)

Или подскажите подходящее решение.
Всем спасибо за внимание.

[0nni]

Вот так вроде правильно считает.

Function CheckRgn(rgn1, rgn2 : HRGN) : boolean;
var
  ResRgn : HRGN;
  res : Integer;
begin
  ResRgn := CreateRectRgn(0, 0, 0, 0);
    res := CombineRgn(ResRgn, rgn1, rgn2, RGN_AND);
    Result := res in [SIMPLEREGION, COMPLEXREGION];
  DeleteObject(ResRgn);
end;

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

Что то вроде этого.

Result := sqrt( sqr(x1- x2) + sqr(y1- y2) ) < r1 + r2

[0nni]

Вот так вроде правильно считает.

Function CheckRgn(rgn1, rgn2 : HRGN) : boolean;
var
  ResRgn : HRGN;
  res : Integer;
begin
  ResRgn := CreateRectRgn(0, 0, 0, 0);
    res := CombineRgn(ResRgn, rgn1, rgn2, RGN_AND);
    Result := res in [SIMPLEREGION, COMPLEXREGION];
  DeleteObject(ResRgn);
end;

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

Что то вроде этого.

Result := sqrt( sqr(x1- x2) + sqr(y1- y2) ) < r1 + r2

[Malkovich]

Onni спасибо за ответ.