compass KronigPenney{
	モード プログラム
	表示位置 右下
	サイズ設定 600, 300
}

変数 $x = 0
変数 $y = 0
変数 $state = ""
変数 $wait = 200
変数 $repeat = 1000
変数 $number = "1"

sub 初期設定{
	Excel起動 "panel.xls"
}

exe 初期設定に戻す{
	panel.セル内容の書込み "5", "Sheet1", "B3"
	panel.セル内容の書込み "0.1", "Sheet1", "C3"
	panel.セル内容の書込み "1000", "Sheet1", "D3"
}
 
exe 障壁0nmで開始{
	panel.セル内容の書込み "0", "Sheet1", "C3"
	■呼び出し マウス座標を幅・障壁として表示
}

exe 障壁0.2nmで開始{
	panel.セル内容の書込み "0.2", "Sheet1", "C3"
	■呼び出し マウス座標を幅・障壁として表示
}

exe 障壁1nmで開始{
	panel.セル内容の書込み "1", "Sheet1", "C3"
	■呼び出し マウス座標を幅・障壁として表示
}

exe 障壁5nmで開始{
	panel.セル内容の書込み "5", "Sheet1", "C3"
	■呼び出し マウス座標を幅・障壁として表示
}

exe マウス座標を幅・障壁として表示{
	■繰り返し 取得, $wait, $repeat
}
 
sub 取得{
	マウス座標取得 ($x), ($y)
#	マウスボタン状態取得 ($state)
#	記録 $x & ", " & $y & ", " & $state
	計算 $x = $x * 0.01
	計算 $y = (1000 - $y) * 5
	panel.セル内容の書込み $x, "Sheet1", "B3"
	panel.セル内容の書込み $y, "Sheet1", "D3"
}