[過去ﾛｸﾞ] Delphiゲームプログラミング相談室 (976ﾚｽ)

Delphiゲームプログラミング相談室 http://echo.5ch.net/test/read.cgi/gamedev/1006249204/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

282: 名前は開発中のものです。 [sage] 03/05/18 23:17 ID:Vqiijavw >>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; http://echo.5ch.net/test/read.cgi/gamedev/1006249204/282

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 694 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.020s