test7.hsp

sample\hspda\test7.hsp » Plain Format

	#include "hspda.as"

	;	実数の乱数生成
	;
	rndf_ini	; 乱数の初期化(なくてもOKです)
	;
	mes "実数で0〜1までの乱数を生成します。"
	repeat 20
	rndf_get dval
	mes "MTRND="+dval
	loop

	repeat

	rndf_geti x,300
	rndf_geti y,300
	rndf_geti col1,0x100
	rndf_geti col2,0x100
	rndf_geti col3,0x100
	color col1,col2,col3:pset 320+x,y
	await 20

	loop