------------------------------------------
--画面タッチサンプル
------------------------------------------
function touchsample()
local x,y,a
local c,d
local mw, mh
local jw, jh = canvas.getviewSize()

	mw = jw
	mh = jh
	canvas.setMainBmp( jw, jh )
	canvas.drawCls( color(255,255,255) )
	dialog("画面サイズ","実画面サイズは X= "..jw.." Y= "..jh.."です", 1 )

	c = 0
	d = 0
	canvas.drawTextCenter( "画面タッチ位置を取得します", mw/2,16, 20, color(0,0,0),color(0,255,255) )
	canvas.drawTextCenter( "実画面サイズ("..jw.."×"..jh..")", mw/2,16+20, 20, color(0,0,0),color(0,255,255) )
	canvas.drawTextCenter( "Main画面サイズ("..mw.."×"..mh..")", mw/2,16+20*2, 20, color(0,0,0),color(0,255,255) )
	while(true)do
		x,y,a = touch(1)
		canvas.drawText( "X="..x..",Y="..y..",Status="..a, 0,100, 20, color(0,0,0), color(255,255,255) )
		c=c+1
		if( c>=20*(d+1) )then
			toast("タッチの読み取り回数が "..c.."を超えました")
			d = d + 1
			if( c>=100 )then break end
		end
	end
	
end

function main()
local a
	while( true )do
		touchsample()
		a = dialog("画面タッチサンプル","終了してもいいですか", 2 )
		if( a==1 )then break end
	end
	
end
main()