Up side down

Scripts and programs to automate Astroart
Post Reply
User avatar
Morten Lerager
Posts: 69
Joined: 08 Oct 2021, 14:53
Location: Denmark

Up side down

Post by Morten Lerager » 03 Nov 2023, 14:01

Hi'
Here are a little neet macro i use to place a picture
the "right" way. It has to be plate solved first.

' *** AstroArt 8 ***
' *** 23:09:23 Morten Lerager ***
' The selected Image will be Fliped arccording to N/E
' A Choice to rotate the Image N up.
'
' Get two coordinate
ra1,de1 = Image.RaDec(50, 50)
ra2,de2 = Image.RaDec(150, 150)
If ra2>ra1 then
Image.FlipH
End If
If de1>de2 Then
Image.FlipV
End If
'Image.FindCoordinates (ra,de,stars,[search],[fovarcmin])
ra,de = Image.RaDec()
PixScale=1.26
fovarcmin=PixScale*Image.Width/60
print fovarcmin
Image.FindCoordinates (ra,de,5,3,fovarcmin)
Rot=Image.Rotation*-1
resp = InputButton("Roter", "Yes", "No")
if resp = "Yes" then
Image.Rotate(Rot)
Image.FindCoordinates (ra,de,5,3,fovarcmin)
end if
HEQ5 Pro 150PDS 60mm guide. Asiair.
Asi294mc. AA8.

Post Reply