Quote:
Originally Posted by strongmanmike
Sounds like there was a bit of unscripted fully automated caos too
|
Spot on Mike....and thanks for the comments guys....here's is my AA script fyi - still a wip and not industrial strength but you will get the idea....I left out the code for the cable break...
REM - Narrowband Capture - JH 10/6/10
REM - 145m Bin modes
REM - 1x1 = 6 - 16 bit res
REM - 2x2 = 5
REM - 4x4 = 4
REM - 1x1 = 3 - 8 bit res
REM - 2x2 = 2
REM - 4x4 = 1
REM - Filters loaded 1=L,2=R,3=Sii,4=Oiii,5=Ha
REM - Images stored to path$
input "Si (s) - 0 for none ?",Sexp
input "Ox (s) - 0 for none ?",Oexp
input "Ha (s) - 0 for none ?",Hexp
input "Number of exposures ?",expcount
input "Object Name ?",object$
input "Path ? eg C:\temp\ - folder MUST exist",path$
seq$ = "SOH"
FocusInt=3600
Wheel.Goto("H")
Camera.Binning(2)
Camera.Start(2)
Camera.Wait
message("Click OK then Select a Focus Star")
pause(15)
message ("Start Auto Focus")
x = Image.GetPointX()
y = Image.GetPointY()
Camera.Autofocus(x,y)
Print "Autofocusing..."
pause(60)
LastFocusTime=0
image.close
for j= 1 to expcount
for i = 1 to 3
filter$ = seq$[i]
bin = 6
if filter$ = "S" then
exposure = Sexp
offset = 5
endif
if filter$ = "O" then
exposure = Oexp
offset = 45
endif
if filter$ = "H" then
exposure = Hexp
offset = -50
endif
if exposure <> 0 then
name$=filter$+"_"+object$+"_"+str$( j)+".fit"
print i;filter$;bin;exposure;name$
Wheel.Goto(filter$)
Focuser.GotoRelative(offset)
pause(5)
Camera.Binning(bin)
Camera.Start(exposure)
Camera.Wait
Image.Save(path$ + name$)
Image.Close
LastFocusTime=LastFocusTime+exposur e
endif
next i
if LastFocusTime>FocusInt then
Print "Autofocusing..."
Camera.Binning(2)
Wheel.Goto("H")
Camera.Start(2)
Camera.Wait
Camera.Autofocus(x,y)
pause(60)
LastFocusTime=0
endif
next j
Print "Finished!"
End