ab.com コミュニティ

全ての表示時間は UTC+09:00 です

画像表示したあとに全体を薄くしたりしたい場合

返信する

ユーザー名:

件名:

メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。

フォントサイズ:
	フォントカラー
[quote=いとちゃん post_id=10604 time=1256514019] なるほど良く分かりました。しかし、BLENDの関数内の設定が良く分からないのですがやはりこの数値の設定はRGB別々に行なうようでしょうか。下記のプログラム変更で確認してみましたが変化させているのは Bのみと思っています。RGBを同時に低減させて黒くしたりすることで BLENDの機能が実現できそうです。 [code] Const AC_SRC_OVER=0 Const AC_SRC_ALPHA=1 Type BLENDFUNCTION BlendOp As Byte'ブレンド操作(常にAC_SRC_OVER) BlendFlags As Byte'常に0 SourceConstantAlpha As Byte'コピー元のビットマップ全体に適用するアルファ値 AlphaFormat As Byte'コピー元のビットマップがアルファ値を持つときAC_SRC_ALPHA End Type TypeDef _BLENDFUNCTION=DWord 'AB423でコンパイルできる事は確認したけど、関数のオーバーロードが出来るようになったのっていつだっけ？ Function Get_BLENDFUNCTION(ByRef bf As BLENDFUNCTION) As _BLENDFUNCTION Get_BLENDFUNCTION=GetDWord(VarPtr(bf)) End Function Function Get_BLENDFUNCTION(bf As *BLENDFUNCTION) As _BLENDFUNCTION Get_BLENDFUNCTION=GetDWord(bf) End Function Declare Function AlphaBlend Lib "msimg32.dll" (_ hdcDest As HDC,nXOriginDest As DWord,nYOriginDest As DWord,nWidthDest As DWord,hHeightDest As DWord,_ hdcSrc As HDC,nXOriginSrc As DWord,nYOriginSrc As DWord,nWidthSrc As DWord,nHeightSrc As DWord,_ blendFunction As _BLENDFUNCTION) As Long '定義ここまで #prompt Line (0,0)-Step(100,100),4,bf Line (110,0)-Step(100,100),2,bf Dim hDC As HDC,bf As BLENDFUNCTION Dim i as Long,t as Long hDC=GetDC(_PromptSys_hWnd) bf.BlendOp=AC_SRC_OVER bf.BlendFlags=0 bf.AlphaFormat=0 bf.SourceConstantAlpha=255 AlphaBlend(hDC,220,0,100,100,hDC,0,0,100,100,Get_BLENDFUNCTION(bf)) for i=1 to 128 bf.SourceConstantAlpha=i AlphaBlend(hDC,220,0,100,100,hDC,110,0,100,100,Get_BLENDFUNCTION(bf)) for t=1 to 10000000:Next t Next i ReleaseDC(_PromptSys_hWnd,hDC) [/code] [/quote]

オプション:

BBCode: ON

[img]: ON

[flash]: OFF

[url]: ON

スマイリー: OFF

	BBCode を無効にする
	URL を自動的にパースしない

クイズ

お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。

トピックのレビュー - 画像表示したあとに全体を薄くしたりしたい場合

作成者

メッセージ

いとちゃん

記事の件名:

画像を薄くしていくBLEND

引用付きで返信する

なるほど良く分かりました。
しかし、BLENDの関数内の設定が良く分からないのですが
やはりこの数値の設定はRGB別々に行なうようでしょうか。

下記のプログラム変更で確認してみましたが変化させているのは
Bのみと思っています。RGBを同時に低減させて黒くしたりすることで
BLENDの機能が実現できそうです。

コード:

Const AC_SRC_OVER=0
Const AC_SRC_ALPHA=1

Type BLENDFUNCTION
    BlendOp As Byte'ブレンド操作(常にAC_SRC_OVER)
    BlendFlags As Byte'常に0
    SourceConstantAlpha As Byte'コピー元のビットマップ全体に適用するアルファ値
    AlphaFormat As Byte'コピー元のビットマップがアルファ値を持つときAC_SRC_ALPHA
End Type

TypeDef _BLENDFUNCTION=DWord

'AB423でコンパイルできる事は確認したけど、関数のオーバーロードが出来るようになったのっていつだっけ？
Function Get_BLENDFUNCTION(ByRef bf As BLENDFUNCTION) As _BLENDFUNCTION
    Get_BLENDFUNCTION=GetDWord(VarPtr(bf))
End Function

Function Get_BLENDFUNCTION(bf As *BLENDFUNCTION) As _BLENDFUNCTION
    Get_BLENDFUNCTION=GetDWord(bf)
