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

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

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

exe 地球(300K)の黒体輻射を表示{
    panel.セル内容の書込み "300", "Sheet1", "B3"
}

exe 太陽(5800K)の黒体輻射を表示{
    panel.セル内容の書込み "6400", "Sheet1", "B3"
}

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