From 806d23693a4c6c07689e5c122b6b5e06feb7d7bd Mon Sep 17 00:00:00 2001
From: vicvbcun <guix@ikherbers.com>
Date: Sun, 22 Dec 2024 17:26:54 +0000
Subject: [PATCH] gnu: Add tachyon.

* gnu/packages/graphics.scm (tachyon): New variable.

Change-Id: I57780c08c6b496e40459789d693b9b24fb4a9da8
Co-authored by: Vinicius Monego <monego@posteo.net>

Change-Id: I5914afad8d293787b9898a229084e6c79fbe8911
Signed-off-by: Danny Milosavljevic <dannym@friendly-machines.com>
---
 gnu/packages/graphics.scm | 59 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)

diff --git a/gnu/packages/graphics.scm b/gnu/packages/graphics.scm
index e89de12f96d8224edfd56f39ee72094fe2b92cec..c950b8a2aea2ec62acf3f61fdad67e1206e3f44b 100644
--- a/gnu/packages/graphics.scm
+++ b/gnu/packages/graphics.scm
@@ -789,6 +789,65 @@ shading in advanced renderers and other applications, ideal for describing
 materials, lights, displacement, and pattern generation.")
     (license license:bsd-3)))
 
+(define-public tachyon
+  (package
+    (name "tachyon")
+    (version "0.99.5")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "http://jedi.ks.uiuc.edu/~johns/raytracer/files/"
+                    version "/tachyon-" version ".tar.gz"))
+              (sha256
+               (base32
+                "1xd6h5d4v6dsnm6w46bdcr15fwkcz44p8dncymfry50i4c83q809"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list #:tests? #f                  ; no tests
+           #:make-flags #~(list "linux-thr")
+           #:phases
+           #~(modify-phases %standard-phases
+               (delete 'configure)
+               (add-after 'unpack 'prepare-src
+                 (lambda _
+                   (substitute* "unix/Make-arch"
+                     (("CC = cc")
+                      (string-append "CC = " #$(cc-for-target))))
+                   (chdir "unix")))
+               (add-before 'build 'enable-png-jpeg-support
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (substitute* "Make-config"
+                     (("USEJPEG=")
+                      "USEJPEG = -DUSEJPEG")
+                     (("JPEGLIB=")
+                      "JPEGLIB = -ljpeg")
+                     (("USEPNG=")
+                      "USEPNG = -DUSEPNG")
+                     (("PNGLIB=")
+                      "PNGLIB = -lpng -lz"))))
+               (add-before 'build 'fix-paths
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (substitute* "Make-config"
+                     (("SHELL=/bin/sh")
+                      (string-append "SHELL=" (which "sh"))))))
+               (replace 'install
+                 (lambda _
+                   (install-file "../compile/linux-thr/tachyon"
+                                 (string-append #$output "/bin"))
+                   (install-file "../compile/linux-thr/libtachyon.a"
+                                 (string-append #$output "/lib")))))))
+    (inputs (list libjpeg-turbo libpng))
+    ;; The server does not seem to be reliably accessible
+    (home-page "http://jedi.ks.uiuc.edu/~johns/raytracer/")
+    (synopsis "Multithreaded ray tracing software")
+    (description
+     "This package contains the Tachyon raytracer.  It supports the typical
+ray tracer features, most of the common geometric primitives, shading and
+texturing modes, etc.  It also supports less common features such as HDR image
+output, ambient occlusion lighting, and support for various triangle mesh and
+volumetric texture formats beneficial for molecular visualization.")
+    (license license:bsd-3)))
+
 (define-public cgal
   (package
     (name "cgal")