271(1): 名前は開発中のものです。 [sage] 03/05/17 15:57 ID:LhaqdzNz(1/4) AAS
>>270
ああ、ＨＥＸマップをいじっている時に私もつまづいたなぁ…。
とりあえず、私の使っている方法。

”ＨＥＸマップにおける距離”＝”ユニット（コマ）が進む数”だから、
　　０　　１　　２　　３
　┌─┬─┬─┬─┬
０│　 │　 │　 │　 │
　└┬┴┬┴┬┴┬┴
１　 │　 │　 │　 │
　┌┴┬┴┬┴┬┴┬
２│　 │　 │　 │　 │
…のように、レンガ壁状のマップで考えます。
そして、この１コマを４分割。
　□□□□□□□□
　□□□□□□□□
　　 □□□□□□□□
　　 □□□□□□□□
　□□□□□□□□
　□□□□□□□□
あとは、直線の距離を出して、２で割ればＯＫ。

275(2): 268 [sage] 03/05/18 00:57 ID:RcPQLtqQ(1) AAS
4分割は新鮮でしたが、
(0,0)-(1,3) が 5 になるのですけど。

x0 = 0;
y0 = 0;
x1 = 1;
y1 = 3;
xq0 = 0;
yq0 = 0;
xq1 := (1 * 2) + (3 mod 2) = 3;
yq1 := 3 * 2 = 6;
xlen := Abs(3)+1 = 4;
ylen := Abs(6)+1 = 7;
hexlen := Sqrt(4*4 + 7*7) / 2 + 1 = 5.03;

282(2): 名前は開発中のものです。 [sage] 03/05/18 23:17 ID:Vqiijavw(1) AAS
>>280
今度は(1,0)-(0,1)で2になります。

x0=1;
y0=0;
x1=0;
y1=1;
xlen = Abs(0-1) = 1;
ylen = Abs(1-0) = 1;

1 <= (1 div 2) が成立しないので、
hexlen := 1 + 1 - (1 div 2) = 2;

最終的にこれでいけました。
function GetHexLen(const P1, P2: TPoint): Integer;
var
　W, H: Integer;
begin
　W := Abs(P2.X - P1.X);
　H := Abs(P2.Y - P1.Y);
　if H <= W * 2 then
　begin
　　if (Odd(P1.Y) and (P1.X >= P2.X)) or
　　　((not Odd(P1.Y)) and (P1.X <= P2.X)) then
　　　Result := H + W - H div 2
　　else
　　　Result := W + H div 2
　end else
　　Result := H;
end;