1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2016 John Darrington <jmd@gnu.org>
3 ;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
4 ;;; Copyright © 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
5 ;;; Copyright © 2019 by Amar Singh <nly@disroot.org>
6 ;;; Copyright © 2020 R Veera Kumar <vkor@vkten.in>
7 ;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net>
9 ;;; This file is part of GNU Guix.
11 ;;; GNU Guix is free software; you can redistribute it and/or modify it
12 ;;; under the terms of the GNU General Public License as published by
13 ;;; the Free Software Foundation; either version 3 of the License, or (at
14 ;;; your option) any later version.
16 ;;; GNU Guix is distributed in the hope that it will be useful, but
17 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;;; GNU General Public License for more details.
21 ;;; You should have received a copy of the GNU General Public License
22 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
24 (define-module (gnu packages astronomy)
25 #:use-module (guix packages)
26 #:use-module ((guix licenses) #:prefix license:)
27 #:use-module (guix download)
28 #:use-module (guix git-download)
29 #:use-module (guix utils)
30 #:use-module (gnu packages)
31 #:use-module (gnu packages autotools)
32 #:use-module (gnu packages curl)
33 #:use-module (gnu packages glib)
34 #:use-module (gnu packages image)
35 #:use-module (gnu packages compression)
36 #:use-module (gnu packages fontutils)
37 #:use-module (gnu packages gettext)
38 #:use-module (gnu packages version-control)
39 #:use-module (gnu packages pkg-config)
40 #:use-module (gnu packages xiph)
41 #:use-module (gnu packages pretty-print)
42 #:use-module (gnu packages algebra)
43 #:use-module (gnu packages lua)
44 #:use-module (gnu packages perl)
45 #:use-module (gnu packages gl)
46 #:use-module (gnu packages qt)
47 #:use-module (gnu packages gtk)
48 #:use-module (gnu packages gnome)
49 #:use-module (gnu packages maths)
50 #:use-module (gnu packages netpbm)
51 #:use-module (gnu packages xorg)
52 #:use-module (guix build-system cmake)
53 #:use-module (guix build-system gnu)
54 #:use-module (srfi srfi-1))
56 (define-public cfitsio
64 "http://heasarc.gsfc.nasa.gov/FTP/software/fitsio/c/"
65 name "-" version ".tar.gz"))
67 (base32 "1vzlxnrjckz78p2wf148v2z3krkwnykfqvlj42sz3q711vqid1a1"))))
68 (build-system gnu-build-system)
69 ;; XXX Building with curl currently breaks wcslib. It doesn't use
70 ;; pkg-config and hence won't link with -lcurl.
72 `(#:tests? #f ; no tests
74 (modify-phases %standard-phases
75 (add-after 'unpack 'patch-paths
77 (substitute* "Makefile.in" (("/bin/") ""))
79 (home-page "https://heasarc.gsfc.nasa.gov/fitsio/fitsio.html")
80 (synopsis "Library for reading and writing FITS files")
81 (description "CFITSIO provides simple high-level routines for reading and
82 writing @dfn{FITS} (Flexible Image Transport System) files that insulate the
83 programmer from the internal complexities of the FITS format. CFITSIO also
84 provides many advanced features for manipulating and filtering the information
86 (license (license:non-copyleft "file://License.txt"
87 "See License.txt in the distribution."))))
97 "ftp://ftp.atnf.csiro.au/pub/software/wcslib/wcslib-" version
100 (base32 "003h23m6d5wcs29v2vbnl63f3z35k5x70lpsqlz5c9bp1bvizh8k"))))
102 `(("cfitsio" ,cfitsio)))
103 (build-system gnu-build-system)
106 (list (string-append "--with-cfitsiolib="
107 (assoc-ref %build-inputs "cfitsio") "/lib")
108 (string-append "--with-cfitsioinc="
109 (assoc-ref %build-inputs "cfitsio") "/include"))
111 (modify-phases %standard-phases
112 (add-before 'configure 'patch-/bin/sh
114 (substitute* "makedefs.in"
117 (delete 'install-license-files)) ; installed by ‘make install’
118 ;; Parallel execution of the test suite is not supported.
119 #:parallel-tests? #f))
120 (home-page "https://www.atnf.csiro.au/people/mcalabre/WCS")
121 (synopsis "Library which implements the FITS WCS standard")
122 (description "The FITS \"World Coordinate System\" (@dfn{WCS}) standard
123 defines keywords and usage that provide for the description of astronomical
124 coordinate systems in a @dfn{FITS} (Flexible Image Transport System) image
126 (license license:lgpl3+)))
128 (define-public gnuastro
135 (uri (string-append "mirror://gnu/gnuastro/gnuastro-"
139 "0c1yc2qb7vrqad96savfn06rn01izlfz0va738signv93qqj5k3v"))))
141 `(("cfitsio" ,cfitsio)
148 `(("libtool" ,libtool)
150 (build-system gnu-build-system)
151 (home-page "https://www.gnu.org/software/gnuastro/")
152 (synopsis "Astronomy utilities")
153 (description "The GNU Astronomy Utilities (Gnuastro) is a suite of
154 programs for the manipulation and analysis of astronomical data.")
155 (license license:gpl3+)))
157 (define-public stellarium
164 (uri (string-append "https://github.com/Stellarium/stellarium"
165 "/releases/download/v" version
166 "/stellarium-" version ".tar.gz"))
168 (base32 "0p92rgclag0nkic9gk3p9vclb8xx9hv4zlgyij6cyh43s7c1avhp"))))
169 (build-system cmake-build-system)
172 ("qtlocation" ,qtlocation)
173 ("qtmultimedia" ,qtmultimedia)
174 ("qtscript" ,qtscript)
175 ("qtserialport" ,qtserialport)
178 `(("gettext" ,gettext-minimal) ; xgettext is used at compile time
179 ("perl" ,perl) ; For pod2man
180 ("qtbase" ,qtbase) ; Qt MOC is needed at compile time
181 ("qttools" ,qttools)))
183 `(#:test-target "test"
184 #:configure-flags (list "-DENABLE_TESTING=1"
186 "-DCMAKE_CXX_FLAGS=-isystem "
187 (assoc-ref %build-inputs "qtserialport")
189 #:phases (modify-phases %standard-phases
190 (add-before 'check 'set-offscreen-display
192 ;; make Qt render "offscreen", required for tests
193 (setenv "QT_QPA_PLATFORM" "offscreen")
194 (setenv "HOME" "/tmp")
196 (home-page "https://stellarium.org/")
197 (synopsis "3D sky viewer")
198 (description "Stellarium is a planetarium. It shows a realistic sky in
199 3D, just like what you see with the naked eye, binoculars, or a telescope. It
200 can be used to control telescopes over a serial port for tracking celestial
202 (license license:gpl2+)))
204 (define-public celestia
205 (let ((commit "9dbdf29c4ac3d20afb2d9a80d3dff241ecf81dce"))
208 (version (git-version "1.6.1" "815" commit))
212 (url "https://github.com/celestiaproject/celestia")
214 (file-name (git-file-name name version))
217 "00xibg87l1arzifakgj7s828x9pszcgx7x7ij88a561ig49ryh78"))))
218 (build-system cmake-build-system)
222 ("pkg-config" ,pkg-config)
224 ("gettext" ,gettext-minimal)))
228 ("libtheora" ,libtheora)
233 ;; optional: fmtlib, Eigen3;
236 ;; glut: for glut interface
237 ("freeglut" ,freeglut)))
241 `(#:configure-flags '("-DENABLE_GLUT=ON" "-DENABLE_QT=OFF")
242 #:tests? #f)) ;no tests
243 (home-page "https://celestia.space/")
244 (synopsis "Real-time 3D visualization of space")
246 "This simulation program lets you explore our universe in three
247 dimensions. Celestia simulates many different types of celestial objects.
248 From planets and moons to star clusters and galaxies, you can visit every
249 object in the expandable database and view it from any point in space and
250 time. The position and movement of solar system objects is calculated
251 accurately in real time at any rate desired.")
252 (license license:gpl2+))))
254 (define-public celestia-gtk
257 (name "celestia-gtk")
259 (append (alist-delete "freeglut" (package-inputs celestia))
261 ("gtkglext" ,gtkglext))))
263 `(#:configure-flags '("-DENABLE_GTK=ON" "-DENABLE_QT=OFF")
266 (define-public libnova
274 (url "https://git.code.sf.net/p/libnova/libnova.git")
275 (commit (string-append "v" version))))
276 (file-name (git-file-name name version))
279 "0icwylwkixihzni0kgl0j8dx3qhqvym6zv2hkw2dy6v9zvysrb1b"))))
280 (build-system gnu-build-system)
283 (modify-phases %standard-phases
284 (add-after 'unpack 'patch-git-version
286 (substitute* "./git-version-gen"
287 (("/bin/sh") (which "sh")))
290 `(("autoconf" ,autoconf)
291 ("automake" ,automake)
292 ("libtool" ,libtool)))
293 (synopsis "Celestial mechanics, astrometry and astrodynamics library")
294 (description "Libnova is a general purpose, double precision, Celestial
295 Mechanics, Astrometry and Astrodynamics library.")
296 (home-page "http://libnova.sourceforge.net/")
297 (license (list license:lgpl2.0+
298 license:gpl2+)))) ; examples/transforms.c & lntest/*.c
300 (define-public xplanet
309 "mirror://sourceforge/xplanet/xplanet/"
310 version "/xplanet-" version ".tar.gz"))
312 (base32 "1rzc1alph03j67lrr66499zl0wqndiipmj99nqgvh9xzm1qdb023"))
315 "xplanet-1.3.1-cxx11-eof.patch"
316 "xplanet-1.3.1-libdisplay_DisplayOutput.cpp.patch"
317 "xplanet-1.3.1-libimage_gif.c.patch"
318 "xplanet-1.3.1-xpUtil-Add2017LeapSecond.cpp.patch"))))
319 (build-system gnu-build-system)
321 `(("pkg-config" ,pkg-config)))
324 ("libxscrnsaver" ,libxscrnsaver)
326 ("freetype" ,freetype)
336 (let ((netpbm (assoc-ref %build-inputs "netpbm")))
338 ;; Give correct path for pnm.h header to configure script
339 (string-append "CPPFLAGS=-I" netpbm "/include/netpbm")
340 ;; no nasa jpl cspice support
341 "--without-cspice" )))))
342 (home-page "http://xplanet.sourceforge.net/")
343 (synopsis "Planetary body renderer")
345 "Xplanet renders an image of a planet into an X window or file.
346 All of the major planets and most satellites can be drawn and different map
347 projections are also supported, including azimuthal, hemisphere, Lambert,
348 Mercator, Mollweide, Peters, polyconic, orthographic and rectangular.")
349 (license license:gpl2+)))
351 (define-public gpredict
358 (uri (string-append "https://github.com/csete/gpredict/releases"
359 "/download/v" version
360 "/gpredict-" version ".tar.bz2"))
362 (base32 "0hwf97kng1zy8rxyglw04x89p0bg07zq30hgghm20yxiw2xc8ng7"))))
363 (build-system gnu-build-system)
365 `(("intltool" ,intltool)
366 ("gettext" ,gettext-minimal)
367 ("pkg-config" ,pkg-config)))
371 ("goocanvas" ,goocanvas)
375 (modify-phases %standard-phases
376 (add-after 'unpack 'fix-tests
378 ;; Remove reference to non-existent file.
379 (substitute* "po/POTFILES.in"
380 (("src/gtk-sat-tree\\.c")
383 (synopsis "Satellite tracking and orbit prediction application")
385 "Gpredict is a real-time satellite tracking and orbit prediction
386 application. It can track a large number of satellites and display their
387 position and other data in lists, tables, maps, and polar plots (radar view).
388 Gpredict can also predict the time of future passes for a satellite, and
389 provide you with detailed information about each pass.")
390 (home-page "http://gpredict.oz9aec.net/index.php")
391 (license license:gpl2+)))