compass FigureCreator2{
	モード プログラム
	サイズ設定 650, 450
	表示位置 右下
}

変数 $dir = ".\"
変数 $filename = "時刻"

変数 $x1 = 0
変数 $y1 = 0
変数 $x2 = 0
変数 $y2 = 0
変数 $w = 0
変数 $h = 0
変数 $time = 0
変数 $number = 0
変数 $path
変数 $list

sub 初期設定{
	時刻取得 ($time)
	計算 $number = 0
}

exe クリップボードの画像を保存する{
	計算 $number = $number + 1
	結合 ($filename) = "pic" & $time & "_" & $number & ".jpg"
	クリップボードの画像を保存 $dir, $filename, "jpg"
	実行 $dir
}

exe

exe 指定範囲の画像を取得{
#	メッセージ "左上座標・右下座標の順にクリックをして下さい"
	クリック待機
	マウス座標取得 ($x1), ($y1)
	クリック待機
	マウス座標取得 ($x2), ($y2)
	計算 $w = $x2 - $x1
	計算 $h = $y2 - $y1
	デスクトップの一部をクリップボードに保存 $w, $h, $x1, $y1
}

exe 指定範囲の画像を取得して保存{
	■呼び出し 指定範囲の画像を取得

	計算 $number = $number + 1

	結合 ($filename) = "pic" & $time & "_" & $number & ".jpg"
	クリップボードの画像を保存 $dir, $filename, "jpg"
	記録 $filename
	実行 $dir
}

#	クリップボードの画像を保存 $dir, $filename, "tif"
#	クリップボードの画像を保存 $dir, $filename, "gif"
#	クリップボードの画像を保存 $dir, $filename, "wmf"
#	クリップボードの画像を保存 $dir, $filename, "bmp"
#	クリップボードの画像を保存 $dir, $filename, "png"

exe 指定範囲の画像を連続して取得・保存{
	■繰り返し 指定範囲の画像を取得して保存, 1000, 1000
}

exe

exe 保存した画像を開く{
	結合 ($path) = $dir & "\" & $filename
	実行 $path
}

exe 画像を保存したフォルダを開く{
	実行 $dir
}

exe

exe ペイントを起動する{
	実行 "MSPAINT.EXE"
}

exe ファイル名の一覧をクリップボードに取得{
	ファイル一覧取得 ($list), $dir, "*.jpg"
	クリップボードに保存 $list
}