Astroart Forum

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