[過去ﾛｸﾞ] 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

283: 272 [sage] 03/05/19 00:13 ID:xetwIoTi >>282 あう。　何度も何度もすいませんでした。 （０，０）からしか検算していなかった私のミスです。 http://echo.5ch.net/test/read.cgi/gamedev/1006249204/283

301: 名前は開発中のものです。 [sage] 03/05/29 23:33 ID:mpTwdvzD >>300 　５　４　３　３　３　３　４　５　６ ５　４　３　２　２　２　３　４　５ 　４　３　２　１　１　２　３　４　５ ４　３　２　１　０　１　２　３　４ 　４　３　２　１　１　２　３　４　５ ５　４　３　２　２　２　３　４　５ 　５　４　３　３　３　３　４　５　６ が、 　　　　５　４　３　３　３　３　４　５　６ 　　５　４　３　２　２　２　３　４　５ 　　４　３　２　１　１　２　３　４　５ ４　３　２　１　０　１　２　３　４ 　　４　３　２　１　１　２　３　４　５ 　　５　４　３　２　２　２　３　４　５ 　　　　５　４　３　３　３　３　４　５　６ になるということですか。 うーん、 >>282 のように（１，０）−（０，１）が２になりそうな予感…。 ソース、ぷりーず。 http://echo.5ch.net/test/read.cgi/gamedev/1006249204/301

---

ﾒﾓ帳

(0/65535文字)

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.035s