cartella$ = "c:\240913\ngc891\"
code$ = "NGC891_"
t = 10
totale = 2000
i = 1
pSe = 0
maxpSe = 10

sub muoviTelescopio(objId)
print "Centering telescope..."
         raOff = Image.RA - ra
deOff = Image.DEC - de
print raOff
	print deOff
print "muovo telescopio.."
Telescope.Goto(ra - raOff, de - deOff)
pause(20)
endsub

sub muoviTelescopioVerifica(objId)
raOff1 = Image.RA - ra
deOff1 = Image.DEC - de
print "eseguo il controllo..."
print raOff1
	print deOff1
print "muovo telescopio..x correzione successiva"
Telescope.Goto(ra - (raOff-raOff1), de - (deOff-deOff1))
pause(20)
endsub

sub eseguiGoto(objId)
print "eseguo il goto"
ra = Telescope.List.Ra(1)
  de = Telescope.List.Dec(1)
print ra
print de
Telescope.Goto(ra,de)
pause(20)
endsub

sub centra(objId)
  print "verifico se devo centrare"
raOff = 0
deOff = 0  
ra = Telescope.List.Ra(1)
  de = Telescope.List.Dec(1)
  ozza = Image.FindCoordinates(ra,de,4)
  if ozza = 1 then
     print "plateSolve riuscito"
     dist = Image.DistanceFrom(ra,de)
print dist
     if dist > 0.15 then
muoviTelescopio(objId)
verificaCentro(objId)
	Else
        print "non serve centrare...espongo"
     Endif
  Else
     print "plateSolve non riuscito..."
	print pSe
	pSe = pSe +1
	if pSe > maxPse then
print "raggiunto massimo errore plate solve consentito...procedo con goto"
eseguiGoto(objId)
verificaCentro(objId)
pSe = 0  
endif
endsub

sub verificaCentro(objId)
camera.Start(1)
Camera.Wait
ra = Telescope.List.Ra(1)
  de = Telescope.List.Dec(1)
  ozza1 = Image.FindCoordinates(ra,de,4)
  if ozza1 = 1 then
     print "plateSolve riuscito"
     dist1 = Image.DistanceFrom(ra,de)
	print dist1
if dist1 > 0.15 then
        print "Centering telescope after checking..."
         muoviTelescopioVerifica(objId)
endif
endif
endsub

sub esponi(expo,num)
   Camera.Start(expo)
   Camera.Wait
   n$ = str$(num)
   while len(n$) < 4 
     n$ = "0" + n$
   endwhile
   file$ = cartella$ + code$ + n$ + ".fit"
   Image.Save(file$)
   print file$
endsub
sub sequenza(objId,numExp)
     for i = 1 to numExp
 esponi(t,i)
centra(objId)    
next i
endsub

sequenza(1,totale)