Suggested by Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>. * guix/build/utils.scm (%modify-phases): Remove quotes. * guix/build/cmake-build-system.scm (%standard-phases): Adjust accordingly. * guix/build/glib-or-gtk-build-system.scm (%standard-phases): Likewise. * guix/build/gnu-dist.scm (%dist-phases): Likewise. * guix/build/perl-build-system.scm (%standard-phases): Likewise. * guix/build/python-build-system.scm (%standard-phases): Likewise. * guix/build/ruby-build-system.scm (%standard-phases): Likewise. * guix/build/waf-build-system.scm (%standard-phases): Likewise. * gnu/packages/bash.scm, gnu/packages/code.scm, gnu/packages/gl.scm, gnu/packages/gnome.scm, gnu/packages/graphics.scm, gnu/packages/image.scm, gnu/packages/key-mon.scm, gnu/packages/ocr.scm, gnu/packages/plotutils.scm, gnu/packages/search.scm, gnu/packages/video.scm: Likewise.
		
			
				
	
	
		
			270 lines
		
	
	
	
		
			11 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			270 lines
		
	
	
	
		
			11 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
| ;;; GNU Guix --- Functional package management for GNU
 | |
| ;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
 | |
| ;;; Copyright © 2015 Tomáš Čech <sleep_walker@gnu.org>
 | |
| ;;;
 | |
| ;;; This file is part of GNU Guix.
 | |
| ;;;
 | |
| ;;; GNU Guix is free software; you can redistribute it and/or modify it
 | |
| ;;; under the terms of the GNU General Public License as published by
 | |
| ;;; the Free Software Foundation; either version 3 of the License, or (at
 | |
| ;;; your option) any later version.
 | |
| ;;;
 | |
| ;;; GNU Guix is distributed in the hope that it will be useful, but
 | |
| ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
 | |
| ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 | |
| ;;; GNU General Public License for more details.
 | |
| ;;;
 | |
| ;;; You should have received a copy of the GNU General Public License
 | |
| ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 | |
| 
 | |
| (define-module (gnu packages graphics)
 | |
|   #:use-module (guix download)
 | |
|   #:use-module (guix svn-download)
 | |
|   #:use-module (guix packages)
 | |
|   #:use-module (guix build-system gnu)
 | |
|   #:use-module (guix build-system cmake)
 | |
|   #:use-module ((guix licenses) #:prefix license:)
 | |
|   #:use-module (gnu packages)
 | |
|   #:use-module (gnu packages autotools)
 | |
|   #:use-module (gnu packages bash)
 | |
|   #:use-module (gnu packages boost)
 | |
|   #:use-module (gnu packages fontutils)
 | |
|   #:use-module (gnu packages pkg-config)
 | |
|   #:use-module (gnu packages compression)
 | |
|   #:use-module (gnu packages multiprecision)
 | |
|   #:use-module (gnu packages boost)
 | |
|   #:use-module (gnu packages gl)
 | |
|   #:use-module (gnu packages qt)
 | |
|   #:use-module (gnu packages sdl)
 | |
|   #:use-module (gnu packages xorg))
 | |
| 
 | |
| (define-public cgal
 | |
|   (package
 | |
|     (name "cgal")
 | |
|     (version "4.5.1")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (string-append
 | |
|                     "http://gforge.inria.fr/frs/download.php/file/34402/CGAL-"
 | |
|                     version ".tar.xz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1565ycbds92bxmhi09avc1jl6ks141ig00j110l49gqxp9swy6zv"))))
 | |
|     (build-system cmake-build-system)
 | |
