compass WinSpec分析{
	モード プログラム
	表示位置 右下
	記録フォーム表示 左下
	サイズ設定 650, 600
}

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

変数 $left = 1		#スペクトルの左端x座標
変数 $right = 401	#スペクトルの右端x座標
変数 $Ax = 1		#点Ａのx座標
変数 $Ay = 1		#点Ａのy座標
変数 $Bx = 10		#点Ｂのx座標
変数 $By = 10		#点Ｂのy座標

変数 $delta_x = 5	#Δxの値
変数 $delta_y = 5	#Δyの値
変数 $Cx = 1		#点Ｃのx座標
変数 $Cy = 1		#点Ｃのy座標
変数 $Dx = 1		#点Ｄのx座標
変数 $Dy = 1		#点Ｄのy座標

変数 $ra = ""	 	#張り付け先アドレス
変数 $cur = 1 		#現在のアドレス番号

変数 $z = 1				#z座標
変数 $left = 1			#左端
変数 $right = 1340		#右端
変数 $wavecount = 1200  #スペクトル数
変数 $framecount = 1	#フレーム数
変数 $result			#スペクトルデータ

exe シートをクリアする{
	panel.全セル内容の削除 "Sheet1"
}

exe

exe スペクトル数を入力する{
	入力 ($wavecount)
}

exe 左端と右端の座標を入力する{
	入力 ($left)
	入力 ($right)
}

exe カーソル位置を左端とする{
	panel.カーソル位置取得x ($left)
	記録 $left
}

exe カーソル位置を右端とする{
	panel.カーソル位置取得x ($right)
	記録 $right
}

exe 左端〜右端で１本スペクトルを取得する{
	panel.カーソル位置取得z ($z)
	panel.スペクトル取得 ($result), $left, $right, $z, 1, "B2"
	記録 $result
}

exe 左端〜右端で複数スペクトルを取得する{
	panel.スペクトル取得 ($result), $left, $right, 1, $wavecount, "B2"
	記録 $result
}

exe

exe フレーム数を入力する{
	入力 ($framecount)
}

exe 点Ａ・Ｂの座標を入力する{
	入力 ($Ax)
	入力 ($Ay)
	入力 ($Bx)
	入力 ($By)
}

exe カーソル位置を点Ａとする{
	panel.カーソル位置取得x ($Ax)
	panel.カーソル位置取得y ($Ay)
	記録 "Ａ: " & $Ax & ", " & $Ay
}

exe カーソル位置を点ＢとしてΔを計算する{
	panel.カーソル位置取得x ($Bx)
	panel.カーソル位置取得y ($By)
	記録 "Ｂ: " & $Bx & ", " & $By
	計算 $delta_x = $Bx - $Ax
	計算 $delta_y = $By - $Ay
	記録 "Δ: " & $delta_x & ", " & $delta_y
}

exe Ａ〜Ｂでイメージ積算値を取得する{
	panel.イメージ積算値の取得 ($result), $Ax, $Ay, $Bx, $By, 1, $framecount "C2"
	記録 "Ａ: " & $Ax & ", " & $Ay
	記録 "Ｂ: " & $Bx & ", " & $By
}

exe

exe カーソル位置〜Δxyで積算値を取得する{
	panel.カーソル位置取得x ($Cx)
	panel.カーソル位置取得y ($Cy)
	計算 $Dx = $Cx + $Bx - $Ax
	計算 $Dy = $Cy + $By - $Ay
	panel.イメージ積算値の取得 ($result), $Cx, $Cy, $Dx, $Dy, 1, $framecount, "C3"
	計算 $delta_x = $Dx - $Cx
	計算 $delta_y = $Dy - $Cy
	記録 "Δ: " & $delta_x & ", " & $delta_y
	記録 "Ｃ: " & $Cx & ", " & $Cy
	記録 "Ｄ: " & $Dx & ", " & $Dy
}

exe カーソル位置〜Δxyで積算値を連続取得する{
	計算 $cur = $cur + 1
	結合 ($ra) = "D" & $cur

	panel.カーソル位置取得x ($Cx)
	panel.カーソル位置取得y ($Cy)
	計算 $Dx = $Cx + $Bx - $Ax
	計算 $Dy = $Cy + $By - $Ay
	panel.イメージ積算値の取得 ($result), $Cx, $Cy, $Dx, $Dy, 1, $framecount, $ra
	計算 $delta_x = $Dx - $Cx
	計算 $delta_y = $Dy - $Cy
	記録 "Δ: " & $delta_x & ", " & $delta_y
	記録 "Ｃ: " & $Cx & ", " & $Cy
	記録 "Ｄ: " & $Dx & ", " & $Dy
}