Hi Bob.
I've been doing a little hacking and found that For some reason I can not get the move() function to move the focuser from FocusMax 4. Here's what I have tried.
Code:
Option Explicit ' Enforce variable declarations
Dim SUP, F ' Global for annunciators
Sub Main()
Set SUP = CreateObject("ACP.AcquireSupport")
Set F = CreateObject("FocusMax.Focuser")
Console.PrintLine "Start position: " & F.Position & " - Focuser is absolute: " & F.Absolute
Console.PrintLine "Adding 40 Steps"
F.Move(F.Position + 40)
Console.PrintLine "End Position: " & F.Position
End Sub
the result in the ACP log window is:
-------------
Start position: 29386 - Focuser is absolute: True
Adding 40 Steps
End Position: 29386
-------------
I've also made MoveFocuser() and SetFilterOffset() into public methods in AquireSupport.wsc. Here are the script and results.
MoveFocuser()
Code:
Option Explicit ' Enforce variable declarations
Dim SUP, F ' Global for annunciators
Sub Main()
Set SUP = CreateObject("ACP.AcquireSupport")
Set F = CreateObject("FocusMax.Focuser")
SUP.Initialize
Console.PrintLine "Start Position: " & F.Position
Console.PrintLine "MoveFocuser "
Call SUP.MoveFocuser (40, False)
Console.PrintLine "End Position: " & F.Position
SUP.Terminate
End Sub
Result
---------
Initializing AcquireSupport V8.0.7
Telescope is ACP->AstroPhysicsV2, driver V2
MaxIm DL is version 6.14
Imager is SBIG Universal
Using focus offsets and star mags from FilterInfo.txt
Selecting filter OIII from previous ACP run at 20170801@100428 UTC
Imager readout modes:
0 is Raw
1 is Raw w/RBI pre-flash
Guider is SBIG Universal (no rotator)
Guider plate scale is 2.5 arcsec/pix. Guided dither with main imager pixels
Max unguided exposure 60 sec.
(assuring that FocusMax is running now...)
Calculated unbinned plate scales (arcsec/pix): H = 1.29 V = 1.29
Calculated field of view (arcmin): H = 72.2 V = 54.5
Plate solving With GSC 1.1 (ok for wider fields)
All-sky plate solving will be attempted when needed
Start Position: 29386
MoveFocuser
End Position: 29386
------------
Code:
SetFilterOffset()
Option Explicit ' Enforce variable declarations
Dim SUP, F ' Global for annunciators
Sub Main()
Set SUP = CreateObject("ACP.AcquireSupport")
Set F = CreateObject("FocusMax.Focuser")
SUP.Initialize
Console.PrintLine "Start Position: " & F.Position
SUP.SetFilterOffset 4
Console.PrintLine "End Position: " & F.Position
SUP.Terminate
End Sub
Result:
-------------
Initializing AcquireSupport V8.0.7
Telescope is ACP->AstroPhysicsV2, driver V2
MaxIm DL is version 6.14
Imager is SBIG Universal
Using focus offsets and star mags from FilterInfo.txt
Selecting filter OIII from previous ACP run at 20170801@100428 UTC
Imager readout modes:
0 is Raw
1 is Raw w/RBI pre-flash
Guider is SBIG Universal (no rotator)
Guider plate scale is 2.5 arcsec/pix. Guided dither with main imager pixels
Max unguided exposure 60 sec.
(assuring that FocusMax is running now...)
Calculated unbinned plate scales (arcsec/pix): H = 1.29 V = 1.29
Calculated field of view (arcmin): H = 72.2 V = 54.5
Plate solving With GSC 1.1 (ok for wider fields)
All-sky plate solving will be attempted when needed
Start Position: 29386
Focus change of 208 steps required
End Position: 29386
------------
Perhaps I'm doing something wrong with MoveFocuser() and SetFilterOffset(), but I can't even get the simple move() function to work by connecting directly to FocusMax. I can obviously communicate with FocusMax because I can get the focuser position, but for some reason move() does nothing.
Let me know what you think.
Thanks.
Sam