gnu/packages/image.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2017 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2013, 2015, 2016 Andreas Enge <andreas@enge.fr>
   4 ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
   5 ;;; Copyright © 2014, 2015 Alex Kost <alezost@gmail.com>
   6 ;;; Copyright © 2014, 2016, 2017 Ricardo Wurmus <rekado@elephly.net>
   7 ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
   8 ;;; Copyright © 2015 Amirouche Boubekki <amirouche@hypermove.net>
   9 ;;; Copyright © 2014, 2017 John Darrington <jmd@gnu.org>
  10 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
  11 ;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
  12 ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
  13 ;;; Copyright © 2016, 2017 Tobias Geerinckx-Rice <me@tobias.gr>
  14 ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
  15 ;;; Copyright © 2016, 2017 Arun Isaac <arunisaac@systemreboot.net>
  16 ;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net>
  17 ;;; Copyright © 2017 ng0 <ng0@infotropique.org>
  18 ;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
  19 ;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
  20 ;;;
  21 ;;; This file is part of GNU Guix.
  22 ;;;
  23 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  24 ;;; under the terms of the GNU General Public License as published by
  25 ;;; the Free Software Foundation; either version 3 of the License, or (at
  26 ;;; your option) any later version.
  27 ;;;
  28 ;;; GNU Guix is distributed in the hope that it will be useful, but
  29 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  30 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  31 ;;; GNU General Public License for more details.
  32 ;;;
  33 ;;; You should have received a copy of the GNU General Public License
  34 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  35
  36 (define-module (gnu packages image)
  37   #:use-module (gnu packages)
  38   #:use-module (gnu packages algebra)
  39   #:use-module (gnu packages assembly)
  40   #:use-module (gnu packages autotools)
  41   #:use-module (gnu packages boost)
  42   #:use-module (gnu packages check)
  43   #:use-module (gnu packages compression)
  44   #:use-module (gnu packages documentation)
  45   #:use-module (gnu packages fontutils)
  46   ;; To provide gcc@5 and gcc@6, to work around <http://bugs.gnu.org/24703>.
  47   #:use-module (gnu packages gcc)
  48   #:use-module (gnu packages gettext)
  49   #:use-module (gnu packages ghostscript)
  50   #:use-module (gnu packages gl)
  51   #:use-module (gnu packages glib)
  52   #:use-module (gnu packages graphics)
  53   #:use-module (gnu packages gtk)
  54   #:use-module (gnu packages lua)
  55   #:use-module (gnu packages maths)
  56   #:use-module (gnu packages mcrypt)
  57   #:use-module (gnu packages perl)
  58   #:use-module (gnu packages pkg-config)
  59   #:use-module (gnu packages python)
  60   #:use-module (gnu packages xml)
  61   #:use-module (gnu packages xorg)
  62   #:use-module ((guix licenses) #:prefix license:)
  63   #:use-module (guix packages)
  64   #:use-module (guix download)
  65   #:use-module (guix git-download)
  66   #:use-module (guix build-system gnu)
  67   #:use-module (guix build-system cmake)
  68   #:use-module (guix build-system python)
  69   #:use-module (guix build-system r)
  70   #:use-module (guix build-system scons)
  71   #:use-module (srfi srfi-1))
  72
  73 (define-public libpng
  74   (package
  75    (name "libpng")
  76    (version "1.6.34")
  77    (source (origin
  78             (method url-fetch)
  79             (uri (list (string-append "mirror://sourceforge/libpng/libpng16/"
  80                                       version "/libpng-" version ".tar.xz")
  81                        (string-append
  82                         "ftp://ftp.simplesystems.org/pub/libpng/png/src"
  83                         "/libpng16/libpng-" version ".tar.xz")
  84                        (string-append
  85                         "ftp://ftp.simplesystems.org/pub/libpng/png/src/history"
  86                         "/libpng16/libpng-" version ".tar.xz")))
  87             (sha256
  88              (base32
  89               "1xjr0v34fyjgnhvaa1zixcpx5yvxcg4zwvfh0fyklfyfj86rc7ig"))))
  90    (build-system gnu-build-system)
  91
  92    ;; libpng.la says "-lz", so propagate it.
  93    (propagated-inputs `(("zlib" ,zlib)))
  94
  95    (synopsis "Library for handling PNG files")
  96    (description
  97     "Libpng is the official PNG (Portable Network Graphics) reference
  98 library.  It supports almost all PNG features and is extensible.")
  99    (license license:zlib)
 100    (home-page "http://www.libpng.org/pub/png/libpng.html")))
 101
 102 ;; libpng-apng should be updated when the APNG patch is released:
 103 ;; <https://bugs.gnu.org/27556>
 104 (define-public libpng-apng
 105   (package
 106     (name "libpng-apng")
 107     (version "1.6.28")
 108     (source
 109      (origin
 110        (method url-fetch)
 111        (uri (list (string-append "mirror://sourceforge/libpng/libpng16/"
 112                                  version "/libpng-" version ".tar.xz")
 113                   (string-append
 114                    "ftp://ftp.simplesystems.org/pub/libpng/png/src"
 115                    "/libpng16/libpng-" version ".tar.xz")
 116                   (string-append
 117                    "ftp://ftp.simplesystems.org/pub/libpng/png/src/history"
 118                    "/libpng16/libpng-" version ".tar.xz")))
 119        (sha256
 120         (base32
 121          "0ylgyx93hnk38haqrh8prd3ax5ngzwvjqw5cxw7p9nxmwsfyrlyq"))))
 122     (build-system gnu-build-system)
 123     (arguments
 124      `(#:modules ((guix build gnu-build-system)
 125                   (guix build utils)
 126                   (srfi srfi-1))
 127        #:phases
 128        (modify-phases %standard-phases
 129          (add-after 'unpack 'patch-apng
 130            (lambda* (#:key inputs #:allow-other-keys)
 131              (define (apply-patch file)
 132                (zero? (system* "patch" "-p1" "--force"
 133                                "--input" file)))
 134              (let ((apng.gz (assoc-ref inputs "apng")))
 135                (format #t "Applying APNG patch '~a'...~%"
 136                        apng.gz)
 137                (and
 138                  (zero?
 139                    (system (string-append "gunzip < " apng.gz " > the-patch")))
 140                  (apply-patch "the-patch")))))
 141          (add-before 'configure 'no-checks
 142            (lambda _
 143              (substitute* "Makefile.in"
 144                (("^scripts/symbols.chk") "")
 145                (("check: scripts/symbols.chk") ""))
 146              #t)))))
 147     (inputs
 148      `(("apng" ,(origin
 149                   (method url-fetch)
 150                   (uri
 151                    (string-append "mirror://sourceforge/libpng-apng/libpng16/"
 152                                   version "/libpng-" version "-apng.patch.gz"))
 153                   (sha256
 154                    (base32
 155                     "0m5nv70n9903x3xzxw9qqc6sgf2rp106ha0x6gix0xf8wcrljaab"))))))
 156     (native-inputs
 157      `(("libtool" ,libtool)))
 158     ;; libpng.la says "-lz", so propagate it.
 159     (propagated-inputs
 160      `(("zlib" ,zlib)))
 161     (synopsis "APNG patch for libpng")
 162     (description
 163      "APNG (Animated Portable Network Graphics) is an unofficial
 164 extension of the APNG (Portable Network Graphics) format.
 165 APNG patch provides APNG support to libpng.")
 166     (home-page "https://sourceforge.net/projects/libpng-apng/")
 167     (license license:zlib)))
 168
 169 (define-public libpng-1.2
 170   (package
 171     (inherit libpng)
 172     (version "1.2.59")
 173     (source
 174      (origin
 175        (method url-fetch)
 176        (uri (list (string-append "mirror://sourceforge/libpng/libpng12/"
 177                                  version "/libpng-" version ".tar.xz")
 178                   (string-append
 179                    "ftp://ftp.simplesystems.org/pub/libpng/png/src"
 180                    "/libpng12/libpng-" version ".tar.xz")
 181                   (string-append
 182                    "ftp://ftp.simplesystems.org/pub/libpng/png/src/history"
 183                    "/libpng12/libpng-" version ".tar.xz")))
 184        (sha256
 185         (base32
 186          "1izw9ybm27llk8531w6h4jp4rk2rxy2s9vil16nwik5dp0amyqxl"))))))
 187
 188 (define-public r-png
 189   (package
 190     (name "r-png")
 191     (version "0.1-7")
 192     (source (origin
 193               (method url-fetch)
 194               (uri (cran-uri "png" version))
 195               (sha256
 196                (base32
 197                 "0g2mcp55lvvpx4kd3mn225mpbxqcq73wy5qx8b4lyf04iybgysg2"))))
 198     (build-system r-build-system)
 199     (inputs
 200      `(("libpng" ,libpng)
 201        ("zlib" ,zlib)))
 202     (home-page "http://www.rforge.net/png/")
 203     (synopsis "Read and write PNG images")
 204     (description
 205      "This package provides an easy and simple way to read, write and display
 206 bitmap images stored in the PNG format.  It can read and write both files and
 207 in-memory raw vectors.")
 208     ;; Any of these GPL versions.
 209     (license (list license:gpl2 license:gpl3))))
 210
 211 (define-public pngcrush
 212   (package
 213    (name "pngcrush")
 214    (version "1.8.13")
 215    (source (origin
 216             (method url-fetch)
 217             (uri (string-append "mirror://sourceforge/pmt/pngcrush/"
 218                                 version "/pngcrush-" version "-nolib.tar.xz"))
 219             (sha256 (base32
 220                      "0l43c59d6v9l0g07z3q3ywhb8xb3vz74llv3mna0izk9bj6aqkiv"))))
 221    (build-system gnu-build-system)
 222    (arguments
 223     '(#:tests? #f ; no check target
 224       #:phases
 225       (modify-phases %standard-phases
 226         (replace 'configure
 227           (lambda* (#:key inputs outputs #:allow-other-keys)
 228             (substitute* "Makefile"
 229               (("^(PNG(INC|LIB) = )/usr/local/" line vardef)
 230                (string-append vardef (assoc-ref inputs "libpng") "/"))
 231               (("^(Z(INC|LIB) = )/usr/local/" line vardef)
 232                (string-append vardef (assoc-ref inputs "zlib") "/"))
 233               ;; The Makefile is written by hand and not using $PREFIX
 234               (("\\$\\(DESTDIR\\)/usr/")
 235                (string-append (assoc-ref outputs "out") "/"))))))))
 236    (inputs
 237     `(("libpng" ,libpng)
 238       ("zlib" , zlib)))
 239    (home-page "https://pmt.sourceforge.io/pngcrush")
 240    (synopsis "Utility to compress PNG files")
 241    (description "pngcrusqh is an optimizer for PNG (Portable Network Graphics)
 242 files.  It can compress them as much as 40% losslessly.")
 243    (license license:zlib)))
 244
 245 (define-public pngcrunch
 246   ;; This package used to be wrongfully name "pngcrunch".
 247   (deprecated-package "pngcrunch" pngcrush))
 248
 249 (define-public libjpeg
 250   (package
 251    (name "libjpeg")
 252    (version "9b")
 253    (source (origin
 254             (method url-fetch)
 255             (uri (string-append "http://www.ijg.org/files/jpegsrc.v"
 256                    version ".tar.gz"))
 257             (sha256 (base32
 258                      "0lnhpahgdwlrkd41lx6cr90r199f8mc6ydlh7jznj5klvacd63r4"))))
 259    (build-system gnu-build-system)
 260    (synopsis "Library for handling JPEG files")
 261    (description
 262     "Libjpeg implements JPEG image encoding, decoding, and transcoding.
 263 JPEG is a standardized compression method for full-color and gray-scale
 264 images.
 265 The included programs provide conversion between the JPEG format and
 266 image files in PBMPLUS PPM/PGM, GIF, BMP, and Targa file formats.")
 267    (license license:ijg)
 268    (home-page "http://www.ijg.org/")))
 269
 270 (define-public libjpeg-8
 271   (package (inherit libjpeg)
 272    (version "8d")
 273    (source (origin
 274             (method url-fetch)
 275             (uri (string-append "http://www.ijg.org/files/jpegsrc.v"
 276                    version ".tar.gz"))
 277             (sha256 (base32
 278                      "1cz0dy05mgxqdgjf52p54yxpyy95rgl30cnazdrfmw7hfca9n0h0"))))))
 279
 280 (define-public libjxr
 281   (package
 282     (name "libjxr")
 283     (version "1.1")
 284     (source (origin
 285               ;; We are using the Debian source because CodePlex does not
 286               ;; deliver an easily downloadable tarball.
 287               (method url-fetch)
 288               (uri (string-append "mirror://debian/pool/main/j/jxrlib/jxrlib_"
 289                                   version ".orig.tar.gz"))
 290               (sha256
 291                (base32
 292                 "00w3f3cmjsm3fiaxq5mxskmp5rl3mki8psrf9y8s1vqbg237na67"))
 293               (patch-flags '("-p1" "--binary"))
 294               (patches (search-patches "libjxr-fix-function-signature.patch"
 295                                        "libjxr-fix-typos.patch"))))
 296     (build-system gnu-build-system)
 297     (arguments '(#:make-flags '("CC=gcc")
 298                  #:tests? #f ; no check target
 299                  #:phases
 300                  (modify-phases %standard-phases
 301                    (delete 'configure) ; no configure script
 302                    ;; The upstream makefile does not include an install phase.
 303                    (replace 'install
 304                      (lambda* (#:key outputs #:allow-other-keys)
 305                        (let* ((out (assoc-ref outputs "out"))
 306                               (bin (string-append out "/bin"))
 307                               (lib (string-append out "/lib"))
 308                               (include (string-append out "/include/jxrlib")))
 309                          (for-each (lambda (file)
 310                                      (install-file file include)
 311                                      (delete-file file))
 312                                    (append
 313                                     '("jxrgluelib/JXRGlue.h"
 314                                       "jxrgluelib/JXRMeta.h"
 315                                       "jxrtestlib/JXRTest.h"
 316                                       "image/sys/windowsmediaphoto.h")
 317                                     (find-files "common/include" "\\.h$")))
 318                          (for-each (lambda (file)
 319                                      (install-file file lib)
 320                                      (delete-file file))
 321                                    (find-files "." "\\.a$"))
 322                          (for-each (lambda (file)
 323                                      (install-file file bin)
 324                                      (delete-file file))
 325                                    '("JxrDecApp" "JxrEncApp")))
 326                        #t)))))
 327     (synopsis "Implementation of the JPEG XR standard")
 328     (description "JPEG XR is an approved ISO/IEC International standard (its
 329 official designation is ISO/IEC 29199-2). This library is an implementation of that standard.")
 330     (license
 331      (license:non-copyleft
 332       "file://Makefile"
 333       "See the header of the Makefile in the distribution."))
 334     (home-page "https://jxrlib.codeplex.com/")))
 335
 336 (define-public jpegoptim
 337   (package
 338    (name "jpegoptim")
 339    (version "1.4.4")
 340    (source (origin
 341             (method url-fetch)
 342             (uri (string-append "http://www.kokkonen.net/tjko/src/jpegoptim-"
 343                                 version ".tar.gz"))
 344             (sha256 (base32
 345                      "1cn1i0g1xjdwa12w0ifbnzgb1vqbpr8ji6h05vxksj79vyi3x849"))))
 346    (build-system gnu-build-system)
 347    (inputs `(("libjpeg" ,libjpeg)))
 348    (arguments
 349     ;; no tests
 350     '(#:tests? #f))
 351    (synopsis "Optimize JPEG images")
 352    (description
 353     "jpegoptim provides lossless optimization (based on optimizing
 354 the Huffman tables) and \"lossy\" optimization based on setting
 355 maximum quality factor.")
 356    (license license:gpl2+)
 357    (home-page "http://www.kokkonen.net/tjko/projects.html#jpegoptim")))
 358
 359 (define-public libicns
 360   (package
 361     (name "libicns")
 362     (version "0.8.1")
 363     (source (origin
 364               (method url-fetch)
 365               (uri (string-append
 366                     "mirror://sourceforge/icns/"
 367                     "libicns-" version ".tar.gz"))
 368               (sha256
 369                (base32
 370                 "1hjm8lwap7bjyyxsyi94fh5817xzqhk4kb5y0b7mb6675xw10prk"))))
 371     (build-system gnu-build-system)
 372     (inputs
 373      `(("libpng" ,libpng)
 374        ("jasper" ,jasper)))
 375     (arguments
 376      `(#:tests? #t)) ; No tests.
 377     (home-page "http://icns.sourceforge.net/")
 378     (synopsis "Library for handling Mac OS icns resource files")
 379     (description
 380      "Libicns is a library for the manipulation of Mac OS IconFamily resource
 381 type files (ICNS).  @command{icns2png} and @command{png2icns} are provided to
 382 convert between PNG and ICNS. @command{icns2png} will extract image files from
 383 ICNS files under names like \"Foo_48x48x32.png\" useful for installing for use
 384 with .desktop files.  Additionally, @command{icontainer2png} is provided for
 385 extracting icontainer icon files.")
 386     (license (list license:lgpl2.1+     ; libicns
 387                    license:lgpl2.0+     ; src/apidocs.*
 388                    license:gpl2+))))    ; icns2png, png2icns, icontainer2png
 389
 390 (define-public libtiff
 391   (package
 392    (name "libtiff")
 393    (version "4.0.9")
 394    (replacement libtiff/fixed)
 395    (source
 396      (origin
 397        (method url-fetch)
 398        (uri (string-append "http://download.osgeo.org/libtiff/tiff-"
 399                            version ".tar.gz"))
 400        (sha256
 401         (base32
 402          "1kfg4q01r4mqn7dj63ifhi6pmqzbf4xax6ni6kkk81ri5kndwyvf"))))
 403    (build-system gnu-build-system)
 404    (outputs '("out"
 405               "doc"))                           ;1.3 MiB of HTML documentation
 406    (arguments
 407     ;; Instead of using --docdir, this package has its own --with-docdir.
 408     `(#:configure-flags (list (string-append "--with-docdir="
 409                                              (assoc-ref %outputs "doc")
 410                                              "/share/doc/"
 411                                              ,name "-" ,version))))
 412    (inputs `(("zlib" ,zlib)
 413              ("libjpeg" ,libjpeg)))
 414    (synopsis "Library for handling TIFF files")
 415    (description
 416     "Libtiff provides support for the Tag Image File Format (TIFF), a format
 417 used for storing image data.
 418 Included are a library, libtiff, for reading and writing TIFF and a small
 419 collection of tools for doing simple manipulations of TIFF images.")
 420    (license (license:non-copyleft "file://COPYRIGHT"
 421                                   "See COPYRIGHT in the distribution."))
 422    (home-page "http://www.simplesystems.org/libtiff/")))
 423
 424 (define libtiff/fixed
 425   (package
 426     (inherit libtiff)
 427     (source
 428       (origin
 429         (inherit (package-source libtiff))
 430         (patches
 431           (append (origin-patches (package-source libtiff))
 432                   (search-patches "libtiff-CVE-2017-9935.patch"
 433                                   "libtiff-CVE-2017-18013.patch")))))))
 434
 435 (define-public leptonica
 436   (package
 437     (name "leptonica")
 438     (version "1.74.4")
 439     (source
 440      (origin
 441        (method url-fetch)
 442        (uri (string-append
 443              "https://github.com/DanBloomberg/leptonica/archive/" version
 444              ".tar.gz"))
 445        (file-name (string-append "leptonica-" version ".tar.gz"))
 446        (sha256
 447         (base32 "10pw7pwccd0m0fc9rlrr2m41s7j1qvba2wcrav17pw1gclkf34i0"))))
 448     (build-system gnu-build-system)
 449     (native-inputs
 450      `(("gnuplot" ,gnuplot)             ;needed for test suite
 451        ("autoconf" ,autoconf)
 452        ("automake" ,automake)
 453        ("libtool" ,libtool)
 454        ("pkg-config" ,pkg-config)))
 455     (inputs
 456      `(("giflib" ,giflib)
 457        ("libjpeg" ,libjpeg)
 458        ("libpng" ,libpng)
 459        ("libtiff" ,libtiff)
 460        ("libwebp" ,libwebp)))
 461     (propagated-inputs
 462      ;; Linking a program with leptonica also requires these.
 463      `(("openjpeg" ,openjpeg)
 464        ("zlib" ,zlib)))
 465     (arguments
 466      '(#:phases
 467        (modify-phases %standard-phases
 468          (add-after 'unpack 'autogen
 469            (lambda _
 470              (zero? (system* "sh" "autobuild"))))
 471          (add-after 'unpack 'patch-reg-wrapper
 472            (lambda _
 473              (substitute* "prog/reg_wrapper.sh"
 474                ((" /bin/sh ")
 475                 (string-append " " (which "sh") " "))
 476                (("which gnuplot")
 477                 "true")))))))
 478     (home-page "http://www.leptonica.com/")
 479     (synopsis "Library and tools for image processing and analysis")
 480     (description
 481      "Leptonica is a C library and set of command-line tools for efficient
 482 image processing and image analysis operations.  It supports rasterop, affine
 483 transformations, binary and grayscale morphology, rank order, and convolution,
 484 seedfill and connected components, image transformations combining changes in
 485 scale and pixel depth, and pixelwise masking, blending, enhancement, and
 486 arithmetic ops.")
 487     (license license:bsd-2)))
 488
 489 (define-public jbig2dec
 490   (package
 491     (name "jbig2dec")
 492     (version "0.14")
 493     (source
 494       (origin
 495         (method url-fetch)
 496         (uri (string-append "http://downloads.ghostscript.com/public/" name "/"
 497                             name "-" version ".tar.gz"))
 498         (sha256
 499           (base32 "0k01hp0q4275fj4rbr1gy64svfraw5w7wvwl08yjhvsnpb1rid11"))
 500         (patches (search-patches "jbig2dec-ignore-testtest.patch"))))
 501     (build-system gnu-build-system)
 502     (synopsis "Decoder of the JBIG2 image compression format")
 503     (description
 504       "JBIG2 is designed for lossy or lossless encoding of 'bilevel' (1-bit
 505 monochrome) images at moderately high resolution, and in particular scanned
 506 paper documents.  In this domain it is very efficient, offering compression
 507 ratios on the order of 100:1.
 508
 509 This is a decoder only implementation, and currently is in the alpha
 510 stage, meaning it doesn't completely work yet.  However, it is
 511 maintaining parity with available encoders, so it is useful for real
 512 work.")
 513     (home-page "http://www.ghostscript.com/jbig2dec.html")
 514     (license license:gpl2+)))
 515
 516 (define-public openjpeg
 517   (package
 518     (name "openjpeg")
 519     (version "2.3.0")
 520     (source
 521       (origin
 522         (method url-fetch)
 523         (uri
 524          (string-append "https://github.com/uclouvain/openjpeg/archive/v"
 525                         version ".tar.gz"))
 526         (file-name (string-append name "-" version ".tar.gz"))
 527         (sha256
 528          (base32
 529           "06npqzkg20avnygdwaqpap91r7qpdqgrn39adj2bl8v0pg0qgirx"))))
 530     (build-system cmake-build-system)
 531     (arguments
 532       ;; Trying to run `$ make check' results in a no rule fault.
 533       '(#:tests? #f))
 534     (inputs
 535       `(("lcms" ,lcms)
 536         ("libpng" ,libpng)
 537         ("libtiff" ,libtiff)
 538         ("zlib" ,zlib)))
 539     (synopsis "JPEG 2000 codec")
 540     (description
 541       "The OpenJPEG library is a JPEG 2000 codec written in C.  It has
 542 been developed in order to promote the use of JPEG 2000, the new
 543 still-image compression standard from the Joint Photographic Experts
 544 Group (JPEG).
 545
 546 In addition to the basic codec, various other features are under
 547 development, among them the JP2 and MJ2 (Motion JPEG 2000) file formats,
 548 an indexing tool useful for the JPIP protocol, JPWL-tools for
 549 error-resilience, a Java-viewer for j2k-images, ...")
 550     (home-page "https://github.com/uclouvain/openjpeg")
 551     (license license:bsd-2)))
 552
 553 (define-public openjpeg-1
 554   (package (inherit openjpeg)
 555     (name "openjpeg")
 556     (version "1.5.2")
 557     (source
 558      (origin
 559        (method url-fetch)
 560        (uri
 561         (string-append "mirror://sourceforge/openjpeg.mirror/" version "/"
 562                        name "-" version ".tar.gz"))
 563        (sha256
 564         (base32 "11waq9w215zvzxrpv40afyd18qf79mxc28fda80bm3ax98cpppqm"))))))
 565
 566 (define-public giflib
 567   (package
 568     (name "giflib")
 569     (version "5.1.4")
 570     (source (origin
 571               (method url-fetch)
 572               (uri (string-append "mirror://sourceforge/giflib/giflib-"
 573                                   version ".tar.bz2"))
 574               (sha256
 575                (base32
 576                 "1md83dip8rf29y40cm5r7nn19705f54iraz6545zhwa6y8zyq9yz"))))
 577     (build-system gnu-build-system)
 578     (outputs '("bin"                    ; utility programs
 579                "out"))                  ; library
 580     (inputs `(("libx11" ,libx11)
 581               ("libice" ,libice)
 582               ("libsm" ,libsm)
 583               ("perl" ,perl)))
 584     (arguments
 585      `(#:phases
 586        (modify-phases %standard-phases
 587          (add-after 'unpack 'disable-html-doc-gen
 588            (lambda _
 589              (substitute* "doc/Makefile.in"
 590                (("^all: allhtml manpages") ""))))
 591          (add-after 'install 'install-manpages
 592            (lambda* (#:key outputs #:allow-other-keys)
 593              (let* ((bin (assoc-ref outputs "bin"))
 594                     (man1dir (string-append bin "/share/man/man1")))
 595                (mkdir-p man1dir)
 596                (for-each (lambda (file)
 597                            (let ((base (basename file)))
 598                              (format #t "installing `~a' to `~a'~%"
 599                                      base man1dir)
 600                              (copy-file file
 601                                         (string-append
 602                                          man1dir "/" base))))
 603                          (find-files "doc" "\\.1"))))))))
 604     (synopsis "Tools and library for working with GIF images")
 605     (description
 606      "GIFLIB is a library for reading and writing GIF images.  It is API and
 607 ABI compatible with libungif which was in wide use while the LZW compression
 608 algorithm was patented.  Tools are also included to convert, manipulate,
 609 compose, and analyze GIF images.")
 610     (home-page "http://giflib.sourceforge.net/")
 611     (license license:x11)))
 612
 613 (define-public libungif
 614   (package
 615     (name "libungif")
 616     (version "4.1.4")
 617     (source (origin
 618               (method url-fetch)
 619               (uri (string-append "mirror://sourceforge/giflib/libungif-4.x/"
 620                                   "libungif-" version "/libungif-"
 621                                   version ".tar.bz2"))
 622               (sha256
 623                (base32
 624                 "0cnksimmmjngdrys302ik1385sg1sj4i0gxivzldhgwd46n7x2kh"))))
 625     (build-system gnu-build-system)
 626     (inputs `(("perl" ,perl)))          ;package ships some perl tools
 627     (home-page "http://giflib.sourceforge.net/")
 628     (synopsis "GIF decompression library")
 629     (description
 630      "libungif is the old GIF decompression library by the GIFLIB project.")
 631     (license license:expat)))
 632
 633 (define-public imlib2
 634   (package
 635     (name "imlib2")
 636     (version "1.4.10")
 637     (source (origin
 638               (method url-fetch)
 639               (uri (string-append
 640                     "mirror://sourceforge/enlightenment/imlib2-src/" version
 641                     "/imlib2-" version ".tar.bz2"))
 642               (sha256
 643                (base32
 644                 "0wm2q2xlkbm71k7mw2jyzbxgzylrkcj5yh6nq58w5gybhp98qs9z"))))
 645     (build-system gnu-build-system)
 646     (native-inputs
 647      `(("pkgconfig" ,pkg-config)))
 648     (inputs
 649      `(("libx11" ,libx11)
 650        ("libxext" ,libxext)
 651        ("freetype" ,freetype)
 652        ("libjpeg" ,libjpeg)
 653        ("libpng" ,libpng)
 654        ("libtiff" ,libtiff)
 655        ("giflib" ,giflib)
 656        ("bzip2" ,bzip2)))
 657     (home-page "https://sourceforge.net/projects/enlightenment/")
 658     (synopsis
 659      "Loading, saving, rendering and manipulating image files")
 660     (description
 661      "Imlib2 is a library that does image file loading and saving as well as
 662 rendering, manipulation, arbitrary polygon support, etc.
 663
 664 It does ALL of these operations FAST.  Imlib2 also tries to be highly
 665 intelligent about doing them, so writing naive programs can be done easily,
 666 without sacrificing speed.
 667
 668 This is a complete rewrite over the Imlib 1.x series.  The architecture is
 669 more modular, simple, and flexible.")
 670     (license license:imlib2)))
 671
 672 (define-public giblib
 673   (package
 674     (name "giblib")
 675     (version "1.2.4")
 676     (source (origin
 677               (method url-fetch)
 678               (uri (list
 679                      (string-append
 680                        "http://linuxbrit.co.uk/downloads/giblib-"
 681                        version ".tar.gz")
 682                      (string-append
 683                        "https://sourceforge.net/projects/slackbuildsdirectlinks/"
 684                        "files/giblib/giblib-" version ".tar.gz")))
 685               (sha256
 686                (base32
 687                 "1b4bmbmj52glq0s898lppkpzxlprq9aav49r06j2wx4dv3212rhp"))))
 688     (build-system gnu-build-system)
 689     (inputs
 690      `(("libx11" ,libx11)
 691        ("imlib2" ,imlib2)))
 692     (home-page "http://linuxbrit.co.uk/software/") ; no real home-page
 693     (synopsis "Wrapper library for imlib2")
 694     (description
 695      "Giblib is a simple library which wraps imlib2's context API, avoiding
 696 all the context_get/set calls, adds fontstyles to the truetype renderer and
 697 supplies a generic doubly-linked list and some string functions.")
 698     ;; This license removes a clause about X Consortium from the original
 699     ;; X11 license.
 700     (license (license:x11-style "file://COPYING"
 701                                 "See 'COPYING' in the distribution."))))
 702
 703 (define-public freeimage
 704   (package
 705    (name "freeimage")
 706    (version "3.17.0")
 707    (source (origin
 708             (method url-fetch)
 709             (uri (string-append
 710                   "mirror://sourceforge/freeimage/Source%20Distribution/"
 711                   version "/FreeImage"
 712                   (string-concatenate (string-split version #\.))
 713                   ".zip"))
 714             (sha256
 715              (base32
 716               "12bz57asdcfsz3zr9i9nska0fb6h3z2aizy412qjqkixkginbz7v"))
 717             (patches (search-patches "freeimage-CVE-2015-0852.patch"
 718                                      "freeimage-CVE-2016-5684.patch"
 719                                      "freeimage-fix-build-with-gcc-5.patch"))))
 720    (build-system gnu-build-system)
 721    (arguments
 722     '(#:phases
 723       (modify-phases %standard-phases
 724         (delete 'configure)
 725         (add-before 'build 'patch-makefile
 726           (lambda* (#:key outputs #:allow-other-keys)
 727             (substitute* "Makefile.gnu"
 728               (("/usr") (assoc-ref outputs "out"))
 729               (("-o root -g root") ""))
 730             #t)))
 731       #:make-flags '("CC=gcc")
 732       #:tests? #f)) ; no check target
 733    (native-inputs
 734     `(("unzip" ,unzip)))
 735    ;; Fails to build on MIPS due to assembly code in the source.
 736    (supported-systems (delete "mips64el-linux" %supported-systems))
 737    (synopsis "Library for handling popular graphics image formats")
 738    (description
 739     "FreeImage is a library for developers who would like to support popular
 740 graphics image formats like PNG, BMP, JPEG, TIFF and others.")
 741    (license license:gpl2+)
 742    (home-page "http://freeimage.sourceforge.net")))
 743
 744 (define-public vigra
 745   (package
 746    (name "vigra")
 747    (version "1.11.1")
 748    (source
 749     (origin
 750       (method url-fetch)
 751       (uri (string-append "https://github.com/ukoethe/vigra/releases/download/"
 752                           "Version-" (string-join (string-split version #\.) "-")
 753                           "/vigra-" version "-src.tar.gz"))
 754       (sha256 (base32
 755                 "1bqs8vx5i1bzamvv563i24gx2xxdidqyxh9iaj46mbznhc84wmm5"))))
 756    (build-system cmake-build-system)
 757    (inputs
 758     `(("boost" ,boost)
 759       ("fftw" ,fftw)
 760       ("fftwf" ,fftwf)
 761       ("hdf5" ,hdf5)
 762       ("ilmbase" ,ilmbase) ; propagated by openexr, but needed explicitly
 763                            ; to create a configure-flag
 764       ("libjpeg" ,libjpeg)
 765       ("libpng" ,libpng)
 766       ("libtiff" ,libtiff)
 767       ("openexr" ,openexr)
 768       ("python" ,python-2) ; print syntax
 769       ("python2-numpy" ,python2-numpy)
 770       ("zlib" ,zlib)))
 771    (native-inputs
 772     `(("doxygen" ,doxygen)
 773       ("python2-nose" ,python2-nose)
 774       ("python2-sphinx" ,python2-sphinx)))
 775    (arguments
 776     `(#:test-target "check"
 777       #:parallel-build? #f ; parallel builds trigger an ICE
 778       #:configure-flags
 779         (list "-Wno-dev" ; suppress developer mode with lots of warnings
 780               (string-append "-DVIGRANUMPY_INSTALL_DIR="
 781                              (assoc-ref %outputs "out")
 782                              "/lib/python2.7/site-packages")
 783               ;; OpenEXR is not enabled by default.
 784               "-DWITH_OPENEXR=1"
 785               ;; Fix rounding error on 32-bit machines
 786               "-DCMAKE_C_FLAGS=-ffloat-store"
 787               ;; The header files of ilmbase are not found when included
 788               ;; by the header files of openexr, and an explicit flag
 789               ;; needs to be set.
 790               (string-append "-DCMAKE_CXX_FLAGS=-I"
 791                              (assoc-ref %build-inputs "ilmbase")
 792                              "/include/OpenEXR"
 793                              " -ffloat-store"))))
 794    (synopsis "Computer vision library")
 795    (description
 796     "VIGRA stands for Vision with Generic Algorithms.  It is an image
 797 processing and analysis library that puts its main emphasis on customizable
 798 algorithms and data structures.  It is particularly strong for
 799 multi-dimensional image processing.")
 800    (license license:expat)
 801    (home-page "https://ukoethe.github.io/vigra/")))
 802
 803 (define-public libwebp
 804   (package
 805     (name "libwebp")
 806     (version "0.6.1")
 807     (source
 808      (origin
 809        (method url-fetch)
 810        (uri (string-append
 811              "http://downloads.webmproject.org/releases/webp/libwebp-" version
 812              ".tar.gz"))
 813        (sha256
 814         (base32
 815          "1ayq2zq0zbgf5yizbm32zh7p1vb8kibw74am6am1n5cz5mw3ql06"))))
 816     (build-system gnu-build-system)
 817     (inputs
 818      `(("freeglut" ,freeglut)
 819        ("giflib" ,giflib)
 820        ("libjpeg" ,libjpeg)
 821        ("libpng" ,libpng)
 822        ("libtiff" ,libtiff)))
 823     (arguments
 824      '(#:configure-flags '("--enable-libwebpmux"
 825                            "--enable-libwebpdemux"
 826                            "--enable-libwebpdecoder")))
 827     (home-page "https://developers.google.com/speed/webp/")
 828     (synopsis "Lossless and lossy image compression")
 829     (description
 830      "WebP is a new image format that provides lossless and lossy compression
 831 for images.  WebP lossless images are 26% smaller in size compared to
 832 PNGs.  WebP lossy images are 25-34% smaller in size compared to JPEG images at
 833 equivalent SSIM index.  WebP supports lossless transparency (also known as
 834 alpha channel) with just 22% additional bytes.  Transparency is also supported
 835 with lossy compression and typically provides 3x smaller file sizes compared
 836 to PNG when lossy compression is acceptable for the red/green/blue color
 837 channels.")
 838     (license license:bsd-3)))
 839
 840 (define-public libmng
 841   (package
 842     (name "libmng")
 843     (version "2.0.3")
 844     (source (origin
 845               (method url-fetch)
 846               (uri (string-append "mirror://sourceforge/libmng/libmng-devel/"
 847                                   version "/" name "-" version ".tar.xz"))
 848               (sha256
 849                (base32
 850                 "1lvxnpds0vcf0lil6ia2036ghqlbl740c4d2sz0q5g6l93fjyija"))))
 851     (build-system gnu-build-system)
 852     (propagated-inputs
 853      ;; These are all in the 'Libs.private' field of libmng.pc.
 854      `(("lcms" ,lcms)
 855        ("libjpeg" ,libjpeg)
 856        ("zlib" ,zlib)))
 857     (home-page "http://www.libmng.com/")
 858     (synopsis "Library for handling MNG files")
 859     (description
 860      "Libmng is the MNG (Multiple-image Network Graphics) reference library.")
 861     (license license:bsd-3)))
 862
 863 (define-public exiv2
 864   (package
 865     (name "exiv2")
 866     (version "0.26")
 867     (source (origin
 868              (method url-fetch)
 869              (uri (list (string-append "http://www.exiv2.org/builds/exiv2-"
 870                                        version "-trunk.tar.gz")
 871                         (string-append "http://www.exiv2.org/exiv2-"
 872                                        version ".tar.gz")
 873                         (string-append "https://fossies.org/linux/misc/exiv2-"
 874                                        version ".tar.gz")))
 875              (patches (search-patches "exiv2-CVE-2017-14860.patch"
 876                                       "exiv2-CVE-2017-14859-14862-14864.patch"))
 877              (sha256
 878               (base32
 879                "1yza317qxd8yshvqnay164imm0ks7cvij8y8j86p1gqi1153qpn7"))))
 880     (build-system gnu-build-system)
 881     (arguments '(#:tests? #f))                    ; no `check' target
 882     (propagated-inputs
 883      `(("expat" ,expat)
 884        ("zlib" ,zlib)))
 885     (native-inputs
 886      `(("intltool" ,intltool)))
 887     (home-page "http://www.exiv2.org/")
 888     (synopsis "Library and command-line utility to manage image metadata")
 889     (description
 890      "Exiv2 is a C++ library and a command line utility to manage image
 891 metadata.  It provides fast and easy read and write access to the Exif, IPTC
 892 and XMP metadata of images in various formats.")
 893
 894     ;; Files under `xmpsdk' are a copy of Adobe's XMP SDK, licensed under the
 895     ;; 3-clause BSD license: <http://www.adobe.com/devnet/xmp/sdk/eula.html>.
 896     ;; The core is GPLv2+:
 897     ;;   <https://launchpad.net/ubuntu/precise/+source/exiv2/+copyright>.
 898     (license license:gpl2+)))
 899
 900 (define-public devil
 901   (package
 902     (name "devil")
 903     (version "1.8.0")
 904     (source (origin
 905               (method url-fetch)
 906               (uri (string-append "http://downloads.sourceforge.net/openil/"
 907                                   "DevIL-" version ".tar.gz"))
 908               (sha256
 909                (base32
 910                 "02dpzvi493r09c9hfjnk54nladl3qw55iqkkg18g12fxwwz9fx80"))))
 911     (build-system cmake-build-system)
 912     (arguments
 913      '(;; XXX: Not supported in the released CMakeLists.txt.
 914        ;; Enable this for > 1.8.0.
 915        #:tests? #f
 916        #:phases
 917        (modify-phases %standard-phases
 918          (add-before 'configure 'change-directory
 919            (lambda _ (chdir "DevIL") #t)))))
 920     (native-inputs
 921      `(("pkg-config" ,pkg-config)))
 922     (inputs
 923      `(("lcms" ,lcms)
 924        ("libjpeg" ,libjpeg-turbo)
 925        ("libmng" ,libmng)
 926        ("libpng" ,libpng)
 927        ("libtiff" ,libtiff)
 928        ("openexr" ,openexr)
 929        ("zlib" ,zlib)))
 930     (synopsis "Library for manipulating many image formats")
 931     (description "Developer's Image Library (DevIL) is a library to develop
 932 applications with support for many types of images.  DevIL can load, save,
 933 convert, manipulate, filter and display a wide variety of image formats.")
 934     (home-page "http://openil.sourceforge.net")
 935     (license license:lgpl2.1+)))
 936
 937 (define-public jasper
 938   (package
 939     (name "jasper")
 940     (version "2.0.14")
 941     (source (origin
 942               (method url-fetch)
 943               (uri (string-append "https://github.com/mdadams/jasper/archive/"
 944                                   "version-" version ".tar.gz"))
 945               (file-name (string-append name "-" version ".tar.gz"))
 946               (sha256
 947                (base32
 948                 "0yx9y5y0g6jv142vnqp50j3k8k5yqznz3smrblv192wgfbm6w9l5"))))
 949     (build-system cmake-build-system)
 950     (inputs `(("libjpeg" ,libjpeg)))
 951     (synopsis "JPEG-2000 library")
 952     (description "The JasPer Project is an initiative to provide a reference
 953 implementation of the codec specified in the JPEG-2000 Part-1 standard (i.e.,
 954 ISO/IEC 15444-1).")
 955     (home-page "https://www.ece.uvic.ca/~frodo/jasper/")
 956     (license (license:x11-style "file://LICENSE"))))
 957
 958 (define-public zimg
 959   (package
 960     (name "zimg")
 961     (version "2.5")
 962     (source
 963       (origin
 964         (method url-fetch)
 965         (uri (string-append "https://github.com/sekrit-twc/zimg/archive/"
 966                             "release-" version ".tar.gz"))
 967         (file-name (string-append name "-" version ".tar.gz"))
 968         (sha256
 969          (base32
 970           "0kbq2dy659645fmgxpzg38b6y6x82kwkydhc380kdkaikv2brcjh"))))
 971     (build-system gnu-build-system)
 972     (native-inputs
 973      `(("autoconf" ,autoconf)
 974        ("automake" ,automake)
 975        ("libtool" ,libtool)))
 976     (arguments
 977      '(#:phases
 978        (modify-phases %standard-phases
 979          (add-after 'unpack 'autogen
 980            (lambda _
 981              (zero? (system* "sh" "autogen.sh")))))))
 982     (synopsis "Scaling, colorspace conversion, and dithering library")
 983     (description "Zimg implements the commonly required image processing basics
 984 of scaling, colorspace conversion, and depth conversion.  A simple API enables
 985 conversion between any supported formats to operate with minimal knowledge from
 986 the programmer.")
 987     (home-page "https://github.com/sekrit-twc/zimg")
 988     ;; test/extra/ contains musl-libm,
 989     ;; which is MIT/expat licensed, but only used for tests
 990     (license (license:fsf-free "file://COPYING")))) ;WTFPL version 2
 991
 992 (define-public perceptualdiff
 993   (package
 994     (name "perceptualdiff")
 995     (version "1.3")
 996     (source
 997      (origin
 998        (method url-fetch)
 999        (uri (string-append "https://github.com/myint/perceptualdiff/archive/v"
1000                            version ".tar.gz"))
1001        (file-name (string-append name "-" version ".tar.gz"))
1002         (sha256
1003          (base32
1004           "0zl6xmp971fffg7fzcz2fbgxg5x2w7l8qa65c008i4kbkc9016ps"))))
1005     (build-system cmake-build-system)
1006     (inputs `(("freeimage" ,freeimage)))
1007     (arguments
1008      '(#:phases (modify-phases %standard-phases
1009                   (add-after 'unpack 'fix-tests
1010                     ;; cmake-build-system uses a build/ directory outside
1011                     ;; of the source tree, one level higher than expected
1012                     (lambda _
1013                       (substitute* "test/run_tests.bash"
1014                         (("../build") "../../build")))))))
1015     (home-page "https://github.com/myint/perceptualdiff")
1016     (synopsis "Perceptual image comparison utility")
1017     (description "PerceptualDiff visually compares two images to determine
1018 whether they look alike.  It uses a computational model of the human visual
1019 system to detect similarities.  This allows it too see beyond irrelevant
1020 differences in file encoding, image quality, and other small variations.")
1021     (license license:gpl2+)))
1022
1023 (define-public steghide
1024   (package
1025     (name "steghide")
1026     (version "0.5.1")
1027     (source (origin
1028               (method url-fetch)
1029               (uri (string-append "mirror://sourceforge/steghide/steghide/"
1030                                   version "/steghide-" version ".tar.bz2"))
1031               (sha256
1032                (base32
1033                 "18bxlhbdc3zsmxj84i417xjh0q28kv26q449k23n0a72ldwziix2"))
1034               (patches (list (search-patch "steghide-fixes.patch")))))
1035     (build-system gnu-build-system)
1036     (native-inputs
1037      `(("gettext" ,gettext-minimal)
1038        ("libtool" ,libtool)
1039        ("perl" ,perl)))                 ;for tests
1040     (inputs
1041      `(("libmhash" ,libmhash)
1042        ("libmcrypt" ,libmcrypt)
1043        ("libjpeg" ,libjpeg)
1044        ("zlib" ,zlib)))
1045     (arguments
1046      `(#:make-flags '("CXXFLAGS=-fpermissive")    ;required for MHashPP.cc
1047
1048        #:phases (modify-phases %standard-phases
1049                   (add-before 'configure 'set-perl-search-path
1050                     (lambda _
1051                       ;; Work around "dotless @INC" build failure.
1052                       (setenv "PERL5LIB"
1053                               (string-append (getcwd) "/tests:"
1054                                              (getenv "PERL5LIB")))
1055                       #t)))))
1056     (home-page "http://steghide.sourceforge.net")
1057     (synopsis "Image and audio steganography")
1058     (description
1059      "Steghide is a program to hide data in various kinds of image and audio
1060 files (known as @dfn{steganography}).  Neither color nor sample frequencies are
1061 changed, making the embedding resistant against first-order statistical tests.")
1062     (license license:gpl2+)))
1063
1064 (define-public stb-image-for-extempore
1065   (let ((revision "1")
1066         (commit "152a250a702bf28951bb0220d63bc0c99830c498"))
1067     (package
1068       (name "stb-image-for-extempore")
1069       (version (string-append "0-" revision "." (string-take commit 9)))
1070       (source
1071        (origin (method git-fetch)
1072                (uri (git-reference
1073                      (url "https://github.com/extemporelang/stb.git")
1074                      (commit commit)))
1075                (sha256
1076                 (base32
1077                  "0y0aa20pj9311x2ii06zg8xs34idg14hfgldqc5ymizc6cf1qiqv"))
1078                (file-name (string-append name "-" version "-checkout"))))
1079       (build-system cmake-build-system)
1080       (arguments `(#:tests? #f))        ; no tests included
1081       ;; Extempore refuses to build on architectures other than x86_64
1082       (supported-systems '("x86_64-linux"))
1083       (home-page "https://github.com/extemporelang/stb")
1084       (synopsis "Image library for Extempore")
1085       (description
1086        "This package is a collection of assorted single-file libraries.  Of
1087 all included libraries only the image loading and decoding library is
1088 installed as @code{stb_image}.")
1089       (license license:public-domain))))
1090
1091 (define-public optipng
1092   (package
1093     (name "optipng")
1094     (version "0.7.6")
1095     (source
1096      (origin
1097        (method url-fetch)
1098        (uri (string-append "http://prdownloads.sourceforge.net/optipng/optipng-"
1099                            version ".tar.gz"))
1100        (patches (search-patches "optipng-CVE-2017-1000229.patch"))
1101        (sha256
1102         (base32
1103          "105yk5qykvhiahzag67gm36s2kplxf6qn5hay02md0nkrcgn6w28"))))
1104     (build-system gnu-build-system)
1105     (inputs
1106      `(("zlib" ,zlib)))
1107     (arguments
1108      '(#:phases
1109        (modify-phases %standard-phases
1110          ;; configure script does not accept arguments CONFIG_SHELL and SHELL
1111          (replace 'configure
1112            (lambda* (#:key outputs #:allow-other-keys)
1113              (zero? (system* "sh" "configure"
1114                              (string-append "--prefix=" (assoc-ref outputs "out")))))))))
1115     (synopsis "Optimizer that recompresses PNG image files to a
1116 smaller size")
1117     (description "OptiPNG is a PNG optimizer that recompresses image
1118 files to a smaller size, without losing any information.  This program
1119 also converts external formats (BMP, GIF, PNM and TIFF) to optimized
1120 PNG, and performs PNG integrity checks and corrections.")
1121     (home-page "http://optipng.sourceforge.net/")
1122     (license license:zlib)))
1123
1124 (define-public libjpeg-turbo
1125   (package
1126     (name "libjpeg-turbo")
1127     (version "1.5.3")
1128     (source (origin
1129               (method url-fetch)
1130               (uri (string-append "mirror://sourceforge/" name "/" version "/"
1131                                   name "-" version ".tar.gz"))
1132               (sha256
1133                (base32
1134                 "08r5b5mywwrxv4axvq80dm31cklz81grczlzlxr2xqa6pgi90j5j"))))
1135     (build-system gnu-build-system)
1136     (native-inputs
1137      `(("nasm" ,nasm)))
1138     (arguments
1139      '(#:test-target "test"
1140        #:configure-flags (list "--with-build-date=1970-01-01")))
1141     (home-page "http://www.libjpeg-turbo.org/")
1142     (synopsis "SIMD-accelerated JPEG image handling library")
1143     (description "libjpeg-turbo is a JPEG image codec that accelerates baseline
1144 JPEG compression and decompression using SIMD instructions: MMX on x86, SSE2 on
1145 x86-64, NEON on ARM, and AltiVec on PowerPC processors.  Even on other systems,
1146 its highly-optimized Huffman coding routines allow it to outperform libjpeg by
1147 a significant amount.
1148 libjpeg-turbo implements both the traditional libjpeg API and the less powerful
1149 but more straightforward TurboJPEG API, and provides a full-featured Java
1150 interface.  It supports color space extensions that allow it to compress from
1151 and decompress to 32-bit and big-endian pixel buffers (RGBX, XBGR, etc.).")
1152     (license (list license:bsd-3        ; jsimd*.[ch] and most of simd/
1153                    license:ijg))))      ; the rest
1154
1155 (define-public niftilib
1156   (package
1157     (name "niftilib")
1158     (version "2.0.0")
1159     (source (origin
1160               (method url-fetch)
1161               (uri (list (string-append "mirror://sourceforge/niftilib/"
1162                                         "nifticlib/nifticlib_"
1163                                         (string-join (string-split version #\.) "_")
1164                                         "/nifticlib-" version ".tar.gz")))
1165               (sha256
1166                (base32 "123z9bwzgin5y8gi5ni8j217k7n683whjsvg0lrpii9flgk8isd3"))))
1167     (build-system gnu-build-system)
1168     (arguments
1169      '(#:tests? #f                      ; there is no test target
1170        #:parallel-build? #f             ; not supported
1171        #:make-flags
1172        (list "SHELL=bash"
1173              (string-append "ZLIB_INC="
1174                             (assoc-ref %build-inputs "zlib") "/include")
1175              ;; Append "-fPIC" to CFLAGS.
1176              (string-append "CFLAGS="
1177                             "-Wall -ansi -pedantic -fPIC"))
1178        #:phases
1179        (modify-phases %standard-phases
1180          (replace 'install
1181            (lambda* (#:key outputs #:allow-other-keys)
1182              (let ((out (assoc-ref outputs "out")))
1183                (for-each
1184                 (lambda (dir)
1185                   (copy-recursively dir (string-append out "/" dir)))
1186                 '("bin" "lib" "include")))
1187              #t))
1188          (delete 'configure))))
1189     (inputs
1190      `(("zlib" ,zlib)))
1191     (synopsis "Library for reading and writing files in the nifti-1 format")
1192     (description "Niftilib is a set of i/o libraries for reading and writing
1193 files in the nifti-1 data format - a binary file format for storing
1194 medical image data, e.g. magnetic resonance image (MRI) and functional MRI
1195 (fMRI) brain images.")
1196     (home-page "http://niftilib.sourceforge.net")
1197     (license license:public-domain)))
1198
1199 (define-public gpick
1200   (package
1201     (name "gpick")
1202     (version "0.2.5")
1203     (source (origin
1204               (method url-fetch)
1205               (uri (string-append "https://github.com/thezbyg/gpick/archive/"
1206                                   name "-" version ".tar.gz"))
1207               (sha256
1208                (base32
1209                 "0mxvxk15xhk2i5vfavjhnkk4j3bnii0gpf8di14rlbpq070hd5rs"))))
1210     (build-system scons-build-system)
1211     (native-inputs
1212      `(("boost" ,boost)
1213        ("gettext" ,gnu-gettext)
1214        ("pkg-config" ,pkg-config)))
1215     (inputs
1216      `(("expat" ,expat)
1217        ("gtk2" ,gtk+-2)
1218        ("lua" ,lua-5.2)))
1219     (arguments
1220      `(#:tests? #f
1221        #:scons ,scons-python2
1222        #:scons-flags (list (string-append "DESTDIR=" %output))
1223        #:phases
1224        (modify-phases %standard-phases
1225          (add-before 'build 'fix-lua-reference
1226            (lambda _
1227              (substitute* "SConscript"
1228                (("lua5.2") "lua-5.2"))
1229              #t)))))
1230     (home-page "http://www.gpick.org/")
1231     (synopsis "Color picker")
1232     (description "Gpick is an advanced color picker and palette editing tool.")
1233     (license license:bsd-3)))