;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; 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 animation) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix utils) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix build-system gnu) #:use-module (gnu packages) #:use-module (gnu packages boost) #:use-module (gnu packages compression) #:use-module (gnu packages fontutils) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) #:use-module (gnu packages graphics) #:use-module (gnu packages gtk) #:use-module (gnu packages image) #:use-module (gnu packages imagemagick) #:use-module (gnu packages pkg-config) #:use-module (gnu packages video)) (define-public etl (package (name "etl") (version "0.04.19") (source (origin (method url-fetch) ;; Keep this synchronized with the synfig release version. (uri (string-append "mirror://sourceforge/synfig/releases/" "1.0.2/source/ETL-" version ".tar.gz")) (sha256 (base32 "070c70slizrklq1gbgja8m49xfmq65wlcd6hz6418cpx0wd4r55s")))) (build-system gnu-build-system) (home-page "http://www.synfig.org") (synopsis "Extended C++ template library") (description "ETL is a class and template library designed to add new datatypes and functions which combine well with the existing types and functions from the C++ @dfn{Standard Template Library} (STL).") (license license:gpl3+))) (define-public synfig (package (name "synfig") (version "1.0.2") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/synfig/releases/" version "/source/synfig-" version ".tar.gz")) (sha256 (base32 "1d3z2r78j3rkff47q3wl0ami69y3l4nyi5r9zclymb8ar7mgkk9l")) (patches (search-patches "synfig-build-fix.patch")))) (build-system gnu-build-system) (arguments `(#:configure-flags ;; The Boost library path is taken from the value of BOOST_LDFLAGS. (list (string-append "BOOST_LDFLAGS=-L" (assoc-ref %build-inputs "boost") "/lib")) #:phases (modify-phases %standard-phases (add-after 'unpack 'adapt-to-libxml++-changes (lambda _ (substitute* "configure" (("libxml\\+\\+-2\\.6") "libxml++-3.0")) (substitute* (append (find-files "src/modules/" "\\.cpp$") (find-files "src/synfig/" "\\.(cpp|h)$")) (("add_child\\(") "add_child_element(") (("get_child_text\\(") "get_first_child_text(") (("set_child_text\\(") "set_first_child_text(") (("remove_child\\(") "remove_node(")) (substitute* "src/modules/mod_svg/svg_parser.cpp" (("xmlpp::Node::NodeList") "xmlpp::Node::const_NodeList")) #t)) (add-after 'unpack 'fix-isnan-error (lambda _ (substitute* "src/synfig/time.cpp" (("return !::isnan") "return !std::isnan")) #t)) (add-before 'configure 'set-flags (lambda _ ;; Compile with C++11, required by libsigc++. (setenv "CXXFLAGS" "-D__STDC_CONSTANT_MACROS -std=gnu++11") #t))))) (inputs `(("boost" ,boost) ("ffmpeg" ,ffmpeg) ("libdv" ,libdv) ("libjpeg" ,libjpeg) ("libpng" ,libpng) ("libmng" ,libmng) ("zlib" ,zlib))) ;; synfig.pc lists the following as required: Magick++ freetype2 ;; fontconfig OpenEXR ETL glibmm-2.4 giomm-2.4 libxml++-3.0 sigc++-2.0 ;; cairo pango pangocairo mlt++ (propagated-inputs `(("cairo" ,cairo) ("etl" ,etl) ("fontconfig" ,fontconfig) ("freetype" ,freetype) ("glibmm" ,glibmm) ("imagemagick" ,imagemagick) ("libxml++" ,libxml++) ("libsigc++" ,libsigc++) ("mlt" ,mlt) ("openexr" ,openexr) ("pango" ,pango))) (native-inputs `(("pkg-config" ,pkg-config))) (home-page "http://www.synfig.org") (synopsis "Vector-based 2D animation renderer") (description "Synfig is a vector-based 2D animation package. It is designed to be capable of producing feature-film quality animation. It eliminates the need for tweening, preventing the need to hand-draw each frame.") (license license:gpl3+))) (define-public synfigstudio (package (name "synfigstudio") (version "1.0.2") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/synfig/releases/" version "/source/synfigstudio-" version ".tar.gz")) (sha256 (base32 "1xa74dlgkpjn0gzdcs0x25z7wg0806v2wygvvi73f7sn1fm88ig4")) (modules '((guix build utils))) (snippet '(begin (substitute* "src/synfigapp/pluginmanager.cpp" (("xmlpp::Node\\* n =") "const xmlpp::Node* n =") (("xmlpp::Node::NodeList") "xmlpp::Node::const_NodeList")) ;; Some files are ISO-8859-1 encoded. (with-fluids ((%default-port-encoding #f)) (substitute* (find-files "src/" "\\.(cpp|h)$") (("#include <sigc\\+\\+/retype\\.h>") "#include <sigc++/adaptors/retype.h>") (("#include <sigc\\+\\+/hide\\.h>") "#include <sigc++/adaptors/hide.h>") (("#include <sigc\\+\\+/object\\.h>") "#include <sigc++/trackable.h>"))) #t)))) (build-system gnu-build-system) (arguments `(#:configure-flags (list "CXXFLAGS=-std=gnu++11"))) (inputs `(("gtkmm" ,gtkmm) ("libsigc++" ,libsigc++) ("synfig" ,synfig))) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (home-page "http://www.synfig.org") (synopsis "Vector-based 2D animation package (GUI)") (description "Synfig is a vector-based 2D animation package. It is designed to be capable of producing feature-film quality animation. It eliminates the need for tweening, preventing the need to hand-draw each frame. This package contains the graphical user interface for synfig.") (license license:gpl3+)))