295(2): 288 [sage] 03/05/25 03:35 ID:OUd92QaS(1) AAS
>>289
>>290
外部ﾘﾝｸ[html]:www.sm.rim.or.jp
とりあえず↑のサイトを参考に（というかほぼコピペ）作ってみますた。

外部ﾘﾝｸ[zip]:www.geocities.co.jp

1ピクセル単位で色を取得、黒だったら白に、それ以外の色だったら
黒にするという処理を行いました。ただ、問題点が2つほど…

・For文で回してる処理が非常に遅い（scanlineのせい？）
・残したいキャラに含まれている黒色までマスク化してしまう（目の黒など）

この2つが非常に悩ませてくれます…　上はともかく、下は
見た目に非常に影響するので(；´д⊂　やはり、透明化したくない
部分の黒色だけ、塗りつぶさないような条件処理でしか
解決策はないんでしょうか？

>>293
Transparentプロパティを使えば出来ますが、プログラムで再現したかったのでつ…

>>294
とりあえず一番簡単な方法である、Susieにプラグイン入れて
画像抜き出しやってるんですが、マスク画像は入ってるのですね。
じゃぁDOの方も、立ち絵ファイルと一緒になってたりするのかしら…

285(2): 名前は開発中のものです。 [sage] 03/05/20 01:21 ID:mVYsvlCM(1/2) AAS
Bitbltを使ってアニメーションをさせてるんですが、開始すると
アニメーションは割と綺麗に動きますが、実行させてるFormが
非常に重たくなります。Formを移動させようとしようものなら、
かなりガクガクに動くように…（開発環境マシンはP42.53GHzです）
何方か対策をご教授願えれば幸いです。

// TimerのIntervalは500に設定してます。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Picture.LoadFromFile('C:\001.bmp');
BitBlt(image2.Canvas.Handle,0,0,37,75,image1.Canvas.Handle,0,0,SRCCOPY);
image2.Repaint;
sleep (100);
image1.Picture.LoadFromFile('C:\002.bmp');
BitBlt(image2.Canvas.Handle,0,0,37,75,image1.Canvas.Handle,0,0,SRCCOPY);
image2.Repaint;
sleep (100);
.
.
.
image1.Picture.LoadFromFile('C:\006.bmp');
BitBlt(image2.Canvas.Handle,0,0,37,75,image1.Canvas.Handle,0,0,SRCCOPY);
image2.Repaint;
end;

286(2): 名前は開発中のものです。 [sage] 03/05/20 02:17 ID:zL9Q18du(1) AAS
>>285
sleep() でウェイトをかましているからでは。
ＷＩＮのタスクを独り占めして文字通り眠ったようになりますから。

タイマーとカウンタを使うのはどうでしょう？
TForm1.FormCreate の所で cnt を 1 に設定しておいてから、

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Picture.LoadFromFile('C:\00' + IntToStr(cnt) + '.bmp');
BitBlt(image2.Canvas.Handle,0,0,37,75,image1.Canvas.Handle,0,0,SRCCOPY);
image2.Repaint;
Inc(cnt);
if cnt>6 then cnt:=1;
end;

というのは如何でしょう？
あと、 bmp ファイルは最初にまとめて ImageList へ読み込ませては？

292(1): 名前は開発中のものです。 [sage] 03/05/24 02:30 ID:LSDvOFkW(1) AAS
291は何なの！？ 荒らしいらい？

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;

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

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

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

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