HSPTV!掲示板

画像を高速にフィルターをかけるような事をしたいと考えています。
psetとpgetでは遅いと言う事なのでVRAMを使用することにしました。
mrefにより指定した変数がウィンドウと連動する事までは分かりました。
ただ、ヘルプには「配列変数になります」と書いてありpeekかpokeでいじるようですが、
VRAMの構造が分からないといじれないと言う事で質問させていただきます。
親切な方、厚かった事のある方、よろしくお願います。

VRAMは右下からB,G,Rと始まります。
1Dotはそれぞれの色1Byteずつで3Byteとなっているので、
1Dot単位で操りたいときは3Byteずらしていくとうまくいきます。

下のテストスクリプトも参考に。

sdim buf,6400
buf="32*32を塗りつぶしています。\n"
mesbox buf,640,480,0

screen 2,32,32
mref VRAM,66
color 63,127,255 : boxf 0,0,32,8
color 255,255,255 : boxf 0,8,32,16
color 123,223,323 : boxf 0,16,32,24
color 10,20,30 : boxf 0,24,32,32

repeat 32*32*3
if (cnt\3)=0 : buf=buf+"\n"
buf=buf+peek (VRAM,cnt)+" "
loop

gsel 0,0
objprm 0,""+buf

　「VRAMとは何ぞや」、ということは、「HSPからのDLL呼び出し方法リファレンスマニュアル」を
読んでいただければよいと思います。
　もし、何かあれば協力します。

　↓のスクリプトはフルカラーモードのみ対応の、フェードアウトサンプルです。

//////////////////////////////////////////////
// USE VRAM SAMPLE
//////////////////////////////////////////////
#module

#deffunc fade_out array VRAM,int prm
	if prm > 255 :return "2番目の引数の値が異常です" :end ; フェードアウトする値が 1byte 以上ならエラー

	wx = ginfo_winx * 3	; 幅 * [RGB byteサイズ] を代入

	// wx が4の倍数でなければダミーを加える
	if wx & 0x00000003 : wx = wx & 0x0ffffffc | 4

	bSize = wx * ginfo_winy

	// ビットマップデータのサイズ分繰り返す
	repeat bSize
		a = peek(VRAM,cnt)
		a - prm
		if a < 0 : a=0
		poke VRAM,cnt,a
	loop
	return

#global

	color 255,200,150
	boxf 50,50,100,100
	color 150,200,255
	boxf 150,150,200,200
	color 0,0,0
	mes "フェードアウトします。"
	wait 10
	
	mref VRAM,66
	out = 15
	repeat 255/out
		redraw 0
		fade_out VRAM,out
		redraw 1
		await
	loop
	end

　↑かなり遅いですね...。
HSPでVRAMを直接書き換えるのは、ちょっと荷が重いかもしれません。

すみません。
遅れました。ありがとうございます。