The classic sequence sub-procedure

[Forum_2014]

Hello all,
very often I'm being asked how to emulate a sequence via scripts, here are some examples (CCD Interface 5.20 or newer).

1) Simple sequence. It takes three images with an exposure of 5 seconds. (Instead of Image.Close you may disable the option "New window" in the Image tab).

Code: Select all

dir = "C:\Temp\"

Sub Sequence(object,images,exposure)
  for i = 1 to images
     Camera.Start(exposure)
     Camera.Wait
     fileName = object + Format$(i,"000")+ ".fit"
     Image.Save(dir + fileName)
     Image.Close
  next i
End Sub 

Sequence("M42", 3, 5.0)

2) What about filter wheel control? Here's an example:

Code: Select all

Sub Sequence(filter,object,images,exposure)
  Wheel.Goto(filter)
  for i = 1 to images
     Camera.Start(exposure)
     Camera.Wait
     fileName = object + Format$(i,"000")+ ".fit"
     Image.Save(dir + fileName)
     Image.Close
  next i
End Sub 

Sequence("R", "M42", 3, 5.0)

3) Sometimes it's useful to control the index of the sequence, here's a solution:

Code: Select all

dir = "C:\Temp\"

Sub Sequence(object,images,exposure,index)
  for i = 1 to images
     Camera.Start(exposure)
     Camera.Wait
     fileName = object + Format$(i+index,"000")+ ".fit"
     Image.Save(dir + fileName)
     Image.Close
  next i
End Sub 

Sequence("M42", 3, 5.0, 0)
Pause(10)
Sequence("M42", 3, 5.0, 3)
Pause(10)
Sequence("M42", 3, 5.0, 6)