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

'---------------------------------------------------------------
'
' *** header.vbs ***
'
' Usage: cscript header.vbs
' Example: cscript header.vbs testimage.fit
'
' Uses the ASCOM FITS image driver
' --> http://www.easysky.de/ASCOM/Image/FITS.htm
' and lists the image properties (FITS keywords) which
' are recognized by the driver.
'
' Matthias Busch (matthias.busch@easysky.de) 2003-07-20
'---------------------------------------------------------------

Function ListProperties(ByVal image)
On Error Resume Next
WScript.Echo "01 Airmass = " & image.Airmass
WScript.Echo "02 Altitude = " & image.Altitude
WScript.Echo "03 ApertureArea = " & image.ApertureArea
WScript.Echo "04 ApertureDiameter = " & image.ApertureDiameter
WScript.Echo "05 ArcsecPerPixelHoriz = " & image.ArcsecPerPixelHoriz
WScript.Echo "06 ArcsecPerPixelVert = " & image.ArcsecPerPixelVert
WScript.Echo "07 Azimuth = " & image.Azimuth
WScript.Echo "08 BinningHoriz = " & image.BinningHoriz
WScript.Echo "09 BinningVert = " & image.BinningVert
WScript.Echo "10 BlackLevel = " & image.BlackLevel
WScript.Echo "11 Camera = " & image.Camera
WScript.Echo "12 CCDTemperature = " & image.CCDTemperature
WScript.Echo "13 ColorBand = " & image.ColorBand
WScript.Echo "14 Columns = " & image.Columns
WScript.Echo "15 CreationSoftware = " & image.CreationSoftware
WScript.Echo "16 Declination = " & image.Declination
WScript.Echo "17 EGain = " & image.EGain
WScript.Echo "18 EMail = " & image.EMail
WScript.Echo "19 Equinox = " & image.Equinox
WScript.Echo "20 ExposureInterval = " & image.ExposureInterval
WScript.Echo "21 ExposureStartTime = " & image.ExposureStartTime
WScript.Echo "22 FilterName = " & image.FilterName
WScript.Echo "23 FocalLength = " & image.FocalLength
WScript.Echo "24 Humidity = " & image.Humidity
WScript.Echo "25 ImageType = " & image.ImageType
WScript.Echo "26 ModificationSoftware = " & image.ModificationSoftware
WScript.Echo "27 NumberOfImagesCombined = " & image.NumberOfImagesCombined
WScript.Echo "28 Observatory = " & image.Observatory
WScript.Echo "29 Observer = " & image.Observer
WScript.Echo "30 Pedestal = " & image.Pedestal
WScript.Echo "31 PixelSizeHoriz = " & image.PixelSizeHoriz
WScript.Echo "32 PixelSizeVert = " & image.PixelSizeVert
WScript.Echo "33 Pressure = " & image.Pressure
WScript.Echo "34 RightAscension = " & image.RightAscension
WScript.Echo "35 RollAngle = " & image.RollAngle
WScript.Echo "36 Rows = " & image.Rows
WScript.Echo "37 Saturation = " & image.Saturation
WScript.Echo "38 SiderealTime = " & image.SiderealTime
WScript.Echo "39 SiteElevation = " & image.SiteElevation
WScript.Echo "40 SiteLatitude = " & image.SiteLatitude
WScript.Echo "41 SiteLongitude = " & image.SiteLongitude
WScript.Echo "42 SubFrameXOrigin = " & image.SubFrameXOrigin
WScript.Echo "43 SubFrameYOrigin = " & image.SubFrameYOrigin
WScript.Echo "44 TargetDeclination = " & image.TargetDeclination
WScript.Echo "45 TargetName = " & image.TargetName
WScript.Echo "46 TargetRightAscension = " & image.TargetRightAscension
WScript.Echo "47 Telescope = " & image.Telescope
WScript.Echo "48 Temperature = " & image.Temperature
WScript.Echo "49 TrackingExposureInterval = " & image.TrackingExposureInterval
WScript.Echo "50 WhiteLevel = " & image.WhiteLevel
End Function

'---------------------------------------------------------------

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

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

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

' Read the file from disk
WScript.Echo "Parsing " & filename & "..."
image.ReadFromFile filename

' List FITS keywords of the image
WScript.Echo ""
ListProperties(image)
End Sub


'---
Main
'---