|     (arguments
 | |
|      '(;; "RelWithDebInfo" is not supported.
 | |
|        #:build-type "Release"
 | |
| 
 | |
|        ;; No 'test' target.
 | |
|        #:tests? #f))
 | |
|     (inputs
 | |
|      `(("mpfr" ,mpfr)
 | |
|        ("gmp" ,gmp)
 | |
|        ("boost" ,boost)))
 | |
|     (home-page "http://cgal.org/")
 | |
|     (synopsis "Computational geometry algorithms library")
 | |
|     (description
 | |
|      "CGAL provides easy access to efficient and reliable geometric algorithms
 | |
| in the form of a C++ library.  CGAL is used in various areas needing geometric
 | |
| computation, such as: computer graphics, scientific visualization, computer
 | |
| aided design and modeling, geographic information systems, molecular biology,
 | |
| medical imaging, robotics and motion planning, mesh generation, numerical
 | |
| methods, etc.  It provides data structures and algorithms such as
 | |
| triangulations, Voronoi diagrams, polygons, polyhedra, mesh generation, and
 | |
| many more.")
 | |
| 
 | |
|     ;; The 'LICENSE' file explains that a subset is available under more
 | |
|     ;; permissive licenses.
 | |
|     (license license:gpl3+)))
 | |
| 
 | |
| (define-public ilmbase
 | |
|   (package
 | |
|     (name "ilmbase")
 | |
|     (version "2.2.0")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (string-append "mirror://savannah/openexr/ilmbase-"
 | |
|                                   version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1izddjwbh1grs8080vmaix72z469qy29wrvkphgmqmcm0sv1by7c"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (home-page "http://www.openexr.com/")
 | |
|     (synopsis "Utility C++ libraries for threads, maths, and exceptions")
 | |
|     (description
 | |
|      "IlmBase provides several utility libraries for C++.  Half is a class
 | |
| that encapsulates ILM's 16-bit floating-point format.  IlmThread is a thread
 | |
| abstraction.  Imath implements 2D and 3D vectors, 3x3 and 4x4 matrices,
 | |
| quaternions and other useful 2D and 3D math functions.  Iex is an
 | |
| exception-handling library.")
 | |
|     (license license:bsd-3)))
 | |
| 
 | |
| (define-public openexr
 | |
|   (package
 | |
|     (name "openexr")
 | |
|     (version "2.2.0")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (string-append "mirror://savannah/openexr/openexr-"
 | |
|                                   version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "0ca2j526n4wlamrxb85y2jrgcv0gf21b3a19rr0gh4rjqkv1581n"))
 | |
|               (modules '((guix build utils)))
 | |
|               (snippet
 | |
|                '(substitute* (find-files "." "tmpDir\\.h")
 | |
|                   (("\"/var/tmp/\"")
 | |
|                    "\"/tmp/\"")))
 | |
|               (patches (list (search-patch "openexr-missing-samples.patch")))))
 | |
|     (build-system gnu-build-system)
 | |
|     (native-inputs
 | |
|      `(("pkg-config" ,pkg-config)))
 | |
|     (propagated-inputs
 | |
|      `(("ilmbase" ,ilmbase)                       ;used in public headers
 | |
|        ("zlib" ,zlib)))                           ;OpenEXR.pc reads "-lz"
 | |
|     (home-page "http://www.openexr.com")
 | |
|     (synopsis "High-dynamic range file format library")
 | |
|     (description
 | |
|      "OpenEXR is a high dynamic-range (HDR) image file format developed for
 | |
| use in computer imaging applications.  The IlmImf C++ libraries support
 | |
| storage of the \"EXR\" file format for storing 16-bit floating-point images.")
 | |
|     (license license:bsd-3)))
 | |
| 
 | |
| (define-public ctl
 | |
|   (package
 | |
|     (name "ctl")
 | |
|     (version "1.5.2")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (string-append "https://github.com/ampas/CTL/archive/ctl-"
 | |
|                                   version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1gg04pyvw0m398akn0s1l07g5b1haqv5na1wpi5dii1jjd1w3ynp"))))
 | |
|     (build-system cmake-build-system)
 | |
|     (arguments '(#:tests? #f))                    ;no 'test' target
 | |
| 
 | |
|     ;; Headers include OpenEXR and IlmBase headers.
 | |
|     (propagated-inputs `(("openexr" ,openexr)))
 | |
| 
 | |
|     (home-page "http://ampasctl.sourceforge.net")
 | |
|     (synopsis "Color Transformation Language")
 | |
|     (description
 | |
|      "The Color Transformation Language, or CTL, is a small programming
 | |
| language that was designed to serve as a building block for digital color
 | |
| management systems.  CTL allows users to describe color transforms in a
 | |
| concise and unambiguous way by expressing them as programs.  In order to apply
 | |
| a given transform to an image, the color management system instructs a CTL
 | |
| interpreter to load and run the CTL program that describes the transform.  The
 | |
| original and the transformed image constitute the CTL program's input and
 | |
| output.")
 | |
| 
 | |
|     ;; The web site says it's under a BSD-3 license, but the 'LICENSE' file
 | |
|     ;; and headers use different wording.
 | |
|     (license (license:non-copyleft "file://LICENSE"))))
 | |
| 
 | |
