;
	;	カーソルキーで画像を動かす(3)
	;
	buffer 3
	picload "face.bmp"			; 画像ファイル
	screen 0,640,480

	x1=0 : y1=0					; 左上XY
	x2=640 : y2=480				; 右下XY

	mx=320.0					; X座標
	my=240.0					; Y座標
	msp=4.0						; スピード
	mr=0.0						; 角度
	mrsp=0.1					; 角度回転スピード
*main
	redraw 0					; 描画始め

	color 0,0,64
	boxf						; 背景を消す

	gmode 2,64,64				; 画像サイズ
	pos mx,my
	grotate 3,0,0,mr			; 画像コピー

	redraw 1					; 描画終わり
	await 20

	stick key,15				; キー入力

	if key&1 : mr-=mrsp
	if key&4 : mr+=mrsp
	if key&2 : mgo=msp : goto *main2
	if key&8 : mgo=-msp : goto *main2

	goto *main
*main2							; 直進
	rot=mr-1.57079632
	mx=limitf( mx+cos(rot)*mgo, x1, x2 )
	my=limitf( my+sin(rot)*mgo, y1, y2 )

	goto *main