Документ взят из кэша поисковой машины. Адрес оригинального документа : http://vega.inp.nsk.su/~inest/ASCOM/Scriptable%20Components%20and%20Engines/ASCOM%20FITS%20driver/create.vbs Дата изменения: Tue Jan 24 10:46:36 2006 Дата индексирования: Mon Oct 1 20:41:35 2012 Кодировка: Поисковые слова: iapetus

'---------------------------------------------------------------
'
' *** create.vbs ***
'
' Usage: cscript create.vbs
' Example: cscript create.vbs testimage.fit
'
' Uses the ASCOM FITS image driver
' --> http://www.easysky.de/ASCOM/Image/FITS.htm
' to create a new FITS file from scratch
' and sets some example properties.
'
' A pseudo image is obtained from the CCD camera simulator
' --> http://www.easysky.de/ASCOM/Camera/Simulator.htm
' which implements the current Camera standard proposal
' at http://ascom-standards.org/CamProp3.html
'
' Matthias Busch (matthias.busch@easysky.de) 2003-07-20
'---------------------------------------------------------------

Sub Main
If WScript.Arguments.Count = 0 Then
WScript.Echo "please specify an output filename as argument"
Exit Sub
End If

' First argument is the FITS file to create
filename = WScript.Arguments.Item(0)

exposuretime = 2 ' seconds

' Create the CCD simulator object
Set camera = CreateObject("CCDSimulator.Camera")

camera.Connected = True

' "expose" with the simulator
WScript.Echo "exposing " & exposuretime & " seconds..."
exposurestarttime = now
camera.StartExposure exposuretime, True
While Not camera.ImageReady
WScript.Sleep 100
Wend
WScript.Echo "shutter closed."
WScript.Echo

WScript.Echo "creating " & filename & "..."

' Create the ASCOM FITS driver object
Set image = CreateObject("FITS.Image")

' Fetch image array (raw pixel data) from the camera
' and feed it directly to our image object
image.ImageArrayVariant = camera.ImageArrayVariant

' Set some properties for our new FITS file
image.Camera = "Apogee AP7b"
image.CCDTemperature = camera.CCDTemperature
image.CreationSoftware = "Test VBS script"
image.EMail = "matthias.busch@easysky.de"
image.Equinox = 2000.0
image.ExposureInterval = exposuretime
image.ExposureStartTime = exposurestarttime
image.FilterName = "Johnson V"
image.Observatory = "611 Starkenburg"
image.Observer = "M. Busch"
image.TargetDeclination = 28.3
image.TargetName = "2002 NY40"
image.TargetRightAscension = 5.6734
image.Telescope = "0.45-m f/4.4 reflector"
image.Temperature = camera.HeatSinkTemperature

' Finally create the new FITS file
image.WriteToFile filename
WScript.Echo "done."

End Sub

'---
Main
'---