From aeb153cdd6cb37dc1e9d61b22a92430a756ddeb5 Mon Sep 17 00:00:00 2001
From: rodri <rgl@antares-labs.eu>
Date: Sun, 12 May 2024 20:34:03 +0000
Subject: began work on a solar system planetarium.

---
 tools/horizon.api.get | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 tools/horizon.api.get

(limited to 'tools/horizon.api.get')

diff --git a/tools/horizon.api.get b/tools/horizon.api.get
new file mode 100755
index 0000000..22a909e
--- /dev/null
+++ b/tools/horizon.api.get
@@ -0,0 +1,29 @@
+#!/bin/rc
+#
+# NASA JPL Horizons API
+# https://ssd.jpl.nasa.gov/horizons/
+#
+rfork ne
+center=()
+target=()
+t0=()
+t1=()
+step=()
+flagfmt=''
+args='center target t0 t1 step'
+
+fn usage {
+	aux/usage
+	exit usage
+}
+
+if(! ifs=() eval `{aux/getflags $*} || ! ~ $#* 5)
+	usage
+
+center=$1
+target=$2
+t0=$3
+t1=$4
+step=$5
+
+hget 'https://ssd.jpl.nasa.gov/api/horizons.api?format=text&COMMAND='''$target'''&OBJ_DATA=''YES''&MAKE_EPHEM=''YES''&EPHEM_TYPE=''VECTORS''&CENTER='''$center'''&START_TIME='''$t0'''&STOP_TIME='''$t1'''&STEP_SIZE='''$step'''&VEC_TABLE=''1'''
-- 
cgit v1.2.3