288(5): 名前は開発中のものです。 [sage] 03/05/21 02:17 ID:yuA7Jdfb(1) AAS
質問です。
■■■
■□■
■■■
（元絵：□が残したい部分・■が黒塗りつぶし）
□□□
□■□
□□□
（マスク：□が白塗りつぶし・■が残したい部分の黒塗りつぶし）
を、OR→AND演算で表示すれば半透明化出来ると思うのですが、
↑のマスク画像無しで、半透明化するにはどうすればいいのでしょうか？

# ADVなエロゲーを再現しようと思ってるのですが、画像を抜き出してみたところ、
# 手元のゲーム（VisualArts系やDOのゲーム等）では、各キャラクターの立ち絵に
# マスク用画像が用意されてなく、黒背景に立ち絵が描いてある画像しか
# 入ってませんでした。これらは、何か別の画像と論理演算を行って
# 半透明化させてるんでしょうか？

289(2): 名前は開発中のものです。 [sage] 03/05/21 02:49 ID:8zKfauhG(1) AAS
マスク画像は実行時に作成しているか、
1ピクセルずつ合成してるんじゃないの？

SRCANDやSRCPAINT以外にもたくさんの合成方法があるけど、
1回のBitBltで透過させる事は不可能だと思う。

290(3): 名前は開発中のものです。 [sage] 03/05/21 03:36 ID:pDtj6lgc(1) AAS
>>288
TBitmap の ScanLine を使って、>>289 さんの仰るとおり 1 pixel ごとに
処理するヨロシ。

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