ゲームや映像のエフェクトとして、描画している内容を上下左右に揺らすサンプルです。
サンプルモジュールの仕様としてgcopy命令同様の使用する元バッファＩＤ、基点座標、サイズに加え、
揺らす方向、揺らす回数、揺れの大きさ、揺れの速度をパラメータ指定するようにしています。
詳しくは、各パラメータの意味やサンプルスクリプトを実際に動かして検証してください。
尚、一回の揺れは横方向の場合「左に震度分ずれ、中央に戻り、右に震度分ずれ、中央に戻る」となります。
よって、速度が最小の１０ミリ秒の場合は、１回の揺れに４０ミリ秒掛かる計算となります。
	

quake 読込先バッファ, Ｘ座標, Ｙ座標, 横幅, 高さ, 方向, 回数, 震度, 速度
	読込先バッファ		コピーするウィンドウＩＤを指定する
	Ｘ座標		コピーする画像の基点Ｘ座標指定する
	Ｙ座標		コピーする画像の基点Ｙ座標指定する
	横幅		コピーするＸ方向のサイズを指定する
	高さ		コピーするＹ方向のサイズを指定する
	方向		揺らす方向を指定する(0:横 1:縦)
	速度		揺れる速度(wait命令と同じ１０ミリ秒単位)を指定する 但し、最小速度１(１０ミリ秒)でも上記補足説明の通り、１回の揺れで４０ミリ秒掛かる

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#module
#deffunc quake int, val, int, int, int, int, int
	mref id, 0 : mref area, 49 : mref dir, 2 : mref rep, 3 : mref size, 4 : mref sp, 5
	i = 0, -size, 0, size
	gcopy id, area.0, area.1, area.2, area.3
	repeat rep * 4 + 1
		redraw 0
		count = cnt \ 4
		gcopy id, (dir = 0) * i.count + area.0, (dir = 1) * i.count + area.1, area.2, area.3
		redraw 1
		wait 1
	loop
	return
#global

	buffer 2
	picload "sample/hspdx/hspdx.bmp"
	area = 0, 0, winx, winy
	gsel 0
	quake 2, area, 0, 20, 10, 3 // 強さ１０速度３で２０回横揺れ
	wait 100
	quake 2, area, 1, 30,  5, 1 // 強さ５速度１で３０回縦揺れ
	stop

quake 読込先バッファ, Ｘ座標, Ｙ座標, 横幅, 高さ, 方向, 回数, 震度, 速度
	読込先バッファ		コピーするウィンドウＩＤを指定する
	Ｘ座標		コピーする画像の基点Ｘ座標指定する
	Ｙ座標		コピーする画像の基点Ｙ座標指定する
	横幅		コピーするＸ方向のサイズを指定する
	高さ		コピーするＹ方向のサイズを指定する
	方向		揺らす方向を指定する(0:横 1:縦)
	速度		揺れる速度(wait命令と同じ１０ミリ秒単位)を指定する 但し、最小速度１(１０ミリ秒)でも上記補足説明の通り、１回の揺れで４０ミリ秒掛かる

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

#module
#deffunc quake int id, int px, int py, int sx, int sy, int dir, int rep, int size, int sp, local i
	i = 0, -size, 0, size
	repeat rep * 4 + 1
		redraw 0
		gcopy id, (dir = 0) * i(cnt \ 4) + px, (dir = 1) * i(cnt \ 4) + py, sx, sy
		redraw 1
		wait (sp < 1) + (sp > 0) * sp
	loop
	return
#global

	buffer 1
	picload "sample/hspdx/hspdx.bmp"
	gsel 0
	quake 1, , , ginfo_winx, ginfo_winy, 0, 20, 10, 3 // 強さ１０速度３で２０回横揺れ
	wait 100
	quake 1, , , ginfo_winx, ginfo_winy, 1, 30,  5, 1 // 強さ５速度１で３０回縦揺れ