APSF,0,,-1,-1;-1;-1;-1;-1;-00;-00;-0;-;-;-;-;;-|;-|;-|;+;-
// Get RA/Dec coords from a Temma mount and display on the FOV chart
// For Mac OS X only
// Requires cocoaTemma (http://homepage.mac.com/chen/cocoaTemmaPage/)
//   more Applescript help at (http://homepage.mac.com/chen/cocoaTemmaPage/AppleScripting/)
// Make sure mount is running and aligned before using this script
// CocoaTemma should also be running
// Paul Rodman, Dec 2006

const UseEmulator = FALSE // Set to TRUE if you are using the emulator in cocoaTemma

function GetTemmaCoords(byref ra as double, byref dec as double) as integer
  
  // Returns: 0 = successful, -1 = could not connect 
  
  dim script(-1),rslt(-1),s as string
  
  script.Append "on run argv"
  script.Append "  tell application ""cocoaTemma"""
  script.Append "    repeat"
  script.Append "      if ready then exit repeat"
  script.Append "      delay 1"
  script.Append "    end repeat"
  script.Append "    if not connected then"
  if UseEmulator then
    script.Append "      connectToEmulator"
  else
    script.Append "      set connected to true"
  end if
  script.Append "      repeat"
  script.Append "        if connected then exit repeat" 
  script.Append "        delay 1" 
  script.Append "      end repeat" 
  script.Append "    end if" 
  script.Append "    if connected then" 
  script.Append "      fetchLocation" 
  script.Append "      return raHours & raMinutes & raSeconds & decSign & decDegrees & decMinutes & decseconds"
  script.Append "    end if"
  script.Append "    return -1"
  script.Append "  end tell"
  script.Append "end run"
    
  s=AppleScript(Join(script,chr(13)))
  print s
  rslt=Split(s,",")
  if val(rslt(0))=-1 then return -1
  ra=val(rslt(0))+val(rslt(1))/60.0+val(rslt(2))/3600.0
  dec=val(rslt(4))+val(rslt(5))/60.0+val(rslt(6))/3600.0
  dec=dec*val(rslt(3))
  return 0
end function

dim ra,dec as double

if Platform<>platform_MacOSX then
  Bleep
  print "Only for Mac OS X!"
  return
end if

select case GetTemmaCoords(ra,dec)
case -1
  Bleep
  print "Could not connect to telescope"
case 0
  SetFOVCenter(ra,dec)
end select