cartella$ = "c:\240913\"
t = 10
totale = 1400
i = 1
maxDist = 0.15
nCount = Telescope.List.Count
for n = 1 to nCount
  name$ = Telescope.List.Name$(n)
  code$ = Telescope.List.Name$(n)
  ra = Telescope.List.Ra(n)
  de = Telescope.List.Dec(n)
  rax$ = str$(ra)
  dex$ = str$(de)
  print "sto elaborando "+name$+" con RA "+rax$+" e DEC "+dex$
  print "eseguo il primo goto"
  eseguiPrimoGoto(objId)
  verificaCentro(objId)
  sequenza(1,totale)
next n

sub eseguiPrimoGoto(objId)
  print "eseguo il primo goto"
  ra = Telescope.List.Ra(n)
  de = Telescope.List.Dec(n)
  Telescope.Goto(ra,de)
  pause(20)
  camera.Start(1)
  Camera.Wait
  risultatoPlateSolve1 = Image.FindCoordinates(ra,de,4)
    if risultatoPlateSolve1 = 1 then
    print "plateSolve riuscito"
    dist2 = Image.DistanceFrom(ra,de)
      if dist2 > maxDist then
        Telescope.SyncTo(Image.RA,Image.DEC)
        Telescope.Goto(ra,de)
        pause(20)
      endif
    else
    print "plateSolve non riuscito"
endsub

sub verificaCentro(objId)
  camera.Start(1)
  Camera.Wait
  ra = Telescope.List.Ra(n)
  de = Telescope.List.Dec(n)
  risultatoPlateSolve1 = Image.FindCoordinates(ra,de,4)
    if risultatoPlateSolve1 = 1 then
      print "plateSolve riuscito"
      dist1 = Image.DistanceFrom(ra,de)
      dist1X$ = str$(dist1)	
      print "il valore dist1 è "+ dist1X$
        if dist1 > maxDist then
          print "Centering telescope after checking..."
          muoviTelescopioVerifica(objId)
        endif
     endif
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 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 centra(objId)
  print "verifico se devo centrare"
  raOff = 0
  deOff = 0  
  ra = Telescope.List.Ra(n)
  de = Telescope.List.Dec(n)
  risultatoPlateSolve = Image.FindCoordinates(ra,de,4)
    if risultatoPlateSolve = 1 then
      print "plateSolve riuscito"
      dist = Image.DistanceFrom(ra,de)
      distX$ = str$(dist)
      print "dist è pari a "+ distX$
        if dist > maxDist then
          muoviTelescopio(objId)
          verificaCentro(objId)
        Else
          print "non serve centrare...espongo"
        Endif
     Else
        print "plateSolve non riuscito..."
    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