2011年 01月 13日
PinPoint 自動実行スクリプト 公開準備中 |
PinPoint 自動実行スクリプトを公開予定です。
画面操作スクリプトなので
PinPointは別途製品版を購入する必要はなくなります。
UWSCを入手してスクリプトを実行させてください。
MaxImDL5専用です。
望遠鏡とCCDカメラをコネクト
まずビニング1倍で60秒くらい撮影します。
ダークは取れば認識率が高くなりますが
取らなくてもマッチングできました。
スクリプトを実行するとマッチング処理を始めます。
マッチングが成功すると望遠鏡とSyncします。
事前に望遠鏡の焦点距離とCCDの設定して
PinPointができる状態にしておいてくださいね。
// PinPoint 自動実行スクリプト
// (C) 1999-2010 makkachi
// http://kuwana.exblog.jp/
// マウス、キーボード入力をブロックする
STOPFORM(False) // Stopウィンドウは出さない
LOCKHARD(True) // 管理者権限が必要
// メッセージ表示位置
PUBLIC msgx = 100
PUBLIC msgy = 100
MaxID = GETID("MaxIm DL Pro 5")
ACW(GETID("MaxIm DL Pro 5"),409,4,875,691,0)
FUKIDASI("PinPoint実行します。", msgx, msgy, 0, 14)
sleep(1)
//Observatoryボタンをクリック
id = GetID("MaxIm DL Pro")
ObsID = GETID("Observatory")
CtrlWin(ObsID, CLOSE)
SCKEY(MaxID, VK_CTRL, T)
ACW(GETID("Observatory","#32770"),412,636,419,363,0)
//*** 赤経 赤緯の取得 ***
CLKITEM(ObsID,"Telescope",CLK_TAB )
Tdata = GETSTR( ObsID, 1,)
RApos = BETWEENSTR( Tdata, "RA " , "," )
DECpos = BETWEENSTR( Tdata, "DEC " , " (" )
//********************************
//望遠鏡がコネクトしていなければ終了
ifb RApos = "" then
FUKIDASI("望遠鏡がコネクトしていません 終了。", msgx, msgy, 0, 14)
sleep(1)
CTRLWIN( ObsID, CLOSE )
EXITEXIT
endif
~~~~ 略 ~~~~~
by makkachi
| 2011-01-13 14:22
| 遠隔撮像ソフト
|
Comments(0)