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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0205
treeHSP3 で palfade5解決


tree

リンク

2008/2/5(Tue) 21:08:51|NO.13434

hspdx を使わずに、hsp 2.61 の palfade と同じ機能を
hsp3 で行う マクロとか関数をご存知の方がいらっしゃい
ましたら

ご指導ください。



この記事に返信する


レヴィン

リンク

2008/2/7(Thu) 04:05:07|NO.13442

hsp3util.asってのが標準でついてるのでそれを使うとできますよ。
サンプルも付いてたような気がしたけど、
どこで見たか忘れたので、分かる人お願いします。



船丸

リンク

2008/2/7(Thu) 19:43:19|NO.13450

私は今開発中のhsputil2xtがありますが
hsputil2xtの命令のutgfadeのほうが高性能です。
(hsputilからの派生ですけど)

#module "hsp3util2xt"
#deffunc utgfade int _p1,int _p2,int _p3,int _p4,int _p5,int p6

//
// 画面のフェードを行なう
// (colorで設定された色にフェードする)
// gfade レベル, x,y,sx,sy,p6
// レベル = 0〜2560でレベルを指定する
// (x,y) = フェードを行なう左上
// (省略時は0,0)
// (sx,sy) = フェードを行なうサイズ
// (省略時は画面全体)
// (p6) = 回転角度

p7=double (_p1)
_p1=int (p7/10)

x=_p4:if x=0 : x=ginfo_winx
y=_p5:if y=0 : y=ginfo_winy

gmode 3,x,y,_p1
x=_p2+(x/2):y=_p3+(y/2)
a=3

if p6>360 :p6-360
d=double (p6)
e=(d/180)
grect x,y,e

return
#global

以上、切り抜きです。
コピベしてください。
(ついでに、hsp3utilのサンプルはたぶんありません。)



レヴィン

リンク

2008/2/7(Thu) 19:54:16|NO.13451

すいません。サンプルはDripさんが以前このBBSで出た質問に対しての
回答として作成されたものでした。
「hsp3で画像の色変化」でタイトルのみにチェックをつけ、
過去ログ検索をすると出てきます。
もっとも、treeさんが望むものとはちょっと違うと思いますが。



なたで

リンク

2008/2/8(Fri) 13:37:44|NO.13462

パレット情報を書き換えることで実装できます。

#module #define PALLETCOLORS 256 #define PALLETCOLORSIZE 3 #const PALLETDATASIZE PALLETCOLORS * PALLETCOLORSIZE #deffunc _palfade int value,int ps,int pe,local pallet,local pallet_buff,local i mref pallet,69 sdim pallet_buff,PALLETDATASIZE memcpy pallet_buff,pallet,PALLETDATASIZE repeat (limit(pe,ps,255)-ps+1),ps i = cnt * 3 repeat PALLETCOLORSIZE poke pallet,i+cnt,limit(peek(pallet,i+cnt)+value,0,255) loop loop palette -1,,,,1 memcpy pallet,pallet_buff,PALLETDATASIZE return #define global palfade(%1=0,%2=0,%3=255) _palfade limit(%1,-256,256),limit(%2,0,255),%3 #global screen 0,,,1 picload dirinfo(1)+"/sample/demo/sky_bg.jpg" repeat 255,-255 await 1 palfade cnt redraw 1 loop



tree

リンク

2008/2/10(Sun) 12:28:48|NO.13490

パソコンのないところに旅行していてレスが遅くなりました。
勉強になりました。
皆様有難うございました。



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