[jackhill/guix/guix.git] / gnu / packages / animation.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; 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 git-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 algebra)
  #: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 pulseaudio)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages video))

(define-public etl
  (package
    (name "etl")
    (version "0.04.22")
    (source (origin
              (method url-fetch)
              ;; Keep this synchronized with the synfig release version.
              (uri (string-append "mirror://sourceforge/synfig/releases/"
                                  "1.2.0/source/ETL-" version ".tar.gz"))
              (sha256
               (base32
                "0ii73nsd3xzkhz6w1rnxwphl637j9w82xiy6apa9vin2isdynnmc"))))
    (build-system gnu-build-system)
    (home-page "https://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.2.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://sourceforge/synfig/releases/"
                                  version "/source/synfig-" version
                                  ".tar.gz"))
              (sha256
               (base32
                "1gqx4gn4c73rqwhsgzx0a460gr9hadmi28csp75rx30qavqsj7k1"))))
    (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 'fix-boost-build-error
           ;; A chain of Boost headers leads to this error: "make_array" is
           ;; not a member of "boost::serialization".  This can be avoided by
           ;; loading the "array_wrapper" header first.
           (lambda _
             (substitute* "src/synfig/valuenodes/valuenode_dynamic.cpp"
               (("#include <boost/numeric/odeint/integrate/integrate.hpp>" match)
                (string-append
                 "#include <boost/serialization/array_wrapper.hpp>\n" match)))
             #t))
         (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)))))
    (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 fftw OpenEXR ETL glibmm-2.4 giomm-2.4 libxml++-3.0 sigc++-2.0
    ;; cairo pango pangocairo mlt++
    (propagated-inputs
     `(("cairo" ,cairo)
       ("etl" ,etl)
       ("fftw" ,fftw)
       ("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 "https://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.2.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://sourceforge/synfig/releases/"
                                  version "/source/synfigstudio-" version
                                  ".tar.gz"))
              (sha256
               (base32
                "0fbckfbw8dzf0m2wv7vlmw492k1dqa3zf510z019d0as3zpnp6qm"))
              (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"))
                  #t))
              (patches
               (search-patches "synfigstudio-fix-ui-with-gtk3.patch"))))
    (build-system gnu-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         ;; This fixes the file chooser crash that happens with GTK 3.
         (add-after 'install 'wrap-program
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (gtk (assoc-ref inputs "gtk+"))
                    (gtk-share (string-append gtk "/share")))
               (wrap-program (string-append out "/bin/synfigstudio")
                 `("XDG_DATA_DIRS" ":" prefix (,gtk-share)))
               #t))))))
    (inputs
     `(("gtkmm" ,gtkmm)
       ("gtk+" ,gtk+)
       ("libsigc++" ,libsigc++)
       ("synfig" ,synfig)))
    (native-inputs
     `(("pkg-config" ,pkg-config)
       ("intltool" ,intltool)))
    (home-page "https://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+)))

(define-public papagayo
  (let ((commit "e143684b30e59fe4a554f965cb655d23cbe93ee7")
        (revision "1"))
    (package
      (name "papagayo")
      (version (string-append "2.0b1-" revision "." (string-take commit 9)))
      (source (origin
                (method git-fetch)
                (uri (git-reference
                      (url "https://github.com/LostMoho/Papagayo.git")
                      (commit commit)))
                (file-name (git-file-name name version))
                (sha256
                 (base32
                  "1p9gffjhbph34jhrvgpg93yha75bf88vkvlnk06x1r9601ph5321"))
                (modules '((guix build utils)))
                ;; Delete bundled libsndfile sources.
                (snippet
                 '(begin
                    (delete-file-recursively "libsndfile_1.0.19")
                    (delete-file-recursively "libsndfile_1.0.25")
                    #t))))
      (build-system gnu-build-system)
      (arguments
       `(#:phases
         (modify-phases %standard-phases
           (replace 'configure
             (lambda* (#:key inputs outputs #:allow-other-keys)
               (let ((libsndfile (assoc-ref inputs "libsndfile")))
                 ;; Do not use bundled libsndfile sources
                 (substitute* "Papagayo.pro"
                   (("else \\{")
                    (string-append "\nINCLUDEPATH += " libsndfile
                                   "/include"
                                   "\nLIBS +=" libsndfile
                                   "/lib/libsndfile.so\n"
                                   "win32 {"))))
               (invoke "qmake"
                       (string-append "DESTDIR="
                                      (assoc-ref outputs "out")
                                      "/bin"))))
           ;; Ensure that all required Qt plugins are found at runtime.
           (add-after 'install 'wrap-executable
             (lambda* (#:key inputs outputs #:allow-other-keys)
               (let* ((out (assoc-ref outputs "out"))
                      (qt '("qt" "qtmultimedia")))
                 (wrap-program (string-append out "/bin/Papagayo")
                   `("QT_PLUGIN_PATH" ":" prefix
                     ,(map (lambda (label)
                             (string-append (assoc-ref inputs label)
                                            "/lib/qt5/plugins/"))
                           qt)))
                 #t))))))
      (inputs
       `(("qt" ,qtbase)
         ("qtmultimedia" ,qtmultimedia)
         ("libsndfile" ,libsndfile)))
      (native-inputs
       `(("qttools" ,qttools)))
      (home-page "https://www.lostmarble.com/papagayo/")
      (synopsis "Lip-syncing for animations")
      (description
       "Papagayo is a lip-syncing program designed to help you line up
phonemes with the actual recorded sound of actors speaking.  Papagayo makes it
easy to lip sync animated characters by making the process very simple – just
type in the words being spoken, then drag the words on top of the sound’s
waveform until they line up with the proper sounds.")
      (license license:gpl3+))))
Commit	Line	Data
c1fbc66a	1	;;; GNU Guix --- Functional package management for GNU
21fea1d1	2	;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net>
6023fa36	3	;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
c1fbc66a RW	4	;;;
	5	;;; This file is part of GNU Guix.
	6	;;;
	7	;;; GNU Guix is free software; you can redistribute it and/or modify it
	8	;;; under the terms of the GNU General Public License as published by
	9	;;; the Free Software Foundation; either version 3 of the License, or (at
	10	;;; your option) any later version.
	11	;;;
	12	;;; GNU Guix is distributed in the hope that it will be useful, but
	13	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	14	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	;;; GNU General Public License for more details.
	16	;;;
	17	;;; You should have received a copy of the GNU General Public License
	18	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	19
	20	(define-module (gnu packages animation)
	21	#:use-module (guix packages)
	22	#:use-module (guix download)
2809a355	23	#:use-module (guix git-download)
c1fbc66a RW	24	#:use-module (guix utils)
	25	#:use-module ((guix licenses) #:prefix license:)
	26	#:use-module (guix build-system gnu)
7775a186	27	#:use-module (gnu packages)
21fea1d1	28	#:use-module (gnu packages algebra)
7775a186 RW	29	#:use-module (gnu packages boost)
	30	#:use-module (gnu packages compression)
	31	#:use-module (gnu packages fontutils)
	32	#:use-module (gnu packages glib)
	33	#:use-module (gnu packages gnome)
	34	#:use-module (gnu packages graphics)
	35	#:use-module (gnu packages gtk)
	36	#:use-module (gnu packages image)
	37	#:use-module (gnu packages imagemagick)
	38	#:use-module (gnu packages pkg-config)
2809a355 RW	39	#:use-module (gnu packages pulseaudio)
2809a355 RW	40	#:use-module (gnu packages qt)
7775a186	41	#:use-module (gnu packages video))
c1fbc66a RW	42
	43	(define-public etl
	44	(package
	45	(name "etl")
21fea1d1	46	(version "0.04.22")
c1fbc66a RW	47	(source (origin
	48	(method url-fetch)
	49	;; Keep this synchronized with the synfig release version.
	50	(uri (string-append "mirror://sourceforge/synfig/releases/"
21fea1d1	51	"1.2.0/source/ETL-" version ".tar.gz"))
c1fbc66a RW	52	(sha256
c1fbc66a RW	53	(base32
21fea1d1	54	"0ii73nsd3xzkhz6w1rnxwphl637j9w82xiy6apa9vin2isdynnmc"))))
c1fbc66a	55	(build-system gnu-build-system)
eeb8b0e6	56	(home-page "https://www.synfig.org")
c1fbc66a RW	57	(synopsis "Extended C++ template library")
	58	(description
	59	"ETL is a class and template library designed to add new datatypes and
	60	functions which combine well with the existing types and functions from the
	61	C++ @dfn{Standard Template Library} (STL).")
	62	(license license:gpl3+)))
	63
7775a186 RW	64	(define-public synfig
	65	(package
	66	(name "synfig")
21fea1d1	67	(version "1.2.0")
7775a186 RW	68	(source (origin
	69	(method url-fetch)
	70	(uri (string-append "mirror://sourceforge/synfig/releases/"
	71	version "/source/synfig-" version
	72	".tar.gz"))
	73	(sha256
	74	(base32
21fea1d1	75	"1gqx4gn4c73rqwhsgzx0a460gr9hadmi28csp75rx30qavqsj7k1"))))
7775a186 RW	76	(build-system gnu-build-system)
	77	(arguments
	78	`(#:configure-flags
	79	;; The Boost library path is taken from the value of BOOST_LDFLAGS.
	80	(list (string-append "BOOST_LDFLAGS=-L"
	81	(assoc-ref %build-inputs "boost")
	82	"/lib"))
	83	#:phases
	84	(modify-phases %standard-phases
d39238cf RW	85	(add-after 'unpack 'fix-boost-build-error
	86	;; A chain of Boost headers leads to this error: "make_array" is
	87	;; not a member of "boost::serialization". This can be avoided by
	88	;; loading the "array_wrapper" header first.
	89	(lambda _
	90	(substitute* "src/synfig/valuenodes/valuenode_dynamic.cpp"
	91	(("#include <boost/numeric/odeint/integrate/integrate.hpp>" match)
	92	(string-append
	93	"#include <boost/serialization/array_wrapper.hpp>\n" match)))
	94	#t))
7775a186 RW	95	(add-after 'unpack 'adapt-to-libxml++-changes
	96	(lambda _
	97	(substitute* "configure"
	98	(("libxml\\+\\+-2\\.6") "libxml++-3.0"))
	99	(substitute* (append (find-files "src/modules/" "\\.cpp$")
	100	(find-files "src/synfig/" "\\.(cpp\|h)$"))
	101	(("add_child\\(") "add_child_element(")
	102	(("get_child_text\\(") "get_first_child_text(")
	103	(("set_child_text\\(") "set_first_child_text(")
	104	(("remove_child\\(") "remove_node("))
	105	(substitute* "src/modules/mod_svg/svg_parser.cpp"
	106	(("xmlpp::Node::NodeList") "xmlpp::Node::const_NodeList"))
7775a186 RW	107	#t)))))
	108	(inputs
	109	`(("boost" ,boost)
	110	("ffmpeg" ,ffmpeg)
	111	("libdv" ,libdv)
	112	("libjpeg" ,libjpeg)
	113	("libpng" ,libpng)
	114	("libmng" ,libmng)
	115	("zlib" ,zlib)))
	116	;; synfig.pc lists the following as required: Magick++ freetype2
21fea1d1	117	;; fontconfig fftw OpenEXR ETL glibmm-2.4 giomm-2.4 libxml++-3.0 sigc++-2.0
7775a186 RW	118	;; cairo pango pangocairo mlt++
	119	(propagated-inputs
	120	`(("cairo" ,cairo)
	121	("etl" ,etl)
21fea1d1	122	("fftw" ,fftw)
7775a186 RW	123	("fontconfig" ,fontconfig)
	124	("freetype" ,freetype)
	125	("glibmm" ,glibmm)
	126	("imagemagick" ,imagemagick)
	127	("libxml++" ,libxml++)
	128	("libsigc++" ,libsigc++)
	129	("mlt" ,mlt)
	130	("openexr" ,openexr)
	131	("pango" ,pango)))
	132	(native-inputs
	133	`(("pkg-config" ,pkg-config)))
eeb8b0e6	134	(home-page "https://www.synfig.org")
7775a186 RW	135	(synopsis "Vector-based 2D animation renderer")
	136	(description
	137	"Synfig is a vector-based 2D animation package. It is designed to be
	138	capable of producing feature-film quality animation. It eliminates the need
	139	for tweening, preventing the need to hand-draw each frame.")
	140	(license license:gpl3+)))
56215e41 RW	141
	142	(define-public synfigstudio
	143	(package
	144	(name "synfigstudio")
21fea1d1	145	(version "1.2.0")
56215e41 RW	146	(source (origin
	147	(method url-fetch)
	148	(uri (string-append "mirror://sourceforge/synfig/releases/"
	149	version "/source/synfigstudio-" version
	150	".tar.gz"))
	151	(sha256
	152	(base32
21fea1d1	153	"0fbckfbw8dzf0m2wv7vlmw492k1dqa3zf510z019d0as3zpnp6qm"))
56215e41 RW	154	(modules '((guix build utils)))
	155	(snippet
	156	'(begin
	157	(substitute* "src/synfigapp/pluginmanager.cpp"
	158	(("xmlpp::Node\\* n =") "const xmlpp::Node* n =")
	159	(("xmlpp::Node::NodeList") "xmlpp::Node::const_NodeList"))
2ac2b172 RW	160	#t))
	161	(patches
	162	(search-patches "synfigstudio-fix-ui-with-gtk3.patch"))))
56215e41	163	(build-system gnu-build-system)
ae44ebb9 RW	164	(arguments
	165	`(#:phases
	166	(modify-phases %standard-phases
	167	;; This fixes the file chooser crash that happens with GTK 3.
	168	(add-after 'install 'wrap-program
	169	(lambda* (#:key inputs outputs #:allow-other-keys)
	170	(let* ((out (assoc-ref outputs "out"))
	171	(gtk (assoc-ref inputs "gtk+"))
	172	(gtk-share (string-append gtk "/share")))
	173	(wrap-program (string-append out "/bin/synfigstudio")
	174	`("XDG_DATA_DIRS" ":" prefix (,gtk-share)))
	175	#t))))))
56215e41 RW	176	(inputs
56215e41 RW	177	`(("gtkmm" ,gtkmm)
ae44ebb9	178	("gtk+" ,gtk+)
56215e41 RW	179	("libsigc++" ,libsigc++)
	180	("synfig" ,synfig)))
	181	(native-inputs
	182	`(("pkg-config" ,pkg-config)
	183	("intltool" ,intltool)))
eeb8b0e6	184	(home-page "https://www.synfig.org")
56215e41 RW	185	(synopsis "Vector-based 2D animation package (GUI)")
	186	(description
	187	"Synfig is a vector-based 2D animation package. It is designed to
	188	be capable of producing feature-film quality animation. It eliminates the
	189	need for tweening, preventing the need to hand-draw each frame. This package
	190	contains the graphical user interface for synfig.")
	191	(license license:gpl3+)))
2809a355 RW	192
	193	(define-public papagayo
	194	(let ((commit "e143684b30e59fe4a554f965cb655d23cbe93ee7")
	195	(revision "1"))
	196	(package
	197	(name "papagayo")
	198	(version (string-append "2.0b1-" revision "." (string-take commit 9)))
	199	(source (origin
	200	(method git-fetch)
	201	(uri (git-reference
	202	(url "https://github.com/LostMoho/Papagayo.git")
	203	(commit commit)))
a18ee793	204	(file-name (git-file-name name version))
2809a355 RW	205	(sha256
	206	(base32
	207	"1p9gffjhbph34jhrvgpg93yha75bf88vkvlnk06x1r9601ph5321"))
	208	(modules '((guix build utils)))
	209	;; Delete bundled libsndfile sources.
	210	(snippet
	211	'(begin
	212	(delete-file-recursively "libsndfile_1.0.19")
	213	(delete-file-recursively "libsndfile_1.0.25")
	214	#t))))
	215	(build-system gnu-build-system)
	216	(arguments
	217	`(#:phases
	218	(modify-phases %standard-phases
	219	(replace 'configure
	220	(lambda* (#:key inputs outputs #:allow-other-keys)
	221	(let ((libsndfile (assoc-ref inputs "libsndfile")))
	222	;; Do not use bundled libsndfile sources
	223	(substitute* "Papagayo.pro"
	224	(("else \\{")
	225	(string-append "\nINCLUDEPATH += " libsndfile
	226	"/include"
	227	"\nLIBS +=" libsndfile
	228	"/lib/libsndfile.so\n"
	229	"win32 {"))))
6023fa36 TGR	230	(invoke "qmake"
	231	(string-append "DESTDIR="
	232	(assoc-ref outputs "out")
	233	"/bin"))))
2809a355 RW	234	;; Ensure that all required Qt plugins are found at runtime.
	235	(add-after 'install 'wrap-executable
	236	(lambda* (#:key inputs outputs #:allow-other-keys)
	237	(let* ((out (assoc-ref outputs "out"))
	238	(qt '("qt" "qtmultimedia")))
	239	(wrap-program (string-append out "/bin/Papagayo")
	240	`("QT_PLUGIN_PATH" ":" prefix
	241	,(map (lambda (label)
	242	(string-append (assoc-ref inputs label)
	243	"/lib/qt5/plugins/"))
	244	qt)))
	245	#t))))))
	246	(inputs
	247	`(("qt" ,qtbase)
	248	("qtmultimedia" ,qtmultimedia)
	249	("libsndfile" ,libsndfile)))
	250	(native-inputs
	251	`(("qttools" ,qttools)))
eeb8b0e6	252	(home-page "https://www.lostmarble.com/papagayo/")
2809a355 RW	253	(synopsis "Lip-syncing for animations")
	254	(description
	255	"Papagayo is a lip-syncing program designed to help you line up
	256	phonemes with the actual recorded sound of actors speaking. Papagayo makes it
	257	easy to lip sync animated characters by making the process very simple – just
	258	type in the words being spoken, then drag the words on top of the sound’s
	259	waveform until they line up with the proper sounds.")
	260	(license license:gpl3+))))