| (define-public brdf-explorer
 | |
|   (package
 | |
|     (name "brdf-explorer")
 | |
|     (version "17")                                ;svn revision
 | |
|     (source (origin
 | |
|               ;; There are no release tarballs, and not even tags in the repo,
 | |
|               ;; so use the latest revision.
 | |
|               (method svn-fetch)
 | |
|               (uri (svn-reference
 | |
|                     (url "http://github.com/wdas/brdf")
 | |
|                     (revision (string->number version))))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1458fwsqxramh0gpnp24x7brfpl9afhvr1wqg6c78xqwf32960m5"))
 | |
|               (file-name (string-append name "-" version "-checkout"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|      `(#:phases (modify-phases %standard-phases
 | |
|                   (replace 'configure
 | |
|                            (lambda* (#:key outputs #:allow-other-keys)
 | |
|                              (let ((out (assoc-ref outputs "out")))
 | |
|                                (chdir "trunk")
 | |
|                                (zero? (system* "qmake"
 | |
|                                                (string-append
 | |
|                                                 "prefix=" out))))))
 | |
|                   (add-after 'install 'wrap-program
 | |
|                              (lambda* (#:key outputs #:allow-other-keys)
 | |
|                                (let* ((out (assoc-ref outputs "out"))
 | |
|                                       (bin (string-append out "/bin"))
 | |
|                                       (data (string-append
 | |
|                                              out "/share/brdf")))
 | |
|                                  (with-directory-excursion bin
 | |
|                                    (rename-file "brdf" ".brdf-real")
 | |
|                                    (call-with-output-file "brdf"
 | |
|                                      (lambda (port)
 | |
|                                        (format port "#!/bin/sh
 | |
| # Run the thing from its home, otherwise it just bails out.
 | |
| cd \"~a\"
 | |
| exec -a \"$0\" ~a/.brdf-real~%"
 | |
|                                                data bin)))
 | |
|                                    (chmod "brdf" #o555))))))))
 | |
|     (native-inputs
 | |
|      `(("qt" ,qt-4)))                             ;for 'qmake'
 | |
|     (inputs
 | |
|      `(("qt" ,qt-4)
 | |
|        ("mesa" ,mesa)
 | |
|        ("glew" ,glew)
 | |
|        ("freeglut" ,freeglut)
 | |
|        ("zlib" ,zlib)))
 | |
|     (home-page "http://www.disneyanimation.com/technology/brdf.html")
 | |
|     (synopsis
 | |
|      "Analyze bidirectional reflectance distribution functions (BRDFs)")
 | |
|     (description
 | |
|      "BRDF Explorer is an application that allows the development and analysis
 | |
| of bidirectional reflectance distribution functions (BRDFs).  It can load and
 | |
| plot analytic BRDF functions (coded as functions in OpenGL's GLSL shader
 | |
| language), measured material data from the MERL database, and anisotropic
 | |
| measured material data from MIT CSAIL.  Graphs and visualizations update in
 | |
| real time as parameters are changed, making it a useful tool for evaluating
 | |
| and understanding different BRDFs (and other component functions).")
 | |
|     (license license:ms-pl)))
 | |
| 
 | |
| (define-public agg
 | |
|   (package
 | |
|     (name "agg")
 | |
|     (version "2.5")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (string-append "http://www.antigrain.com/agg-"
 | |
|                                   version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32 "07wii4i824vy9qsvjsgqxppgqmfdxq0xa87i5yk53fijriadq7mb"))
 | |
|               (patches (list (search-patch "agg-am_c_prototype.patch")))))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|      '(#:configure-flags
 | |
|        (list (string-append "--x-includes=" (assoc-ref %build-inputs "libx11")
 | |
|                             "/include")
 | |
|              (string-append "--x-libraries=" (assoc-ref %build-inputs "libx11")
 | |
|                             "/lib"))
 | |
|        #:phases
 | |
|        (alist-cons-after
 | |
|         'unpack 'autoreconf
 | |
|         (lambda _
 | |
|           ;; let's call configure from configure phase and not now
 | |
|           (substitute* "autogen.sh" (("./configure") "# ./configure"))
 | |
|           (zero? (system* "sh" "autogen.sh")))
 | |
|         %standard-phases)))
 | |
|     (native-inputs
 | |
|      `(("pkg-config" ,pkg-config)
 | |
|        ("libtool" ,libtool)
 | |
|        ("autoconf" ,autoconf)
 | |
|        ("automake" ,automake)
 | |
|        ("bash" ,bash)))
 | |
|     (inputs
 | |
|      `(("libx11" ,libx11)
 | |
|        ("freetype" ,freetype)
 | |
|        ("sdl" ,sdl)))
 | |
|     (home-page "http://antigrain.com")
 | |
|     (synopsis "High-quality 2D graphics rendering engine for C++")
 | |
|     (description
 | |
|      "Anti-Grain Geometry is a high quality rendering engine written in C++.
 | |
| It supports sub-pixel resolutions and anti-aliasing.  It is also library for
 | |
| rendering SVG graphics.")
 | |
|     (license license:gpl2+)))
 |