277(2): 名前は開発中のものです。 [sage] 03/05/18 03:31 ID:mv38V9jc(1/2) AAS
今適当に思いついた奴だけど、
□■□□□　 　■＝移動軸、★＝目標、☆＝自分
★■□□■
□□■□■
□□■■□
■■■☆■
をちょっとずらして
□■□□□
　 ★■□□■
　 □□■□■
　 　 □□■■□
　 　 ■■■☆■
とすると、ヘックスの移動が、普通の四角マスでの
・縦移動(HEXの右上左下方向の移動)
・横移動(HEXの横方向の移動)
・左上右下移動(HEXの左上右下方向の移動)
に対応することになる。
で、目標から上下左右(斜めは考慮する必要なし)にある一番近い軸までの距離と、
軸との交点から自分(中心)までの距離を足せば、移動距離となる、ハズ。

上の例だと斜めの軸までの距離が1、☆までが３、合計の移動距離が４が結論ということになる。

でも、障害物とか地形効果とか考えると単純に距離だけ求めても、とか思うんだけどどうだろ？

296(5): 290 [sage] 03/05/25 17:23 ID:ll42N4KR(1/3) AAS
>>295
ソース拝見いたしました。
> ・For文で回してる処理が非常に遅い（scanlineのせい？）
マスクを作るプロシージャにて、パレットコードを String に変換している
為と思われます。

procedure TForm1.make_mask(sBmp:TBitmap);
var
i,j, x : Integer;
p : PDWORD;
mp : PBYTEArray;
begin
for i:=0 to sBmp.Height-1 do begin
p := sBmp.ScanLine[i]; // ビットマップ座標(0,i)のポインタ
mp := mask.ScanLine[i];
x :=0;
for j:=0 to sBmp.Width-1 do begin
if p^ = $00000000 then //if str_mask = '000' then
begin
mp[x]:=$ff; mp[x+1]:=$ff; mp[x+2]:=$ff; // B=255 , G=255 , R=255
end else begin
mp[x]:=$00; mp[x+1]:=$00; mp[x+2]:=$00; // B=0 , G=0 , R=0
end;
Inc(p); Inc(x,3);
end;
end;
end;
……と、いうのは如何でしょう？（ PDWORD よりも PDCHARArray の方が
わかりやすいでしょうか）

2(2): 名無しさん＠お腹いっぱい。 [] 01/11/20 18:48 ID:dEhL3Xq/(2/2) AAS
取り合えず初心者はDelphi6PersonalをDLしてきて、
Googleディレクトリの、
コンピュータ > プログラミング > Delphi
を見て回ろう。

DelphiX:
外部ﾘﾝｸ:www.yks.ne.jp
Quadruple D:
外部ﾘﾝｸ[html]:www-fu.magma.ne.jp