Expose SGBucket index computation to Nasal.

diff --git a/src/Scripting/NasalPositioned.cxx b/src/Scripting/NasalPositioned.cxx
index 18f2b1032ce839f94bc6b1d2662545d592320eb9..c2b0751de5cfe623a7d762d09adf17d0ce7fc65c 100644 (file)
--- a/src/Scripting/NasalPositioned.cxx
+++ b/src/Scripting/NasalPositioned.cxx
@@ -938,6 +938,14 @@ static naRef f_tilePath(naContext c, naRef me, int argc, naRef* args)
     return stringToNasal(c, b.gen_base_path());
 }
 
+static naRef f_tileIndex(naContext c, naRef me, int argc, naRef* args)
+{
+  SGGeod pos = globals->get_aircraft_position();
+  geodFromArgs(args, 0, argc, pos);
+  SGBucket b(pos);
+  return naNum(b.gen_index());
+}
+
 static naRef f_route(naContext c, naRef me, int argc, naRef* args)
 {
   naRef route = naNewHash(c);
@@ -1082,7 +1090,8 @@ static struct { const char* name; naCFunction func; } funcs[] = {
   { "magvar", f_magvar },
   { "courseAndDistance", f_courseAndDistance },
   { "greatCircleMove", f_greatCircleMove },
-  { "bucketPath", f_tilePath },
+  { "tileIndex", f_tileIndex },
+  { "tilePath", f_tilePath },
   { 0, 0 }
 };