cartella$ = "c:\050514\m57\"
cartella1$ ="c:\050514\nonRiuscite\"
cartella2$ ="c:\050514\bin6\" 
code$ = "m57_"
t = 20
totale = 3000
i = 1
maxDist = 0.1
objId = Telescope.List.Name$(1)
maxPsn = 20
psn = 0
maxDistGoto = 0.3
accadimenti$ = "C:\240414\240414.txt"
n1 = 0
limitePSN = 0

sub centra(objId)
plateSolve(objId)
if risultatoPlateSolve = 1 then
  analizzaImmagine(objId)
    if dist < maxDist  then
      print "non serve centrare...espongo"
      Output.Save(accadimenti$)
    else
      Telescope.SyncTo(Image.RA,Image.DEC)
      gotoOggetto(objId)
      verificaCentro(objId)
    endif
else
   fileZ$ = cartella1$ + code$ + n$ + ".fit"
   Image.Save(fileZ$)
   print fileZ$
   print "plateSolve non riuscito"
   Output.Save(accadimenti$)
   verificaPlateSolve(objId)
    if limitePSN = 1 then
       gotoOggetto(objId)
       limitePSN = 0
    endif
endif
endsub

sub verificaCentro(objId)
while dist > maxDist  
esponiPerCentrare(1,1)
plateSolve(objId)
  if risultatoPlateSolve = 1 then
    analizzaImmagine(objId)
      if (dist < maxDistGoto) and (dist > maxDist) then
        muoviTelescopio(obJid)
          else
            if (dist > maxDistGoto) then
              print "superato maxDistGoto - procedo con SyncTo e goto"
              Telescope.SyncTo(Image.RA,Image.DEC)
              gotoOggetto(objId)
            endif
      endif
  else
     verificaPlateSolve(objId)
      if limitePSN = 1 then
         limitePSN = 0
         gotoOggetto(objId)           
      endif  
  endif
endwhile
endsub

sub analizzaImmagine(objId)
  dist = Image.DistanceFrom(ra,de)
  print dist,Image.RA,Image.DEC 
  raOff = Image.RA - ra
  deOff = Image.DEC - de
  azza$ = code$ + n$
  print azza$,raOff,deOff
  Output.Save(accadimenti$)
endsub

sub plateSolve(objId)
  print "verifico se devo centrare"
  ra = Telescope.List.Ra(1)
  de = Telescope.List.Dec(1)
  risultatoPlateSolve = Image.FindCoordinates(ra,de,4)
endsub

sub muoviTelescopio(objId)
  print "Muovo il telescopio"
  Output.Save(accadimenti$)
  Telescope.Goto(ra - raOff, de - deOff)
  pause(10)
endsub

sub gotoOggetto(objId)
  print "eseguoGoto"
  ra = Telescope.List.Ra(1)
  de = Telescope.List.Dec(1)
  Telescope.Goto(ra,de)
  pause(20)
endsub

sub esponi(expo,num)
Camera.Binning(3)   
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

sub esponiPerCentrare(expo,num)
Camera.Binning(6)   
Camera.Start(1)
Camera.Wait
n1 = n1 + 1
n1$ = str$(n1)
while len(n1$) < 4 
n1$ = "0" + n1$
endwhile
fileX$ = cartella2$ + code$ + n1$ + ".fit"
Image.Save(fileX$)
print fileX$
endsub

sub verificaPlateSolve(objId)
if psn > maxPsn then
limitePSN = 1

else
psn = psn +1
endif
endsub

sequenza(1,totale)