HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
0324
kasu画像5解決


kasu

リンク

2013/3/24(Sun) 00:52:32|NO.53190

gmodeの3で画像のブレンド率を徐々に高くしていって
画像が次第にはっきり描画されるようにし、完全に描画されたら違う画像で画像を上書きする
というのを複数個分時間差で行いたいのです。
例えば、1個目の画像のブレンド率が半分くらいのとき
2個目の描画を始め、3個目の描画が始まるときに1個目の画像を上書き……
といった感じです。
どのようにしたらできますか?
方針がたちません。



この記事に返信する


ht.

リンク

2013/3/24(Sun) 01:24:41|NO.53191

こういう感じでしょうか?

#define IMG_CX 600 #define IMG_CY 100 buffer 1, IMG_CX, IMG_CY : color 255, 0, 0 : boxf buffer 2, IMG_CX, IMG_CY : color 0, 255, 0 : boxf buffer 3, IMG_CX, IMG_CY : color 0, 0, 255 : boxf buffer 4, IMG_CX, IMG_CY : color 255, 255, 0 : boxf screen 0 cur_id = 1 alpha = 0 repeat redraw 0 gmode 3, IMG_CX, IMG_CY, alpha gcopy cur_id, 0, 0, IMG_CX, IMG_CY alpha += 4 if alpha == 64 { gosub *set_next_id alpha = 0 } redraw 1 wait 3 loop *set_next_id cur_id++ if cur_id == 5 : cur_id = 1 return



kasu

リンク

2013/3/24(Sun) 01:43:09|NO.53192

大体はこんな感じです。ありがとうございます。
ですが自分の質問の仕方が少し言葉足らずでしたので補足させてください!

まず、画像のサイズを80*80くらいだとします。
1個目の画像のブレンド率が半分くらいのとき
別の座標で2個目の描画を始め、3個目の描画(1個目、2個目両方と別の座標)が
始まるときに1個目の画像を上書き、という風にしたいです。



あり

リンク

2013/3/24(Sun) 15:29:28|NO.53201

見栄えの為gmode 4を使っていますが、こんな感じですか?

screen 1, 640, 480 : cls 4 color 255, 0, 0 : circle 0, 0, 80, 80 color 0, 255, 0 : circle 80, 0, 160, 80 color 0, 0, 255 : circle 160, 0, 240, 80 color 255, 255, 255 : circle 240, 0, 320, 80 celdiv 1, 80, 80, 40, 40 cno = 0, 1, 2 cx = 100, 320, 540 cy = 240, 240, 240 bl = 0, 0, 0 flg = 0 bl(0) = 1 gsel 0, 1 *main redraw 0 color 0, 0, 0 : boxf repeat 3 if bl(cnt) >= 255 { gmode 4, , , 255 color 0, 0, 0 pos cx(cnt), cy(cnt) celput 1, 3 } else { if bl(cnt) ! 0 { gmode 4, , , bl(cnt) color 0, 0, 0 pos cx(cnt), cy(cnt) celput 1, cno(cnt) bl(cnt) = limit(bl(cnt) + 1, 0, 255) } } loop if flg < 3 { if bl(flg) = 128 { flg + 1 bl(flg) = 1 } } redraw 1 title "ブレンド率=" + bl(0) + " " + bl(1) + " " + bl(2) await 10 goto *main



kasu

リンク

2013/3/24(Sun) 15:53:16|NO.53202

度重なる質問すみません。

if flg < 3 { if bl(flg) = 128 { flg + 1 bl(flg) = 1 } }

の部分はどんな処理を行っているのですか?



kasu

リンク

2013/3/24(Sun) 16:03:13|NO.53203

すみません、よく考えたらわかりました。
そして無事解決しました。
本当に助かりました!
ありがとうございます。



ONION software Copyright 1997-2023(c) All rights reserved.