Принадлежность точки клетке(изометрия)

[DimaTs]

имеется поле из клеток 20х20, оно отрисовано на Image, координаты(угла картинки которая является клеткой) хранятся в массиве Field типа AField

type
TField = record
x: integer;
y: integer;
end;

AField = array[0..20,0..20] of TField;

Массив заполнается координатами в соответствии с моей картинкой

procedure TForm1.FieldFill(var Field: AField; BX, BY: integer);
var
I, J, TX, TY: integer;
begin
TX := 0;
TY := 0;

for I:= 0 to 20 do
begin
Field[I,0].x := 0;
Field[I,0].y := 0;
Field[0,I].x := 0;
Field[0,I].y := 0;
end;

for I := 1 to 20 do
begin
for J := 1 to 20 do
begin
if J=1 then begin
Field[I,J].x := TX + Field[I,J-1].x ;
Field[I,J].y := TY + Field[I,J-1].y ;
end
else begin
Field[I,J].x := Field[I,J-1].x + 26;
Field[I,J].y := Field[I,J-1].y + 13;
end;
end;
TX := TX - 26;
TY := TY + 13;
end;

end;

BX, BY - это просто смещение относительно Image

Как определить, какой из клеток(нужны индексы массива) принадлежит точка, полученная по щелчку мыши?

[Beermonza]

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

[DimaTs]

я написал

PosX := (X-20) div 54;
PosY := (Y-400) div 27;

20 и 400 это смещение построения сетки

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

[Beermonza]

Спрячь счет клетки в двойное условие, которое пропускает мышь только когда ее координаты находятся внутри области карты (область Image на форме).

[DimaTs]

ну это то понятно)
я про то что самая левая клетка он показывает [0,0] а самая правая [19,0] хотя должен бы показать [19,19] ведь ряд то последний)
я не могу придумать как развернуть систему координат так как она у сетки расположена

[Beermonza]

Посмотрел исходник, ...имеется в виду совсем изометрия и в координатах тоже. Не знаю на сколько это нужно, но может устроит и такой вариант: http://www.programmersforum.ru/showp...38&postcount=6 ?

[DimaTs]

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

[Beermonza]

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

[DimaTs]

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

[Beermonza]

Понятно. Тем более не вижу причин выполнять изометрическую систему координат, ...это было бы нужно в случае логической игры, где по перемещению курсора нужно знать клетку на карте. Еще раз посмотрим рисуночек:



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