gnu/packages/graphics.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2015 Tomáš Čech <sleep_walker@gnu.org>
   4 ;;; Copyright © 2016, 2019 Leo Famulari <leo@famulari.name>
   5 ;;; Copyright © 2016, 2017, 2019 Ricardo Wurmus <rekado@elephly.net>
   6 ;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il>
   7 ;;; Copyright © 2016 Andreas Enge <andreas@enge.fr>
   8 ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
   9 ;;; Copyright © 2017, 2018 Ben Woodcroft <donttrustben@gmail.com>
  10 ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
  11 ;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
  12 ;;; Copyright © 2018 Alex Kost <alezost@gmail.com>
  13 ;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net>
  14 ;;; Copyright © 2019, 2020 Mark H Weaver <mhw@netris.org>
  15 ;;; Copyright © 2019 Carlo Zancanaro <carlo@zancanaro.id.au>
  16 ;;; Copyright © 2019 Steve Sprang <scs@stevesprang.com>
  17 ;;; Copyright © 2019 John Soo <jsoo1@asu.edu>
  18 ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
  19 ;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
  20 ;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
  21 ;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
  22 ;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  23 ;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
  24 ;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  25 ;;; Copyright © 2020 Gabriel Arazas <foo.dogsquared@gmail.com>
  26 ;;;
  27 ;;; This file is part of GNU Guix.
  28 ;;;
  29 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  30 ;;; under the terms of the GNU General Public License as published by
  31 ;;; the Free Software Foundation; either version 3 of the License, or (at
  32 ;;; your option) any later version.
  33 ;;;
  34 ;;; GNU Guix is distributed in the hope that it will be useful, but
  35 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  36 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  37 ;;; GNU General Public License for more details.
  38 ;;;
  39 ;;; You should have received a copy of the GNU General Public License
  40 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  41
  42 (define-module (gnu packages graphics)
  43   #:use-module (gnu packages)
  44   #:use-module (gnu packages algebra)
  45   #:use-module (gnu packages audio)
  46   #:use-module (gnu packages autotools)
  47   #:use-module (gnu packages base)
  48   #:use-module (gnu packages bash)
  49   #:use-module (gnu packages bison)
  50   #:use-module (gnu packages boost)
  51   #:use-module (gnu packages cdrom)
  52   #:use-module (gnu packages check)
  53   #:use-module (gnu packages compression)
  54   #:use-module (gnu packages crypto)
  55   #:use-module (gnu packages datastructures)
  56   #:use-module (gnu packages documentation)
  57   #:use-module (gnu packages flex)
  58   #:use-module (gnu packages fonts)
  59   #:use-module (gnu packages fontutils)
  60   #:use-module (gnu packages freedesktop)
  61   #:use-module (gnu packages gettext)
  62   #:use-module (gnu packages ghostscript)
  63   #:use-module (gnu packages gl)
  64   #:use-module (gnu packages glib)
  65   #:use-module (gnu packages gnome)
  66   #:use-module (gnu packages gnunet)
  67   #:use-module (gnu packages graphviz)
  68   #:use-module (gnu packages gstreamer)
  69   #:use-module (gnu packages gtk)
  70   #:use-module (gnu packages haskell-xyz)
  71   #:use-module (gnu packages image)
  72   #:use-module (gnu packages image-processing)
  73   #:use-module (gnu packages imagemagick)
  74   #:use-module (gnu packages jemalloc)
  75   #:use-module (gnu packages kde-frameworks)
  76   #:use-module (gnu packages linux)
  77   #:use-module (gnu packages lua)
  78   #:use-module (gnu packages maths)
  79   #:use-module (gnu packages mp3)
  80   #:use-module (gnu packages multiprecision)
  81   #:use-module (gnu packages pdf)
  82   #:use-module (gnu packages perl)
  83   #:use-module (gnu packages photo)
  84   #:use-module (gnu packages pkg-config)
  85   #:use-module (gnu packages plotutils)
  86   #:use-module (gnu packages pth)
  87   #:use-module (gnu packages pulseaudio)  ; libsndfile, libsamplerate
  88   #:use-module (gnu packages python)
  89   #:use-module (gnu packages python-xyz)
  90   #:use-module (gnu packages qt)
  91   #:use-module (gnu packages readline)
  92   #:use-module (gnu packages sdl)
  93   #:use-module (gnu packages swig)
  94   #:use-module (gnu packages tbb)
  95   #:use-module (gnu packages upnp)
  96   #:use-module (gnu packages video)
  97   #:use-module (gnu packages xiph)
  98   #:use-module (gnu packages xml)
  99   #:use-module (gnu packages xorg)
 100   #:use-module (gnu packages xdisorg)
 101   #:use-module (guix build-system copy)
 102   #:use-module (guix build-system cmake)
 103   #:use-module (guix build-system gnu)
 104   #:use-module (guix build-system meson)
 105   #:use-module (guix build-system python)
 106   #:use-module (guix build-system qt)
 107   #:use-module (guix download)
 108   #:use-module (guix git-download)
 109   #:use-module (guix hg-download)
 110   #:use-module ((guix licenses) #:prefix license:)
 111   #:use-module (guix packages)
 112   #:use-module (guix utils))
 113
 114 (define-public eglexternalplatform
 115   (package
 116     (name "eglexternalplatform")
 117     (version "1.1")
 118     (source
 119      (origin
 120        (method git-fetch)
 121        (uri
 122         (git-reference
 123          (url "https://github.com/NVIDIA/eglexternalplatform.git")
 124          (commit version)))
 125        (file-name
 126         (git-file-name name version))
 127        (sha256
 128         (base32 "0lr5s2xa1zn220ghmbsiwgmx77l156wk54c7hybia0xpr9yr2nhb"))))
 129     (build-system copy-build-system)
 130     (arguments
 131      `(#:phases
 132        (modify-phases %standard-phases
 133          (add-after 'unpack 'patch-pkgconfig
 134            (lambda* (#:key outputs #:allow-other-keys)
 135              (substitute* "eglexternalplatform.pc"
 136                (("/usr")
 137                 (assoc-ref outputs "out")))
 138              #t))
 139          (add-after 'install 'revise
 140            (lambda* (#:key outputs #:allow-other-keys)
 141              (let* ((out (assoc-ref outputs "out")))
 142                (mkdir-p (string-append out "/include/EGL"))
 143                (rename-file
 144                 (string-append out "/interface")
 145                 (string-append out "/include/EGL"))
 146                (mkdir-p (string-append out "/share/pkgconfig"))
 147                (rename-file
 148                 (string-append out "/eglexternalplatform.pc")
 149                 (string-append out "/share/pkgconfig/eglexternalplatform.pc"))
 150                (for-each delete-file-recursively
 151                          (list
 152                           (string-append out "/samples")
 153                           (string-append out "/COPYING")
 154                           (string-append out "/README.md"))))
 155              #t)))))
 156     (synopsis "EGL External Platform interface")
 157     (description "EGLExternalPlatform is an specification of the EGL External
 158 Platform interface for writing EGL platforms and their interactions with modern
 159 window systems on top of existing low-level EGL platform implementations.  This
 160 keeps window system implementation specifics out of EGL drivers by using
 161 application-facing EGL functions.")
 162     (home-page "https://github.com/NVIDIA/eglexternalplatform")
 163     (license license:expat)))
 164
 165 (define-public egl-wayland
 166   (package
 167     (name "egl-wayland")
 168     (version "1.1.5")
 169     (source
 170      (origin
 171        (method git-fetch)
 172        (uri
 173         (git-reference
 174          (url "https://github.com/NVIDIA/egl-wayland.git")
 175          (commit version)))
 176        (file-name
 177         (git-file-name name version))
 178        (sha256
 179         (base32 "09r6a69z75j3hb9751g3ap4gm1xn71aw3j7z0c7jns292cnaa76n"))))
 180     (build-system meson-build-system)
 181     (native-inputs
 182      `(("pkg-config" ,pkg-config)))
 183     (inputs
 184      `(("mesa" ,mesa)
 185        ("wayland" ,wayland)))
 186     (propagated-inputs
 187      `(("eglexternalplatform" ,eglexternalplatform)))
 188     (synopsis "EGLStream-based Wayland external platform")
 189     (description "EGL-Wayland is an implementation of a EGL External Platform
 190 library to add client-side Wayland support to EGL on top of EGLDevice and
 191 EGLStream families of extensions.")
 192     (home-page "https://github.com/NVIDIA/egl-wayland")
 193     (license license:expat)))
 194
 195 (define-public mmm
 196   (package
 197     (name "mmm")
 198     (version "0.1.1")
 199     (source
 200      (origin
 201        (method git-fetch)
 202        (uri
 203         (git-reference
 204          (url "https://github.com/hodefoting/mmm.git")
 205          (commit version)))
 206        (file-name
 207         (git-file-name name version))
 208        (sha256
 209         (base32 "1xmcv6rwinqsbr863rgl9005h2jlmd7k2qrwsc1h4fb8r61ykpjl"))))
 210     (build-system meson-build-system)
 211     (native-inputs
 212      `(("luajit" ,luajit)
 213        ("pkg-config" ,pkg-config)))
 214     (inputs
 215      `(("alsa" ,alsa-lib)
 216        ("sdl" ,sdl)
 217        ("sdl2" ,sdl2)))
 218     (synopsis "Memory Mapped Machine")
 219     (description "MMM is a shared memory protocol for virtualising access to
 220 framebuffer graphics, audio output and input event.")
 221     (home-page "https://github.com/hodefoting/mrg")
 222     (license license:isc)))
 223
 224 (define-public directfb
 225   (package
 226     (name "directfb")
 227     (version "1.7.7")
 228     (source
 229      (origin
 230        (method git-fetch)
 231        (uri
 232         (git-reference
 233          (url "https://github.com/deniskropp/DirectFB.git")
 234          (commit "DIRECTFB_1_7_7")))
 235        (file-name (git-file-name name version))
 236        (sha256
 237         (base32 "0bs3yzb7hy3mgydrj8ycg7pllrd2b6j0gxj596inyr7ihssr3i0y"))))
 238     (build-system gnu-build-system)
 239     (arguments
 240      `(#:phases
 241        (modify-phases %standard-phases
 242          (add-after 'unpack 'disable-configure-during-bootstrap
 243            (lambda _
 244              (substitute* "autogen.sh"
 245                (("^.*\\$srcdir/configure.*") ""))
 246              #t)))))
 247     (native-inputs
 248      `(("autoconf" ,autoconf)
 249        ("automake" ,automake)
 250        ("libtool" ,libtool)
 251        ("perl" ,perl)
 252        ("pkg-config" ,pkg-config)))
 253     (inputs
 254      `(("alsa" ,alsa-lib)
 255        ("ffmpeg" ,ffmpeg)
 256        ("freetype" ,freetype)
 257        ("glu" ,glu)
 258        ("gstreamer" ,gstreamer)
 259        ("imlib2" ,imlib2)
 260        ("jasper" ,jasper)
 261        ("jpeg" ,libjpeg-turbo)
 262        ("libcddb" ,libcddb)
 263        ("libdrm" ,libdrm)
 264        ("libtimidity" ,libtimidity)
 265        ("linux-headers" ,linux-libre-headers)
 266        ("mad" ,libmad)
 267        ("mng" ,libmng)
 268        ("mpeg2" ,libmpeg2)
 269        ("mpeg3" ,libmpeg3)
 270        ("opengl" ,mesa)
 271        ("png" ,libpng)
 272        ("sdl" ,sdl)
 273        ("svg" ,librsvg)
 274        ("tiff" ,libtiff)
 275        ("tslib" ,tslib)
 276        ("vdpau" ,libvdpau)
 277        ("vorbisfile" ,libvorbis)
 278        ("wayland" ,wayland)
 279        ("webp" ,libwebp)
 280        ("x11" ,libx11)
 281        ("xcomposite" ,libxcomposite)
 282        ("xext" ,libxext)
 283        ("xproto" ,xorgproto)
 284        ("zlib" ,zlib)))
 285     (propagated-inputs
 286      `(("flux" ,flux)))
 287     (synopsis "DFB Graphics Library")
 288     (description "DirectFB is a graphics library which was designed with embedded
 289 systems in mind.  It offers maximum hardware accelerated performance at a
 290 minimum of resource usage and overhead.")
 291     (home-page "http://www.directfb.org/")
 292     (license license:lgpl2.1+)))
 293
 294 (define-public flux
 295   (package
 296     (name "flux")
 297     (version "1.4.4")
 298     (source
 299      (origin
 300        (method git-fetch)
 301        (uri
 302         (git-reference
 303          (url "https://github.com/deniskropp/flux.git")
 304          (commit "e45758a")))
 305        (file-name (git-file-name name version))
 306        (sha256
 307         (base32 "11f3ypg0sdq5kj69zgz6kih1yrzgm48r16spyvzwvlswng147410"))))
 308     (build-system gnu-build-system)
 309     (native-inputs
 310      `(("autoconf" ,autoconf)
 311        ("automake" ,automake)
 312        ("libtool" ,libtool)
 313        ("pkg-config" ,pkg-config)))
 314     (synopsis "Interface description language")
 315     (description "Flux is an interface description language used by DirectFB.
 316 Fluxcomp compiles .flux files to .cpp or .c files.")
 317     (home-page "http://www.directfb.org/")
 318     (license license:lgpl2.1+))) ; Same as DirectFB
 319
 320 (define-public fox
 321   (package
 322     (name "fox")
 323     (version "1.6.57")
 324     (source
 325      (origin
 326        (method url-fetch)
 327        (uri
 328         (string-append "https://fox-toolkit.org/ftp/fox-" version ".tar.gz"))
 329        (sha256
 330         (base32 "08w98m6wjadraw1pi13igzagly4b2nfa57kdqdnkjfhgkvg1bvv5"))))
 331     (build-system gnu-build-system)
 332     (arguments
 333      `(#:phases
 334        (modify-phases %standard-phases
 335          (add-after 'unpack 'patch
 336            (lambda _
 337              (substitute* "configure"
 338                (("-I/usr/include/freetype2")
 339                 (string-append "-I"
 340                                (string-append
 341                                 (assoc-ref %build-inputs "freetype")
 342                                 "/include/freetype2"))))
 343              #t)))))
 344     (native-inputs
 345      `(("doxygen" ,doxygen)))
 346     (inputs
 347      `(("bzip2" ,lbzip2)
 348        ("freetype" ,freetype)
 349        ("gl" ,mesa)
 350        ("glu" ,glu)
 351        ("jpeg" ,libjpeg-turbo)
 352        ("png" ,libpng)
 353        ("tiff" ,libtiff)
 354        ("x11" ,libx11)
 355        ("xcursor" ,libxcursor)
 356        ("xext" ,libxext)
 357        ("xfixes" ,libxfixes)
 358        ("xft" ,libxft)
 359        ("xinput" ,libxi)
 360        ("xrandr" ,libxrandr)
 361        ("xrender" ,libxrender)
 362        ("xshm" ,libxshmfence)
 363        ("zlib" ,zlib)))
 364     (synopsis "Widget Toolkit for building GUI")
 365     (description"FOX (Free Objects for X) is a C++ based Toolkit for developing
 366 Graphical User Interfaces easily and effectively.   It offers a wide, and
 367 growing, collection of Controls, and provides state of the art facilities such
 368 as drag and drop, selection, as well as OpenGL widgets for 3D graphical
 369 manipulation.  FOX also implements icons, images, and user-convenience features
 370 such as status line help, and tooltips.  Tooltips may even be used for 3D
 371 objects!")
 372     (home-page "http://www.fox-toolkit.org")
 373     (license license:lgpl2.1+)))
 374
 375 (define-public autotrace
 376   (let ((commit "travis-20190624.59")
 377         (version-base "0.40.0"))
 378     (package
 379       (name "autotrace")
 380       (version (string-append version-base "-"
 381                               (if (string-prefix? "travis-" commit)
 382                                   (string-drop commit 7)
 383                                   commit)))
 384       (source (origin
 385                 (method git-fetch)
 386                 (uri (git-reference
 387                       (url "https://github.com/autotrace/autotrace")
 388                       (commit commit)))
 389                 (file-name (git-file-name name version))
 390                 (sha256
 391                  (base32
 392                   "0mk4yavy42dj0pszr1ggnggpvmzs4ds46caa9wr55cqsypn7bq6s"))))
 393       (build-system gnu-build-system)
 394       (arguments
 395        `(#:phases (modify-phases %standard-phases
 396                     ;; See: https://github.com/autotrace/autotrace/issues/27.
 397                     (add-after 'unpack 'include-spline.h-header
 398                       (lambda _
 399                         (substitute* "Makefile.am"
 400                           ((".*src/types.h.*" all)
 401                            (string-append all "\t\tsrc/spline.h \\\n")))
 402                         #t))
 403                     ;; See: https://github.com/autotrace/autotrace/issues/26.
 404                     (replace 'check
 405                       (lambda _
 406                         (invoke "sh" "tests/runtests.sh"))))))
 407       (native-inputs
 408        `(("which" ,which)
 409          ("pkg-config" ,pkg-config)
 410          ("autoconf" ,autoconf)
 411          ("automake" ,automake)
 412          ("intltool" ,intltool)
 413          ("libtool" ,libtool)
 414          ("gettext" ,gettext-minimal)))
 415       (inputs
 416        `(("glib" ,glib)
 417          ("libjpeg" ,libjpeg-turbo)
 418          ("libpng" ,libpng)
 419          ("imagemagick" ,imagemagick)
 420          ("pstoedit" ,pstoedit)))
 421       (home-page "https://github.com/autotrace/autotrace")
 422       (synopsis "Bitmap to vector graphics converter")
 423       (description "AutoTrace is a utility for converting bitmap into vector
 424 graphics.  It can trace outlines and midlines, effect color reduction or
 425 despeckling and has support for many input and output formats.  It can be used
 426 with the @command{autotrace} utility or as a C library, @code{libautotrace}.")
 427       (license (list license:gpl2+         ;for the utility itself
 428                      license:lgpl2.1+))))) ;for use as a library
 429
 430 (define-public blender
 431   (package
 432     (name "blender")
 433     (version "2.83.5")
 434     (source (origin
 435               (method url-fetch)
 436               (uri (string-append "https://download.blender.org/source/"
 437                                   "blender-" version ".tar.xz"))
 438               (sha256
 439                (base32
 440                 "0xyawly00a59hfdb6b7va84k5fhcv2mxnzd77vs22bzi9y7sap43"))))
 441     (build-system cmake-build-system)
 442     (arguments
 443       (let ((python-version (version-major+minor (package-version python))))
 444        `(;; Test files are very large and not included in the release tarball.
 445          #:tests? #f
 446          #:configure-flags
 447          (list "-DWITH_CODEC_FFMPEG=ON"
 448                "-DWITH_CODEC_SNDFILE=ON"
 449                "-DWITH_CYCLES=ON"
 450                "-DWITH_DOC_MANPAGE=ON"
 451                "-DWITH_FFTW3=ON"
 452                "-DWITH_IMAGE_OPENJPEG=ON"
 453                "-DWITH_INPUT_NDOF=ON"
 454                "-DWITH_INSTALL_PORTABLE=OFF"
 455                "-DWITH_JACK=ON"
 456                "-DWITH_MOD_OCEANSIM=ON"
 457                "-DWITH_OPENSUBDIV=ON"
 458                "-DWITH_PYTHON_INSTALL=OFF"
 459                (string-append "-DPYTHON_LIBRARY=python" ,python-version)
 460                (string-append "-DPYTHON_LIBPATH=" (assoc-ref %build-inputs "python")
 461                               "/lib")
 462                (string-append "-DPYTHON_INCLUDE_DIR=" (assoc-ref %build-inputs "python")
 463                               "/include/python" ,python-version)
 464                (string-append "-DPYTHON_VERSION=" ,python-version)
 465                (string-append "-DPYTHON_NUMPY_PATH="
 466                               (assoc-ref %build-inputs "python-numpy")
 467                               "/lib/python" ,python-version "/site-packages/"))
 468          #:phases
 469          (modify-phases %standard-phases
 470            ;; XXX This file doesn't exist in the Git sources but will probably
 471            ;; exist in the eventual 2.80 source tarball.
 472            (add-after 'unpack 'fix-broken-import
 473              (lambda _
 474                (substitute* "release/scripts/addons/io_scene_fbx/json2fbx.py"
 475                  (("import encode_bin") "from . import encode_bin"))
 476                #t))
 477            (add-after 'set-paths 'add-ilmbase-include-path
 478              (lambda* (#:key inputs #:allow-other-keys)
 479                ;; OpenEXR propagates ilmbase, but its include files do not appear
 480                ;; in the CPATH, so we need to add "$ilmbase/include/OpenEXR/" to
 481                ;; the CPATH to satisfy the dependency on "half.h".
 482                (setenv "CPATH"
 483                        (string-append (assoc-ref inputs "ilmbase")
 484                                       "/include/OpenEXR"
 485                                       ":" (or (getenv "CPATH") "")))
 486                #t))))))
 487     (inputs
 488      `(("boost" ,boost)
 489        ("jemalloc" ,jemalloc)
 490        ("libx11" ,libx11)
 491        ("libxi" ,libxi)
 492        ("libxrender" ,libxrender)
 493        ("opencolorio" ,opencolorio)
 494        ("openimageio" ,openimageio)
 495        ("openexr" ,openexr)
 496        ("opensubdiv" ,opensubdiv)
 497        ("ilmbase" ,ilmbase)
 498        ("openjpeg" ,openjpeg)
 499        ("libjpeg" ,libjpeg-turbo)
 500        ("libpng" ,libpng)
 501        ("libtiff" ,libtiff)
 502        ("ffmpeg" ,ffmpeg)
 503        ("fftw" ,fftw)
 504        ("jack" ,jack-1)
 505        ("libsndfile" ,libsndfile)
 506        ("freetype" ,freetype)
 507        ("glew" ,glew)
 508        ("openal" ,openal)
 509        ("python" ,python)
 510        ("python-numpy" ,python-numpy)
 511        ("tbb" ,tbb)
 512        ("zlib" ,zlib)))
 513     (home-page "https://blender.org/")
 514     (synopsis "3D graphics creation suite")
 515     (description
 516      "Blender is a 3D graphics creation suite.  It supports the entirety of
 517 the 3D pipeline—modeling, rigging, animation, simulation, rendering,
 518 compositing and motion tracking, even video editing and game creation.  The
 519 application can be customized via its API for Python scripting.")
 520     (license license:gpl2+)))
 521
 522 (define-public blender-2.79
 523   (package
 524     (name "blender")
 525     (version "2.79b")
 526     (source (origin
 527               (method url-fetch)
 528               (uri (string-append "https://download.blender.org/source/"
 529                                   "blender-" version ".tar.gz"))
 530               (sha256
 531                (base32
 532                 "1g4kcdqmf67srzhi3hkdnr4z1ph4h9sza1pahz38mrj998q4r52c"))
 533               (patches (search-patches "blender-2.79-newer-ffmpeg.patch"
 534                                        "blender-2.79-oiio2.patch"
 535                                        ;; The following patches may be
 536                                        ;; needed when the default GCC is
 537                                        ;; updated:
 538                                        ;;   "blender-2.79-gcc8.patch"
 539                                        ;;   "blender-2.79-gcc9.patch"
 540                                        "blender-2.79-python-3.7-fix.patch"
 541                                        "blender-2.79-python-3.8-fix.patch"))))
 542     (build-system cmake-build-system)
 543     (arguments
 544       (let ((python-version (version-major+minor (package-version python))))
 545        `(;; Test files are very large and not included in the release tarball.
 546          #:tests? #f
 547          #:configure-flags
 548          (list "-DWITH_CODEC_FFMPEG=ON"
 549                "-DWITH_CODEC_SNDFILE=ON"
 550                "-DWITH_CYCLES=ON"
 551                "-DWITH_DOC_MANPAGE=ON"
 552                "-DWITH_FFTW3=ON"
 553                "-DWITH_GAMEENGINE=ON"
 554                "-DWITH_IMAGE_OPENJPEG=ON"
 555                "-DWITH_INPUT_NDOF=ON"
 556                "-DWITH_INSTALL_PORTABLE=OFF"
 557                "-DWITH_JACK=ON"
 558                "-DWITH_MOD_OCEANSIM=ON"
 559                "-DWITH_PLAYER=ON"
 560                "-DWITH_PYTHON_INSTALL=OFF"
 561                "-DWITH_PYTHON_INSTALL=OFF"
 562                "-DWITH_SYSTEM_OPENJPEG=ON"
 563                (string-append "-DPYTHON_LIBRARY=python" ,python-version)
 564                (string-append "-DPYTHON_LIBPATH=" (assoc-ref %build-inputs "python")
 565                               "/lib")
 566                (string-append "-DPYTHON_INCLUDE_DIR=" (assoc-ref %build-inputs "python")
 567                               "/include/python" ,python-version)
 568                (string-append "-DPYTHON_VERSION=" ,python-version))
 569          #:phases
 570          (modify-phases %standard-phases
 571            (add-after 'unpack 'fix-broken-import
 572              (lambda _
 573                (substitute* "release/scripts/addons/io_scene_fbx/json2fbx.py"
 574                  (("import encode_bin") "from . import encode_bin"))
 575                #t))
 576            (add-after 'set-paths 'add-ilmbase-include-path
 577              (lambda* (#:key inputs #:allow-other-keys)
 578                ;; OpenEXR propagates ilmbase, but its include files do not appear
 579                ;; in the CPATH, so we need to add "$ilmbase/include/OpenEXR/" to
 580                ;; the CPATH to satisfy the dependency on "half.h".
 581                (setenv "CPATH"
 582                        (string-append (assoc-ref inputs "ilmbase")
 583                                       "/include/OpenEXR"
 584                                       ":" (or (getenv "CPATH") "")))
 585                #t))))))
 586     (inputs
 587      `(("boost" ,boost)
 588        ("jemalloc" ,jemalloc)
 589        ("libx11" ,libx11)
 590        ("openimageio" ,openimageio)
 591        ("openexr" ,openexr)
 592        ("ilmbase" ,ilmbase)
 593        ("openjpeg" ,openjpeg)
 594        ("libjpeg" ,libjpeg-turbo)
 595        ("libpng" ,libpng)
 596        ("libtiff" ,libtiff)
 597        ("ffmpeg" ,ffmpeg)
 598        ("fftw" ,fftw)
 599        ("jack" ,jack-1)
 600        ("libsndfile" ,libsndfile)
 601        ("freetype" ,freetype)
 602        ("glew" ,glew)
 603        ("openal" ,openal)
 604        ("python" ,python)
 605        ("zlib" ,zlib)))
 606     (home-page "https://blender.org/")
 607     (synopsis "3D graphics creation suite")
 608     (description
 609      "Blender is a 3D graphics creation suite.  It supports the entirety of
 610 the 3D pipeline—modeling, rigging, animation, simulation, rendering,
 611 compositing and motion tracking, even video editing and game creation.  The
 612 application can be customized via its API for Python scripting.
 613
 614 NOTE: This older version of Blender is the last release that does not require
 615 OpenGL 3.  It is retained for use with older computers.")
 616     (license license:gpl2+)))
 617
 618 (define-public goxel
 619   (package
 620     (name "goxel")
 621     (version "0.10.6")
 622     (source (origin
 623               (method git-fetch)
 624               (uri (git-reference
 625                     (url "https://github.com/guillaumechereau/goxel")
 626                     (commit (string-append "v" version))))
 627               (file-name (git-file-name name version))
 628               (sha256
 629                (base32
 630                 "1wmxy5wfk1xrqgz0y0zcr4vkddylqc70cv4vzk117x6whjnldsm3"))))
 631     (build-system gnu-build-system)
 632     (arguments
 633      '(#:tests? #f
 634        #:phases (modify-phases %standard-phases (delete 'configure))
 635        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
 636                           "release")))
 637     (native-inputs
 638      `(("pkg-config" ,pkg-config)))
 639     (inputs
 640      `(("gtk3" ,gtk+)
 641        ("glfw" ,glfw)
 642        ("scons" ,scons)))
 643     (home-page "https://goxel.xyz/")
 644     (synopsis "Voxel editor")
 645     (description
 646      "Goxel is a voxel editor that features unlimited scene size, unlimited
 647 history buffer, 24-bit RGB colors, layers, procedural rendering, ray tracing,
 648 and export to various formats including the format used by Magicavoxel.")
 649     (license license:gpl3+)))
 650
 651 (define-public assimp
 652   (package
 653     (name "assimp")
 654     (version "4.1.0")
 655     (source (origin
 656               (method git-fetch)
 657               (uri (git-reference
 658                     (url "https://github.com/assimp/assimp")
 659                     (commit (string-append "v" version))))
 660               (file-name (git-file-name name version))
 661               (sha256
 662                (base32
 663                 "1rhyqfhzifdj7yibyanph3rh13ykw3i98dnn8mz65j780472hw28"))))
 664     (build-system cmake-build-system)
 665     (inputs
 666      `(("zlib" ,zlib)))
 667     (home-page "http://www.assimp.org/")
 668     (synopsis "Asset import library")
 669     (description
 670      "The Open Asset Import Library loads more than 40 3D file formats into
 671 one unified data structure.  Additionally, assimp features various mesh post
 672 processing tools: normals and tangent space generation, triangulation, vertex
 673 cache locality optimization, removal of degenerate primitives and duplicate
 674 vertices, sorting by primitive type, merging of redundant materials and many
 675 more.")
 676     (license license:bsd-3)))
 677
 678 (define-public cgal
 679   (package
 680     (name "cgal")
 681     (version "4.14.2")
 682     (source (origin
 683               (method url-fetch)
 684               (uri (string-append
 685                     "https://github.com/CGAL/cgal/releases/download/releases/"
 686                     "CGAL-" version "/CGAL-" version ".tar.xz"))
 687               (sha256
 688                (base32
 689                 "08lrp3hfwdypggz4138bnkh6bjxn441zg2y9xnq5mrjfc5ini6w1"))))
 690     (build-system cmake-build-system)
 691     (arguments
 692      '(#:tests? #f))                    ; no test target
 693     (inputs
 694      `(("mpfr" ,mpfr)
 695        ("gmp" ,gmp)
 696        ("boost" ,boost)))
 697     (home-page "https://www.cgal.org/")
 698     (synopsis "Computational geometry algorithms library")
 699     (description
 700      "CGAL provides easy access to efficient and reliable geometric algorithms
 701 in the form of a C++ library.  CGAL is used in various areas needing geometric
 702 computation, such as: computer graphics, scientific visualization, computer
 703 aided design and modeling, geographic information systems, molecular biology,
 704 medical imaging, robotics and motion planning, mesh generation, numerical
 705 methods, etc.  It provides data structures and algorithms such as
 706 triangulations, Voronoi diagrams, polygons, polyhedra, mesh generation, and
 707 many more.")
 708
 709     ;; The 'LICENSE' file explains that a subset is available under more
 710     ;; permissive licenses.
 711     (license license:gpl3+)))
 712
 713 (define-public ilmbase
 714   (package
 715     (name "ilmbase")
 716     (version "2.5.2")
 717     (source (origin
 718               (method git-fetch)
 719               (uri (git-reference
 720                     (url "https://github.com/openexr/openexr")
 721                     (commit (string-append "v" version))))
 722               (file-name (git-file-name "ilmbase" version))
 723               (sha256
 724                (base32
 725                 "1vf8bqld2bpcdi99jbr043y6vp01cp3fvbiasrn66xn91mf6imbn"))
 726               (patches (search-patches "ilmbase-fix-tests.patch"))))
 727     (build-system cmake-build-system)
 728     (arguments
 729      `(#:phases (modify-phases %standard-phases
 730                   (add-after 'unpack 'change-directory
 731                     (lambda _
 732                       (chdir "IlmBase")
 733                       #t)))))
 734     (home-page "https://www.openexr.com/")
 735     (synopsis "Utility C++ libraries for threads, maths, and exceptions")
 736     (description
 737      "IlmBase provides several utility libraries for C++.  Half is a class
 738 that encapsulates ILM's 16-bit floating-point format.  IlmThread is a thread
 739 abstraction.  Imath implements 2D and 3D vectors, 3x3 and 4x4 matrices,
 740 quaternions and other useful 2D and 3D math functions.  Iex is an
 741 exception-handling library.")
 742     (license license:bsd-3)))
 743
 744 (define-public lib2geom
 745   ;; Use the latest master commit, as the 1.0 release suffer build problems.
 746   (let ((revision "3")
 747         (commit "17e0d21f0afc8489656f9184bff7ad024a42394a"))
 748     (package
 749       (name "lib2geom")
 750       (version (git-version "1.0" revision commit))
 751       (source (origin
 752                 (method git-fetch)
 753                 (uri (git-reference
 754                       (url "https://gitlab.com/inkscape/lib2geom.git")
 755                       (commit commit)))
 756                 (file-name (git-file-name name version))
 757                 (sha256
 758                  (base32
 759                   "0waskrmdrrdjw8pr5cvlkrxywgf376viggpc2jzdqxxpy2k78fpr"))
 760                 (patches
 761                  ;; Patch submitted to upstream (see:
 762                  ;; https://gitlab.com/inkscape/lib2geom/-/merge_requests/32).
 763                  (search-patches "lib2geom-fix-tests.patch"))
 764                 (modules '((guix build utils)))
 765                 (snippet
 766                  '(begin
 767                     ;; Fix py2geom module initialization (see:
 768                     ;; https://gitlab.com/inkscape/lib2geom/merge_requests/18).
 769                     (substitute* "src/py2geom/__init__.py"
 770                       (("_py2geom") "py2geom._py2geom"))
 771                     #t))))
 772       (build-system cmake-build-system)
 773       (arguments
 774        `(#:imported-modules ((guix build python-build-system)
 775                              ,@%cmake-build-system-modules)
 776          #:configure-flags '("-D2GEOM_BUILD_SHARED=ON"
 777                              "-D2GEOM_BOOST_PYTHON=ON"
 778                              ;; Compiling the Cython bindings fail (see:
 779                              ;; https://gitlab.com/inkscape/lib2geom/issues/21).
 780                              "-D2GEOM_CYTHON_BINDINGS=OFF")
 781          #:phases
 782          (modify-phases %standard-phases
 783            (add-after 'unpack 'patch-python-lib-install-path
 784              (lambda* (#:key inputs outputs #:allow-other-keys)
 785                (let* ((python-version (@ (guix build python-build-system)
 786                                          python-version))
 787                       (python-maj-min-version (python-version
 788                                                (assoc-ref inputs "python")))
 789                       (site-package (string-append
 790                                      (assoc-ref outputs "out")
 791                                      "/lib/python" python-maj-min-version
 792                                      "/site-packages")))
 793                  (substitute* '("src/cython/CMakeLists.txt"
 794                                 "src/py2geom/CMakeLists.txt")
 795                    (("PYTHON_LIB_INSTALL \"[^\"]*\"")
 796                     (format #f "PYTHON_LIB_INSTALL ~s" site-package))))
 797                #t)))))
 798       (native-inputs `(("python" ,python-wrapper)
 799                        ("googletest" ,googletest)
 800                        ("pkg-config" ,pkg-config)))
 801       (inputs `(("cairo" ,cairo)
 802                 ("pycairo" ,python-pycairo)
 803                 ("double-conversion" ,double-conversion)
 804                 ("glib" ,glib)
 805                 ("gsl" ,gsl)))
 806       (propagated-inputs
 807        `(("boost" ,boost)))             ;referred to in 2geom/pathvector.h.
 808       (home-page "https://gitlab.com/inkscape/lib2geom/")
 809       (synopsis "C++ 2D graphics library")
 810       (description "2geom is a C++ library of mathematics for paths, curves,
 811 and other geometric calculations.  Designed for vector graphics, it tackles
 812 Bézier curves, conic sections, paths, intersections, transformations, and
 813 basic geometries.")
 814       ;; Because the library is linked with the GNU Scientific Library
 815       ;; (GPLv3+), the combined work must be licensed as GPLv3+ (see:
 816       ;; https://gitlab.com/inkscape/inkscape/issues/784).
 817       (license license:gpl3+))))
 818
 819 (define-public pstoedit
 820   (package
 821     (name "pstoedit")
 822     (version "3.75")
 823     (source (origin
 824               (method url-fetch)
 825               (uri (string-append "mirror://sourceforge/pstoedit/pstoedit/"
 826                                   version "/pstoedit-" version ".tar.gz"))
 827               (sha256
 828                (base32
 829                 "1kv46g2wsvsvcngkavxl5gnw3l6g5xqnh4kmyx4b39a01d8xiddp"))))
 830     (build-system gnu-build-system)
 831     (native-inputs
 832      `(("pkg-config" ,pkg-config)))
 833     (inputs
 834      `(("ghostscript" ,ghostscript)
 835        ("imagemagick" ,imagemagick)
 836        ("libplot" ,plotutils)
 837        ("libjpeg" ,libjpeg-turbo)
 838        ("zlib" ,zlib)))               ;else libp2edrvmagick++.so fails to link
 839     (home-page "http://www.pstoedit.net/")
 840     (synopsis "Converter for PostScript and PDF graphics")
 841     (description "The @code{pstoedit} utility allows translating graphics
 842 in the PostScript or PDF (Portable Document Format) formats to various
 843 other vector formats such as:
 844 @itemize
 845 @item Tgif (.obj)
 846 @item gnuplot
 847 @item xfig (.fig)
 848 @item Flattened PostScript
 849 @item DXF, a CAD (Computed-Aided Design) exchange format
 850 @item PIC (for troff/groff)
 851 @item MetaPost (for usage with TeX/LaTeX)
 852 @item LaTeX2e picture
 853 @item GNU Metafile (for use with plotutils/libplot)
 854 @item Any format supported by ImageMagick
 855 @end itemize")
 856     (license license:gpl2+)))
 857
 858 (define-public ogre
 859   (package
 860     (name "ogre")
 861     (version "1.12.6")
 862     (source
 863      (origin
 864        (method git-fetch)
 865        (uri (git-reference
 866              (url "https://github.com/OGRECave/ogre")
 867              (commit (string-append "v" version))
 868              (recursive? #t)))          ;for Dear ImGui submodule
 869        (file-name (git-file-name name version))
 870        (sha256
 871         (base32 "1ap3krrl55hswv1n2r3ijf3xrb3kf9dnqvwyrc0fgnc7j7vd45sk"))))
 872     (build-system cmake-build-system)
 873     (arguments
 874      '(#:phases
 875        (modify-phases %standard-phases
 876          (add-before 'configure 'pre-configure
 877            ;; CMakeLists.txt forces CMAKE_INSTALL_RPATH value.  As
 878            ;; a consequence, we cannot suggest ours in configure flags.  Fix
 879            ;; it.
 880            (lambda* (#:key inputs outputs #:allow-other-keys)
 881              (substitute* "CMakeLists.txt"
 882                (("set\\(CMAKE_INSTALL_RPATH .*") ""))
 883              #t)))
 884        #:configure-flags
 885        (let* ((out (assoc-ref %outputs "out"))
 886               (runpath
 887                (string-join (list (string-append out "/lib")
 888                                   (string-append out "/lib/OGRE"))
 889                             ";")))
 890          (list (string-append "-DCMAKE_INSTALL_RPATH=" runpath)
 891                "-DOGRE_BUILD_DEPENDENCIES=OFF"
 892                "-DOGRE_BUILD_TESTS=TRUE"
 893                "-DOGRE_INSTALL_DOCS=TRUE"
 894                "-DOGRE_INSTALL_SAMPLES=TRUE"
 895                "-DOGRE_INSTALL_SAMPLES_SOURCE=TRUE"))))
 896     (native-inputs
 897      `(("boost" ,boost)
 898        ("doxygen" ,doxygen)
 899        ("googletest" ,googletest-1.8)
 900        ("pkg-config" ,pkg-config)))
 901     (inputs
 902      `(("font-dejavu" ,font-dejavu)
 903        ("freeimage" ,freeimage)
 904        ("freetype" ,freetype)
 905        ("glu" ,glu)
 906        ("libxaw" ,libxaw)
 907        ("libxrandr" ,libxrandr)
 908        ("pugixml" ,pugixml)
 909        ("sdl2" ,sdl2)
 910        ("tinyxml" ,tinyxml)
 911        ("zziplib" ,zziplib)))
 912     (synopsis "Scene-oriented, flexible 3D engine written in C++")
 913     (description
 914      "OGRE (Object-Oriented Graphics Rendering Engine) is a scene-oriented,
 915 flexible 3D engine written in C++ designed to make it easier and more intuitive
 916 for developers to produce applications utilising hardware-accelerated 3D
 917 graphics.")
 918     (home-page "https://www.ogre3d.org/")
 919     (license license:expat)))
 920
 921 (define-public openexr
 922   (package
 923     (name "openexr")
 924     (version (package-version ilmbase))
 925     (source (origin
 926               (inherit (package-source ilmbase))
 927               (file-name (git-file-name "openexr" version))
 928               (modules '((guix build utils)))
 929               (snippet
 930                '(begin
 931                   (substitute* (find-files "OpenEXR" "tmpDir\\.h")
 932                     (("\"/var/tmp/\"")
 933                      "\"/tmp/\""))
 934                   #t))))
 935     (build-system cmake-build-system)
 936     (arguments
 937      `(#:phases
 938        (modify-phases %standard-phases
 939          (add-after 'unpack 'change-directory
 940            (lambda _
 941              (chdir "OpenEXR")
 942              #t))
 943          (add-after 'change-directory 'increase-test-timeout
 944            (lambda _
 945              ;; On armhf-linux, we need to override the CTest default
 946              ;; timeout of 1500 seconds for the OpenEXR.IlmImf test.
 947              (substitute* "IlmImfTest/CMakeLists.txt"
 948                (("add_test\\(NAME OpenEXR\\.IlmImf.*" all)
 949                 (string-append
 950                  all
 951                  "set_tests_properties(OpenEXR.IlmImf PROPERTIES TIMEOUT 2000)")))
 952              #t))
 953          ,@(if (not (target-64bit?))
 954                `((add-after 'change-directory 'disable-broken-test
 955                    ;; This test fails on i686. Upstream developers suggest that
 956                    ;; this test is broken on i686 and can be safely disabled:
 957                    ;; https://github.com/openexr/openexr/issues/67#issuecomment-21169748
 958                    (lambda _
 959                      (substitute* "IlmImfTest/main.cpp"
 960                        ((".*testOptimizedInterleavePatterns.*") ""))
 961                      #t)))
 962                '()))))
 963     (native-inputs
 964      `(("pkg-config" ,pkg-config)))
 965     (propagated-inputs
 966      `(("ilmbase" ,ilmbase)                       ;used in public headers
 967        ("zlib" ,zlib)))                           ;OpenEXR.pc reads "-lz"
 968     (home-page "https://www.openexr.com/")
 969     (synopsis "High-dynamic range file format library")
 970     (description
 971      "OpenEXR is a high dynamic-range (HDR) image file format developed for
 972 use in computer imaging applications.  The IlmImf C++ libraries support
 973 storage of the \"EXR\" file format for storing 16-bit floating-point images.")
 974     (license license:bsd-3)))
 975
 976 (define-public openimageio
 977   (package
 978     (name "openimageio")
 979     (version "2.0.13")
 980     (source (origin
 981               (method git-fetch)
 982               (uri (git-reference
 983                     (url "https://github.com/OpenImageIO/oiio")
 984                     (commit (string-append "Release-" version))))
 985               (file-name (git-file-name name version))
 986               (sha256
 987                (base32
 988                 "0czcls82v71wkw1syib16ncg7463hx0py0xclycsiv4w6i3wlkzz"))))
 989     (build-system cmake-build-system)
 990     ;; FIXME: To run all tests successfully, test image sets from multiple
 991     ;; third party sources have to be present.  For details see
 992     ;; https://github.com/OpenImageIO/oiio/blob/master/INSTALL
 993     (arguments
 994      `(#:tests? #f))
 995     (native-inputs
 996      `(("pkg-config" ,pkg-config)))
 997     (inputs
 998      `(("boost" ,boost)
 999        ("libpng" ,libpng)
1000        ("libjpeg" ,libjpeg-turbo)
1001        ("libtiff" ,libtiff)
1002        ("giflib" ,giflib)
1003        ("openexr" ,openexr)
1004        ("ilmbase" ,ilmbase)
1005        ("python" ,python-wrapper)
1006        ("pybind11" ,pybind11)
1007        ("robin-map" ,robin-map)
1008        ("zlib" ,zlib)))
1009     (synopsis "C++ library for reading and writing images")
1010     (description
1011      "OpenImageIO is a library for reading and writing images, and a bunch of
1012 related classes, utilities, and applications.  There is a particular emphasis
1013 on formats and functionality used in professional, large-scale animation and
1014 visual effects work for film.")
1015     (home-page "https://www.openimageio.org")
1016     (license license:bsd-3)))
1017
1018 (define-public openscenegraph
1019   (package
1020     (name "openscenegraph")
1021     (version "3.6.5")
1022     (source
1023      (origin
1024        (method git-fetch)
1025        (uri (git-reference
1026              (url "https://github.com/openscenegraph/OpenSceneGraph")
1027              (commit (string-append "OpenSceneGraph-" version))))
1028        (sha256
1029         (base32 "00i14h82qg3xzcyd8p02wrarnmby3aiwmz0z43l50byc9f8i05n1"))
1030        (file-name (git-file-name name version))))
1031     (properties
1032      `((upstream-name . "OpenSceneGraph")))
1033     (build-system cmake-build-system)
1034     (arguments
1035      `(#:tests? #f                      ; no test target available
1036        ;; Without this flag, 'rd' will be added to the name of the
1037        ;; library binaries and break linking with other programs.
1038        #:build-type "Release"
1039        #:configure-flags
1040        (list (string-append "-DCMAKE_INSTALL_RPATH="
1041                             (assoc-ref %outputs "out") "/lib:"
1042                             (assoc-ref %outputs "out") "/lib64"))))
1043     (native-inputs
1044      `(("pkg-config" ,pkg-config)
1045        ("unzip" ,unzip)))
1046     (inputs
1047      `(("giflib" ,giflib)
1048        ("libjpeg" ,libjpeg-turbo)       ; required for the JPEG texture plugin.
1049        ("jasper" ,jasper)
1050        ("librsvg" ,librsvg)
1051        ("libxrandr" ,libxrandr)
1052        ("ffmpeg" ,ffmpeg)
1053        ("mesa" ,mesa)))
1054     (synopsis "High-performance real-time graphics toolkit")
1055     (description
1056      "The OpenSceneGraph is a high-performance 3D graphics toolkit
1057 used by application developers in fields such as visual simulation, games,
1058 virtual reality, scientific visualization and modeling.")
1059     (home-page "http://www.openscenegraph.org")
1060     ;; The 'LICENSE' file explains that the source is licensed under
1061     ;; LGPL 2.1, but with 4 exceptions. This version is called OSGPL.
1062     (license license:lgpl2.1)))
1063
1064 ;; We need this for simgear
1065 (define-public openscenegraph-3.4
1066   (package (inherit openscenegraph)
1067     (name "openscenegraph")
1068     (version "3.4.1")
1069     (source
1070      (origin
1071        (method git-fetch)
1072        (uri (git-reference
1073              (url "https://github.com/openscenegraph/OpenSceneGraph")
1074              (commit (string-append "OpenSceneGraph-" version))))
1075        (file-name (git-file-name name version))
1076        (sha256
1077         (base32
1078          "1fbzg1ihjpxk6smlq80p3h3ggllbr16ihd2fxpfwzam8yr8yxip9"))))
1079     (arguments
1080      (substitute-keyword-arguments (package-arguments openscenegraph)
1081        ((#:configure-flags flags)
1082         `(cons
1083           ;; The jpeg plugin requires conversion between integers and booleans
1084           "-DCMAKE_CXX_FLAGS=-fpermissive"
1085           ,flags))))
1086     (inputs
1087      `(("libjpeg" ,libjpeg-turbo)
1088        ,@(package-inputs openscenegraph)))))
1089
1090
1091 (define-public openmw-openscenegraph
1092   ;; OpenMW prefers its own fork of openscenegraph:
1093   ;; https://wiki.openmw.org/index.php?title=Development_Environment_Setup#OpenSceneGraph.
1094   (let ((commit "36a962845a2c87a6671fd822157e0729d164e940"))
1095     (hidden-package
1096      (package
1097        (inherit openscenegraph)
1098        (version (git-version "3.6" "1" commit))
1099        (source
1100         (origin
1101           (method git-fetch)
1102           (uri (git-reference
1103                 (url "https://github.com/OpenMW/osg/")
1104                 (commit commit)))
1105           (file-name (git-file-name (package-name openscenegraph) version))
1106           (sha256
1107            (base32
1108             "05yhgq3qm5q277y32n5sf36vx5nv5qd3zlhz4csgd3a6190jrnia"))))
1109        (arguments
1110         (substitute-keyword-arguments (package-arguments openscenegraph)
1111           ((#:configure-flags flags)
1112            ;; As per the above wiki link, the following plugins are enough:
1113            `(append
1114              '("-DBUILD_OSG_PLUGINS_BY_DEFAULT=0"
1115                "-DBUILD_OSG_PLUGIN_OSG=1"
1116                "-DBUILD_OSG_PLUGIN_DDS=1"
1117                "-DBUILD_OSG_PLUGIN_TGA=1"
1118                "-DBUILD_OSG_PLUGIN_BMP=1"
1119                "-DBUILD_OSG_PLUGIN_JPEG=1"
1120                "-DBUILD_OSG_PLUGIN_PNG=1"
1121                "-DBUILD_OSG_DEPRECATED_SERIALIZERS=0"
1122                ;; The jpeg plugin requires conversion between integers and booleans
1123                "-DCMAKE_CXX_FLAGS=-fpermissive")
1124              ,flags))))))))
1125
1126 (define-public povray
1127   (package
1128     (name "povray")
1129     (version "3.7.0.8")
1130     (source (origin
1131               (method git-fetch)
1132               (uri (git-reference
1133                     (url "https://github.com/POV-Ray/povray")
1134                     (commit (string-append "v" version))))
1135               (file-name (git-file-name name version))
1136               (sha256
1137                (base32
1138                 "1q114n4m3r7qy3yn954fq7p46rg7ypdax5fazxr9yj1jklf1lh6z"))
1139               (modules '((guix build utils)))
1140               (snippet
1141                '(begin
1142                   ;; Delete bundled libraries.
1143                   (delete-file-recursively "libraries")
1144                   #t))))
1145     (build-system gnu-build-system)
1146     (native-inputs
1147      `(("autoconf" ,autoconf)
1148        ("automake" ,automake)
1149        ("pkg-config" ,pkg-config)))
1150     (inputs
1151      `(("boost" ,boost)
1152        ("libjpeg" ,libjpeg-turbo)
1153        ("libpng" ,libpng)
1154        ("libtiff" ,libtiff)
1155        ("openexr" ,openexr)
1156        ("sdl" ,sdl)
1157        ("zlib" ,zlib)))
1158     (arguments
1159      '(#:configure-flags
1160        (list "COMPILED_BY=Guix"
1161              (string-append "--with-boost-libdir="
1162                             (assoc-ref %build-inputs "boost") "/lib")
1163              "--disable-optimiz-arch")
1164        #:phases
1165        (modify-phases %standard-phases
1166          (add-after 'unpack 'run-prebuild
1167            (lambda _
1168              (setenv "HOME" (getcwd))
1169              (with-directory-excursion "unix"
1170                (substitute* "prebuild.sh"
1171                  (("/bin/sh") (which "sh")))
1172                (invoke "sh" "prebuild.sh"))
1173              #t))
1174          ;; The bootstrap script is run by the prebuild script in the
1175          ;; "run-prebuild" phase.
1176          (delete 'bootstrap))))
1177     (synopsis "Tool for creating three-dimensional graphics")
1178     (description
1179      "@code{POV-Ray} is short for the Persistence of Vision Raytracer, a tool
1180 for producing high-quality computer graphics.  @code{POV-Ray} creates
1181 three-dimensional, photo-realistic images using a rendering technique called
1182 ray-tracing.  It reads in a text file containing information describing the
1183 objects and lighting in a scene and generates an image of that scene from the
1184 view point of a camera also described in the text file.  Ray-tracing is not a
1185 fast process by any means, but it produces very high quality images with
1186 realistic reflections, shading, perspective and other effects.")
1187     (home-page "http://www.povray.org/")
1188     (license license:agpl3+)))
1189
1190 (define-public rapicorn
1191   (package
1192     (name "rapicorn")
1193     (version "16.0.0")
1194     (source (origin
1195               (method url-fetch)
1196               (uri (string-append "https://testbit.eu/pub/dists/rapicorn/"
1197                                   "rapicorn-" version ".tar.xz"))
1198               (sha256
1199                (base32
1200                 "1y51yjrpsihas1jy905m9p3r8iiyhq6bwi2690c564i5dnix1f9d"))
1201               (patches (search-patches "rapicorn-isnan.patch"))))
1202     (build-system gnu-build-system)
1203     (arguments
1204      `(#:phases
1205        (modify-phases %standard-phases
1206          (add-after 'unpack 'fix-tests
1207            (lambda _
1208              ;; Our grep does not support perl regular expressions.
1209              (substitute* "taptool.sh"
1210                (("grep -P") "grep -E"))
1211              ;; Disable path tests because we cannot access /bin or /sbin.
1212              (substitute* "rcore/tests/multitest.cc"
1213                (("TCMP \\(Path::equals \\(\"/bin\"") "//"))
1214              #t))
1215          (add-before 'check 'pre-check
1216            (lambda _
1217              ;; The test suite requires a running X server (with DISPLAY
1218              ;; number 99 or higher).
1219              (system "Xvfb :99 &")
1220              (setenv "DISPLAY" ":99")
1221              #t))
1222          (add-after 'unpack 'replace-fhs-paths
1223            (lambda _
1224              (substitute* (cons "Makefile.decl"
1225                                 (find-files "." "^Makefile\\.in$"))
1226                (("/bin/ls") (which "ls"))
1227                (("/usr/bin/env") (which "env")))
1228              #t)))))
1229     ;; These libraries are listed in the "Required" section of the pkg-config
1230     ;; file.
1231     (propagated-inputs
1232      `(("librsvg" ,librsvg)
1233        ("cairo" ,cairo)
1234        ("pango" ,pango)
1235        ("libxml2" ,libxml2)
1236        ("python2-enum34" ,python2-enum34)))
1237     (inputs
1238      `(("gdk-pixbuf" ,gdk-pixbuf)
1239        ("libpng" ,libpng-1.2)
1240        ("readline" ,readline)
1241        ("libcroco" ,libcroco)
1242        ("python" ,python-2)
1243        ("cython" ,python2-cython)))
1244     (native-inputs
1245      `(("pandoc" ,pandoc)
1246        ("bison" ,bison)
1247        ("flex" ,flex)
1248        ("doxygen" ,doxygen)
1249        ("graphviz" ,graphviz)
1250        ("intltool" ,intltool)
1251        ("pkg-config" ,pkg-config)
1252        ("xvfb" ,xorg-server-for-tests)))
1253     (home-page "https://rapicorn.testbit.org/")
1254     (synopsis "Toolkit for rapid development of user interfaces")
1255     (description
1256      "Rapicorn is a toolkit for rapid development of user interfaces in C++
1257 and Python.  The user interface is designed in a declarative markup language
1258 and is connected to the programming logic using data bindings and commands.")
1259     (license license:mpl2.0)))
1260
1261 (define-public ctl
1262   (package
1263     (name "ctl")
1264     (version "1.5.2")
1265     (source (origin
1266               (method url-fetch)
1267               (uri (string-append "https://github.com/ampas/CTL/archive/ctl-"
1268                                   version ".tar.gz"))
1269               (sha256
1270                (base32
1271                 "1gg04pyvw0m398akn0s1l07g5b1haqv5na1wpi5dii1jjd1w3ynp"))))
1272     (build-system cmake-build-system)
1273     (arguments '(#:tests? #f))                    ;no 'test' target
1274
1275     ;; Headers include OpenEXR and IlmBase headers.
1276     (propagated-inputs `(("openexr" ,openexr)))
1277
1278     (home-page "http://ampasctl.sourceforge.net")
1279     (synopsis "Color Transformation Language")
1280     (description
1281      "The Color Transformation Language, or CTL, is a small programming
1282 language that was designed to serve as a building block for digital color
1283 management systems.  CTL allows users to describe color transforms in a
1284 concise and unambiguous way by expressing them as programs.  In order to apply
1285 a given transform to an image, the color management system instructs a CTL
1286 interpreter to load and run the CTL program that describes the transform.  The
1287 original and the transformed image constitute the CTL program's input and
1288 output.")
1289
1290     ;; The web site says it's under a BSD-3 license, but the 'LICENSE' file
1291     ;; and headers use different wording.
1292     (license (license:non-copyleft "file://LICENSE"))))
1293
1294 (define-public brdf-explorer
1295   ;; There are no release tarballs, and not even tags in the repo,
1296   ;; so use the latest revision.
1297   (let ((commit "5b2cd46f38a06e47207fa7229b72d37beb945019")
1298         (revision "1"))
1299     (package
1300       (name "brdf-explorer")
1301       (version (string-append "1.0.0-" revision "." (string-take commit 9)))
1302       (source (origin
1303                 (method git-fetch)
1304                 (uri (git-reference
1305                       (url "https://github.com/wdas/brdf")
1306                       (commit commit)))
1307                 (sha256
1308                  (base32
1309                   "06vzbiajzbi2xl8jlff5d45bc9wd68i3jdndfab1f3jgfrd8bsgx"))
1310                 (file-name (string-append name "-" version "-checkout"))))
1311       (build-system gnu-build-system)
1312       (arguments
1313        `(#:phases (modify-phases %standard-phases
1314                     (replace 'configure
1315                       (lambda* (#:key outputs #:allow-other-keys)
1316                         (let ((out (assoc-ref outputs "out")))
1317                           (invoke "qmake"
1318                                   (string-append "prefix=" out)))))
1319                     (add-after 'install 'wrap-program
1320                       (lambda* (#:key outputs #:allow-other-keys)
1321                         (let* ((out (assoc-ref outputs "out"))
1322                                (bin (string-append out "/bin"))
1323                                (data (string-append
1324                                       out "/share/brdf")))
1325                           (with-directory-excursion bin
1326                             (rename-file "brdf" ".brdf-real")
1327                             (call-with-output-file "brdf"
1328                               (lambda (port)
1329                                 (format port "#!/bin/sh
1330 # Run the thing from its home, otherwise it just bails out.
1331 cd \"~a\"
1332 exec -a \"$0\" ~a/.brdf-real~%"
1333                                         data bin)))
1334                             (chmod "brdf" #o555)))
1335                         #t)))))
1336       (native-inputs
1337        `(("qttools" ,qttools))) ;for 'qmake'
1338       (inputs
1339        `(("qtbase" ,qtbase)
1340          ("mesa" ,mesa)
1341          ("glew" ,glew)
1342          ("freeglut" ,freeglut)
1343          ("zlib" ,zlib)))
1344       (home-page "https://www.disneyanimation.com/technology/brdf.html")
1345       (synopsis
1346        "Analyze bidirectional reflectance distribution functions (BRDFs)")
1347       (description
1348        "BRDF Explorer is an application that allows the development and analysis
1349 of bidirectional reflectance distribution functions (BRDFs).  It can load and
1350 plot analytic BRDF functions (coded as functions in OpenGL's GLSL shader
1351 language), measured material data from the MERL database, and anisotropic
1352 measured material data from MIT CSAIL.  Graphs and visualizations update in
1353 real time as parameters are changed, making it a useful tool for evaluating
1354 and understanding different BRDFs (and other component functions).")
1355       (license license:ms-pl))))
1356
1357 (define-public agg
1358   (package
1359     (name "agg")
1360     (version "2.5")
1361     (source (origin
1362               (method url-fetch)
1363               (uri (list (string-append
1364                           "ftp://ftp.fau.de/gentoo/distfiles/agg-"
1365                           version ".tar.gz")
1366                          (string-append
1367                           "ftp://ftp.ula.ve/gentoo/distfiles/agg-"
1368                           version ".tar.gz")
1369
1370                          ;; Site was discontinued.
1371                          (string-append "http://www.antigrain.com/agg-"
1372                                         version ".tar.gz")))
1373               (sha256
1374                (base32 "07wii4i824vy9qsvjsgqxppgqmfdxq0xa87i5yk53fijriadq7mb"))
1375               (patches (search-patches "agg-am_c_prototype.patch"))))
1376     (build-system gnu-build-system)
1377     (arguments
1378      '(#:configure-flags
1379        (list (string-append "--x-includes=" (assoc-ref %build-inputs "libx11")
1380                             "/include")
1381              (string-append "--x-libraries=" (assoc-ref %build-inputs "libx11")
1382                             "/lib")
1383              "--disable-examples")
1384        #:phases
1385        (modify-phases %standard-phases
1386          (replace 'bootstrap
1387            (lambda _
1388              ;; let's call configure from configure phase and not now
1389              (substitute* "autogen.sh" (("./configure") "# ./configure"))
1390              (invoke "sh" "autogen.sh"))))))
1391     (native-inputs
1392      `(("pkg-config" ,pkg-config)
1393        ("libtool" ,libtool)
1394        ("autoconf" ,autoconf)
1395        ("automake" ,automake)))
1396     (inputs
1397      `(("libx11" ,libx11)
1398        ("freetype" ,freetype)
1399        ("sdl" ,sdl)))
1400
1401     ;; Antigrain.com was discontinued.
1402     (home-page "http://agg.sourceforge.net/antigrain.com/index.html")
1403     (synopsis "High-quality 2D graphics rendering engine for C++")
1404     (description
1405      "Anti-Grain Geometry is a high quality rendering engine written in C++.
1406 It supports sub-pixel resolutions and anti-aliasing.  It is also library for
1407 rendering SVG graphics.")
1408     (license license:gpl2+)))
1409
1410 (define-public python-pastel
1411   (package
1412     (name "python-pastel")
1413     (version "0.2.0")
1414     (source
1415      (origin
1416        (method url-fetch)
1417        (uri (pypi-uri "pastel" version))
1418        (sha256
1419         (base32
1420          "0dnaw44ss10i10z4ksy0xljknvjap7rb7g0b8p6yzm5x4g2my5a6"))))
1421     (build-system python-build-system)
1422     (arguments
1423      `(#:phases (modify-phases %standard-phases
1424                   (replace 'check
1425                     (lambda _ (invoke "pytest" "pastel" "tests/"))))))
1426     (native-inputs
1427      `(("python-pytest" ,python-pytest)))
1428     (home-page "https://github.com/sdispater/pastel")
1429     (synopsis "Library to colorize strings in your terminal")
1430     (description "Pastel is a simple library to help you colorize strings in
1431 your terminal.")
1432     (license license:expat)))
1433
1434 (define-public python2-pastel
1435   (package-with-python2 python-pastel))
1436
1437 (define-public fgallery
1438   (package
1439     (name "fgallery")
1440     (version "1.8.2")
1441     (source (origin
1442               (method url-fetch)
1443               (uri
1444                (string-append
1445                 "http://www.thregr.org/~wavexx/software/fgallery/releases/"
1446                 "fgallery-" version ".zip"))
1447               (sha256
1448                (base32
1449                 "18wlvqbxcng8pawimbc8f2422s8fnk840hfr6946lzsxr0ijakvf"))))
1450     (build-system gnu-build-system)
1451     (arguments
1452      `(#:tests? #f ; no tests
1453        #:phases
1454        (modify-phases %standard-phases
1455          (delete 'configure)
1456          (delete 'build)
1457          (replace 'install
1458            (lambda* (#:key inputs outputs #:allow-other-keys)
1459              (let* ((out    (assoc-ref outputs "out"))
1460                     (bin    (string-append out "/bin/"))
1461                     (share  (string-append out "/share/fgallery"))
1462                     (man    (string-append out "/share/man/man1"))
1463                     (perl5lib (getenv "PERL5LIB"))
1464                     (script (string-append share "/fgallery")))
1465                (define (bin-directory input-name)
1466                  (string-append (assoc-ref inputs input-name) "/bin"))
1467
1468                (mkdir-p man)
1469                (copy-file "fgallery.1" (string-append man "/fgallery.1"))
1470
1471                (mkdir-p share)
1472                (copy-recursively "." share)
1473
1474                ;; fgallery copies files from store when it is run. The
1475                ;; read-only permissions from the store directories will cause
1476                ;; fgallery to fail. Do not preserve file attributes when
1477                ;; copying files to prevent it.
1478                (substitute* script
1479                  (("'cp'")
1480                   "'cp', '--no-preserve=all'"))
1481
1482                (mkdir-p bin)
1483                (symlink script (string-append out "/bin/fgallery"))
1484
1485                (wrap-program script
1486                  `("PATH" ":" prefix
1487                    ,(map bin-directory '("imagemagick"
1488                                          "lcms"
1489                                          "fbida"
1490                                          "libjpeg"
1491                                          "zip"
1492                                          "jpegoptim"
1493                                          "pngcrush"
1494                                          "p7zip")))
1495                  `("PERL5LIB" ":" prefix (,perl5lib)))
1496                #t))))))
1497     (native-inputs
1498      `(("unzip" ,unzip)))
1499     ;; TODO: Add missing optional dependency: facedetect.
1500     (inputs
1501      `(("imagemagick" ,imagemagick)
1502        ("lcms" ,lcms)
1503        ("fbida" ,fbida)
1504        ("libjpeg" ,libjpeg-turbo)
1505        ("zip" ,zip)
1506        ("perl" ,perl)
1507        ("perl-cpanel-json-xs" ,perl-cpanel-json-xs)
1508        ("perl-image-exiftool" ,perl-image-exiftool)
1509        ("jpegoptim" ,jpegoptim)
1510        ("pngcrush" ,pngcrush)
1511        ("p7zip" ,p7zip)))
1512     (home-page "http://www.thregr.org/~wavexx/software/fgallery/")
1513     (synopsis "Static photo gallery generator")
1514     (description
1515      "FGallery is a static, JavaScript photo gallery generator with minimalist
1516 look.  The result can be uploaded on any web server without additional
1517 requirements.")
1518     (license license:gpl2+)))
1519
1520 (define-public opensubdiv
1521   (package
1522     (name "opensubdiv")
1523     (version "3.4.0")
1524     (source (origin
1525               (method git-fetch)
1526               (uri (git-reference
1527                     (url "https://github.com/PixarAnimationStudios/OpenSubdiv")
1528                     (commit (string-append "v" (string-join (string-split version #\.)
1529                                                             "_")))))
1530               (file-name (git-file-name name version))
1531               (sha256
1532                (base32
1533                 "0cippg6aqc5dlya1cmh3908pwssrg52fwgyylnvz5343yrxmgk12"))))
1534     (build-system cmake-build-system)
1535     (arguments
1536      `(#:phases (modify-phases %standard-phases
1537                   (add-before 'configure 'set-glew-location
1538                     (lambda* (#:key inputs #:allow-other-keys)
1539                       (setenv "GLEW_LOCATION" (assoc-ref inputs "glew"))
1540                       #t))
1541                   (add-before 'check 'start-xorg-server
1542                     (lambda* (#:key inputs #:allow-other-keys)
1543                       ;; The test suite requires a running X server.
1544                       (system (string-append (assoc-ref inputs "xorg-server")
1545                                              "/bin/Xvfb :1 &"))
1546                       (setenv "DISPLAY" ":1")
1547                       #t)))))
1548     (native-inputs
1549      `(("xorg-server" ,xorg-server-for-tests)))
1550     (inputs
1551      `(("glew" ,glew)
1552        ("libxrandr" ,libxrandr)
1553        ("libxcursor" ,libxcursor)
1554        ("libxinerama" ,libxinerama)
1555        ("libxi" ,libxi)
1556        ("zlib" ,zlib)
1557        ("glfw" ,glfw)))
1558     (home-page "https://graphics.pixar.com/opensubdiv/")
1559     (synopsis "High performance subdivision surface evaluation")
1560     (description "OpenSubdiv is a set of libraries that implement high
1561 performance subdivision surface (subdiv) evaluation on massively parallel CPU
1562 and GPU architectures.")
1563     (license license:asl2.0)))
1564
1565 (define-public opencsg
1566   (let ((dot-to-dash (lambda (c) (if (char=? c #\.) #\- c))))
1567     (package
1568       (name "opencsg")
1569       (version "1.4.2")
1570       (source
1571        (origin
1572          (method git-fetch)
1573          (uri (git-reference
1574                (url "https://github.com/floriankirsch/OpenCSG")
1575                (commit (string-append "opencsg-"
1576                                       (string-map dot-to-dash version)
1577                                       "-release"))))
1578          (file-name (git-file-name name version))
1579          (sha256
1580           (base32
1581            "00m4vs6jn3scqczscc4591l1d6zg6anqp9v1ldf9ymf70rdyvm7m"))))
1582       (build-system gnu-build-system)
1583       (arguments
1584        `(#:phases
1585          (modify-phases %standard-phases
1586            (replace 'configure
1587              (lambda* (#:key outputs #:allow-other-keys)
1588                (substitute* "src/Makefile"
1589                  (("/usr/local") (assoc-ref outputs "out")))
1590                #t))
1591            (add-before 'build 'skip-example
1592              (lambda _ (chdir "src") #t)))))
1593       (inputs
1594        `(("glew" ,glew)
1595          ("freeglut" ,freeglut)))
1596       (synopsis "Library for rendering Constructive Solid Geometry (CSG)")
1597       (description
1598        "OpenCSG is a library for rendering Constructive Solid Geometry (CSG) using
1599 OpenGL.  CSG is an approach for modeling complex 3D-shapes using simpler ones.
1600 For example, two shapes can be combined by uniting them, by intersecting them,
1601 or by subtracting one shape from the other.")
1602       (home-page "http://www.opencsg.org/")
1603       (license license:gpl2))))
1604
1605 (define-public coin3D
1606   ;; The ‘4.0.0’ zip archive isn't stable, nor in fact a release.  See:
1607   ;; https://bitbucket.org/Coin3D/coin/issues/179/coin-400-srczip-has-been-modified
1608   (let ((revision 1)
1609         (changeset "ab8d0e47a4de3230a8137feb39c142d6ba45f97d"))
1610     (package
1611       (name "coin3D")
1612       (version
1613        (simple-format #f "3.1.3-~A-~A" revision (string-take changeset 7)))
1614       (source
1615        (origin
1616          (method hg-fetch)
1617          (uri (hg-reference
1618                (url "https://bitbucket.org/Coin3D/coin")
1619                (changeset changeset)))
1620          (file-name (git-file-name name version))
1621          (sha256
1622           (base32 "1ff44jz6lg4rylljvy69n1hcjh9y6achbv9jpn1cv2sf8cxn3r2j"))
1623          (modules '((guix build utils)))
1624          (snippet
1625           '(begin
1626              (for-each delete-file
1627                        '("cfg/csubst.exe"
1628                          "cfg/wrapmsvc.exe"))
1629              #t))))
1630       (build-system cmake-build-system)
1631       (native-inputs
1632        `(("doxygen" ,doxygen)
1633          ("graphviz" ,graphviz)))
1634       (inputs
1635        `(("boost" ,boost)
1636          ("freeglut" ,freeglut)
1637          ("glew" ,glew)))
1638       (arguments
1639        `(#:configure-flags
1640          (list
1641           "-DCOIN_BUILD_DOCUMENTATION_MAN=ON"
1642           (string-append "-DBOOST_ROOT="
1643                          (assoc-ref %build-inputs "boost")))))
1644       (home-page "https://bitbucket.org/Coin3D/coin/wiki/Home")
1645       (synopsis
1646        "High-level 3D visualization library with Open Inventor 2.1 API")
1647       (description
1648        "Coin is a 3D graphics library with an Application Programming Interface
1649 based on the Open Inventor 2.1 API.  For those who are not familiar with
1650 Open Inventor, it is a scene-graph based retain-mode rendering and model
1651 interaction library, written in C++, which has become the de facto
1652 standard graphics library for 3D visualization and visual simulation
1653 software in the scientific and engineering community.")
1654       (license license:bsd-3))))
1655
1656 (define-public superfamiconv
1657   (package
1658     (name "superfamiconv")
1659     (version "0.8.8")
1660     (source
1661      (origin
1662        (method git-fetch)
1663        (uri (git-reference
1664              (url "https://github.com/Optiroc/SuperFamiconv")
1665              (commit (string-append "v" version))))
1666        (file-name (git-file-name name version))
1667        (sha256
1668         (base32
1669          "0848szv6a2b8wdganh6mw5i8vn8cqvn1kbwzx7mb9wlrf5wzqn37"))))
1670     (build-system gnu-build-system)
1671     (arguments
1672      `(#:tests? #f ; no tests
1673        #:phases
1674        (modify-phases %standard-phases
1675          (delete 'configure)
1676          (replace 'install
1677            (lambda* (#:key outputs #:allow-other-keys)
1678              (let* ((outdir (assoc-ref outputs "out"))
1679                     (bindir (string-append outdir "/bin")))
1680                (install-file "bin/superfamiconv" bindir)
1681                #t))))))
1682     (home-page "https://github.com/Optiroc/SuperFamiconv")
1683     (synopsis "Tile graphics converter supporting SNES, Game Boy Color
1684 and PC Engine formats")
1685     (description "SuperFamiconv is a converter for tiled graphics, supporting
1686 the graphics formats of the SNES, Game Boy Color and PC Engine game consoles.
1687 Automated palette selection is supported.")
1688     (license license:expat)))
1689
1690 (define-public drawpile
1691   ;; This commit fix building with libmicrohttpd>=0.71.
1692   (let ((commit "ed1a75deb113da2d1df91a28f557509c4897130e")
1693         (revision "1"))
1694     (package
1695       (name "drawpile")
1696       (version (string-append "2.1.17-" revision "." (string-take commit 9)))
1697       (source (origin
1698                 (method git-fetch)
1699                 (uri (git-reference
1700                       (url "https://github.com/drawpile/Drawpile")
1701                       (commit commit)))
1702                 (file-name (git-file-name name version))
1703                 (sha256
1704                  (base32
1705                   "1y21h1hk9ipkjvhjgas0c5hkjyan92vsxbxrn60c906hzqln2fr1"))))
1706       (build-system qt-build-system)
1707       (arguments
1708        '(#:configure-flags
1709          (list "-DTESTS=ON" "-DTOOLS=ON" "-DKIS_TABLET=ON")))
1710       (native-inputs
1711        `(("extra-cmake-modules" ,extra-cmake-modules)
1712          ("pkg-config" ,pkg-config)))
1713       (inputs
1714        `(("giflib" ,giflib)
1715          ("karchive" ,karchive)
1716          ("kdnssd" ,kdnssd)
1717          ("libmicrohttpd" ,libmicrohttpd)
1718          ("libsodium" ,libsodium)
1719          ("libvpx" ,libvpx)
1720          ("libxi" ,libxi)
1721          ;; ("miniupnpc" ,miniupnpc) ;segfaults for some reason
1722          ("qtbase" ,qtbase)
1723          ("qtkeychain" ,qtkeychain)
1724          ("qtmultimedia" ,qtmultimedia)
1725          ("qtsvg" ,qtsvg)
1726          ("qtx11extras" ,qtx11extras)))
1727       (home-page "https://drawpile.net")
1728       (synopsis "Collaborative drawing program")
1729       (description "Drawpile is a drawing program that allows share the canvas
1730 with other users in real time.
1731
1732 Some feature highlights:
1733 @itemize
1734 @item Shared canvas using the built-in server or a dedicated server
1735 @item Record, play back and export drawing sessions
1736 @item Simple animation support
1737 @item Layers and blending modes
1738 @item Text layers
1739 @item Supports pressure sensitive Wacom tablets
1740 @item Built-in chat
1741 @item Supports OpenRaster file format
1742 @item Encrypted connections using SSL
1743 @item Automatic port forwarding with UPnP
1744 @end itemize\n")
1745       (license license:gpl3+))))