View Single Post
  #1  
Old 03-11-2011, 10:11 PM
JohnH's Avatar
JohnH
Member # 159

JohnH is offline
 
Join Date: Feb 2005
Location: NSW
Posts: 1,226
CCDSoft Scripting

Can anyone point me at some good help on CCDSoft scripting please? I want to automate LRGB and HOS imaging runs including focus offsets. I have done this in AstroArt4 and it was easy but I have not found any good doco on scripting in CCDSoft.

I think I can use vbs and I think there are other options also. What is the best tool for edit/testing of scripts for CCDSoft?

Here is what I had for AA4...

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=G, 4=B, 5=Ha ,6=Oiii,7=Sii
REM - Images stored to path$

input "Lum (s) - 0 for none ?",Lexp
input "Red (s) - 0 for none ?",Rexp
input "Green (s) - 0 for none ?",Gexp
input "Blue (s) - 0 for none ?",Bexp
input "Oxy (s) - 0 for none ?",Oexp
input "Halpha (s) - 0 for none ?",Hexp
input "Sulphur (s) - 0 for none ?",Sexp
input "Number of exposures ?",expcount
input "Object Name ?",object$
input "Focus Point L ?",Fpoint
input "Path ? eg C:\temp\ - folder MUST exist",path$
seq$ = "LRGBHOS"

for j= 1 to expcount
for i = 1 to 7

Focuser.GotoAbsolute(Fpoint)
filter$ = seq$[i]
bin = 6
if filter$ = "L" then
exposure = Lexp
offset = 0
endif
if filter$ = "R" then
exposure = Rexp
bin = 5
offset = -10
endif
if filter$ = "G" then
exposure = Gexp
bin = 5
offset = -10
endif
if filter$ = "B" then
exposure = Bexp
bin = 5
offset = 100
endif
if filter$ = "S" then
exposure = Sexp
offset = 10
endif
if filter$ = "O" then
exposure = Oexp
offset = 60
endif
if filter$ = "H" then
exposure = Hexp
offset = -10
endif

if exposure <> 0 then
name$=filter$+"_"+object$+"_"+str$( j)+".fit"
print i;filter$;bin;offset,exposure;name$
Wheel.Goto(filter$)
Focuser.GotoRelative(offset)
pause(15)
Camera.Binning(bin)
Camera.Start(exposure)
Camera.Wait
Image.Save(path$ + name$)
Image.Close
endif

next i
next j

Print "Finished!"
End
Reply With Quote