HSPTV!掲示板

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

ご指導ください。

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

私は今開発中の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のサンプルはたぶんありません。）

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

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

#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

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