End Function

Declare Function AlphaBlend Lib "msimg32.dll" (_
hdcDest As HDC,nXOriginDest As DWord,nYOriginDest As DWord,nWidthDest As DWord,hHeightDest As DWord,_
hdcSrc As HDC,nXOriginSrc As DWord,nYOriginSrc As DWord,nWidthSrc As DWord,nHeightSrc As DWord,_
blendFunction As _BLENDFUNCTION) As Long

'定義ここまで
#prompt
Line (0,0)-Step(100,100),4,bf
Line (110,0)-Step(100,100),2,bf

Dim hDC As HDC,bf As BLENDFUNCTION
Dim i as Long,t as Long

hDC=GetDC(_PromptSys_hWnd)
bf.BlendOp=AC_SRC_OVER
bf.BlendFlags=0
bf.AlphaFormat=0

bf.SourceConstantAlpha=255
AlphaBlend(hDC,220,0,100,100,hDC,0,0,100,100,Get_BLENDFUNCTION(bf))

for i=1 to 128 
		bf.SourceConstantAlpha=i
AlphaBlend(hDC,220,0,100,100,hDC,110,0,100,100,Get_BLENDFUNCTION(bf))
for t=1 to 10000000:Next t


Next i

ReleaseDC(_PromptSys_hWnd,hDC)

投稿記事

Posted: 2009年10月26日(月) 08:40

konisi

記事の件名:

引用付きで返信する

AlphaBlend関数が使えるようです。

[ここをクリックすると内容が表示されます]

コード:

Const AC_SRC_OVER=0
Const AC_SRC_ALPHA=1

Type BLENDFUNCTION
	BlendOp As Byte'ブレンド操作(常にAC_SRC_OVER)
	BlendFlags As Byte'常に0
	SourceConstantAlpha As Byte'コピー元のビットマップ全体に適用するアルファ値
	AlphaFormat As Byte'コピー元のビットマップがアルファ値を持つときAC_SRC_ALPHA
End Type

TypeDef _BLENDFUNCTION=DWord

'AB423でコンパイルできる事は確認したけど、関数のオーバーロードが出来るようになったのっていつだっけ？
Function Get_BLENDFUNCTION(ByRef bf As BLENDFUNCTION) As _BLENDFUNCTION
	Get_BLENDFUNCTION=GetDWord(VarPtr(bf))
End Function

Function Get_BLENDFUNCTION(bf As *BLENDFUNCTION) As _BLENDFUNCTION
	Get_BLENDFUNCTION=GetDWord(bf)
End Function

Declare Function AlphaBlend Lib "msimg32.dll" (_
hdcDest As HDC,nXOriginDest As DWord,nYOriginDest As DWord,nWidthDest As DWord,hHeightDest As DWord,_
hdcSrc As HDC,nXOriginSrc As DWord,nYOriginSrc As DWord,nWidthSrc As DWord,nHeightSrc As DWord,_
blendFunction As _BLENDFUNCTION) As Long

'定義ここまで
#prompt
Line (0,0)-Step(100,100),4,bf
Line (110,0)-Step(100,100),2,bf

Dim hDC As HDC,bf As BLENDFUNCTION
hDC=GetDC(_PromptSys_hWnd)
bf.BlendOp=AC_SRC_OVER
bf.BlendFlags=0
bf.AlphaFormat=0

bf.SourceConstantAlpha=255
AlphaBlend(hDC,220,0,100,100,hDC,0,0,100,100,Get_BLENDFUNCTION(bf))

bf.SourceConstantAlpha=128
AlphaBlend(hDC,220,0,100,100,hDC,110,0,100,100,Get_BLENDFUNCTION(bf))

ReleaseDC(_PromptSys_hWnd,hDC)

投稿記事

Posted: 2009年10月24日(土) 15:09

いとちゃん

記事の件名:

画像表示したあとに全体を薄くしたりしたい場合

引用付きで返信する

日ごろは大変お世話になっております。
サーバー復旧おめでとうございます。さびしかったです。

さて、Ａ，Ｂ，Ｃ，Ｄと画像がトランプのように重なって表示されていて
Ａがだんだん薄くなってＢ
Ｂがだんだん薄くなってＣ
というような表示をするプログラムを考えています。

描画にはけっこう時間がかかるようにも思いますがこうした
ＲＧＢを段階的に薄くしていってダイレクトに表示するような
方法は具体的にどのようなファンクションで行なうのが良い
のでしょうか。

達人皆様ご教示お願いいたします。

投稿記事

Posted: 2009年10月22日(木) 10:32

掲示板トップ » »

全ての表示時間は UTC+09:00 です