562 lines
21 KiB
Scheme
562 lines
21 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2015, 2017, 2023 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2019 Pkill -9 <pkill9@runbox.com>
|
||
;;; Copyright © 2020, 2021, 2022 Vinicius Monego <monego@posteo.net>
|
||
;;; Copyright © 2022 Tomasz Jeneralczyk <tj@schwi.pl>
|
||
;;;
|
||
;;; 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 gexp)
|
||
#:use-module (guix git-download)
|
||
#:use-module (guix utils)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system meson)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages algebra)
|
||
#:use-module (gnu packages assembly)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages boost)
|
||
#:use-module (gnu packages check)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages curl)
|
||
#:use-module (gnu packages dejagnu)
|
||
#:use-module (gnu packages fontutils)
|
||
#:use-module (gnu packages gettext)
|
||
#:use-module (gnu packages gl)
|
||
#: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 jemalloc)
|
||
#:use-module (gnu packages mp3)
|
||
#:use-module (gnu packages networking)
|
||
#:use-module (gnu packages pcre)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages pulseaudio)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages qt)
|
||
#:use-module (gnu packages sdl)
|
||
#:use-module (gnu packages tls)
|
||
#:use-module (gnu packages video)
|
||
#:use-module (gnu packages xiph))
|
||
|
||
(define-public rlottie
|
||
(package
|
||
(name "rlottie")
|
||
(version "0.2")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri
|
||
(git-reference
|
||
(url "https://github.com/Samsung/rlottie.git")
|
||
(commit
|
||
(string-append "v" version))))
|
||
(file-name
|
||
(git-file-name name version))
|
||
(sha256
|
||
(base32 "10bxr1zf9wxl55d4cw2j02r6sgqln7mbxplhhfvhw0z92fi40kr3"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list
|
||
"-Dlog=true"
|
||
"-Dtest=true"
|
||
"-Dcpp_std=gnu++17")))
|
||
(native-inputs
|
||
(list googletest pkg-config))
|
||
(synopsis "Lottie Animation Library")
|
||
(description "Rlottie is a platform independent standalone c++ library for
|
||
rendering vector based animations and art in realtime.")
|
||
(home-page "https://github.com/Samsung/rlottie/")
|
||
(license license:expat)))
|
||
|
||
;; ETL, synfig, and Synfig Studio are updated in tandem.
|
||
(define synfig-version "1.4.4")
|
||
|
||
(define-public etl
|
||
(package
|
||
(name "etl")
|
||
(version synfig-version)
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/synfig/synfig"
|
||
"/releases/download/v" version
|
||
"/ETL-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1jnahpxvrdxrll7b7av3zxabm5j3nlz6m3vg4sib2278v1wf91yc"))))
|
||
(build-system gnu-build-system)
|
||
(inputs (list glibmm-2.64))
|
||
(native-inputs (list pkg-config))
|
||
(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 synfig-version)
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/synfig/synfig"
|
||
"/releases/download/v" version
|
||
"/synfig-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"01kgfmjfjk5y0v9ldmxzc8zzvbiaakz7nzg4hkj24gj3j6h8566d"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
(list boost
|
||
libdv
|
||
libjpeg-turbo
|
||
libpng
|
||
libmng
|
||
zlib))
|
||
;; synfig.pc lists the following as required: Magick++ libavcodec
|
||
;; libavformat libswscale freetype2 fontconfig OpenEXR ETL glibmm-2.4
|
||
;; giomm-2.4 libxml++-2.6 sigc++-2.0 cairo fftw3 pango pangocairo mlt++
|
||
(propagated-inputs
|
||
(list cairo
|
||
etl
|
||
ffmpeg-4
|
||
fftw
|
||
fontconfig
|
||
freetype
|
||
glibmm-2.64
|
||
imagemagick
|
||
libxml++-2
|
||
libsigc++
|
||
mlt-6
|
||
openexr-2
|
||
pango))
|
||
(native-inputs
|
||
(list intltool 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 synfig-version)
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/synfig/synfig"
|
||
"/releases/download/v" version
|
||
"/synfigstudio-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"07xjgs1qw0rwpihpcspj92rzwy5zizi86l9x2x7w6sysrj0wd4w8"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
(list
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
;; This fixes the file chooser crash that happens with GTK 3.
|
||
(add-after 'install 'wrap-program
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let* ((gtk (assoc-ref inputs "gtk+"))
|
||
(gtk-share (string-append gtk "/share")))
|
||
(wrap-program (string-append #$output "/bin/synfigstudio")
|
||
`("XDG_DATA_DIRS" ":" prefix (,gtk-share)))))))))
|
||
(inputs
|
||
(list gtkmm-3 gtk+ libsigc++ synfig))
|
||
(native-inputs
|
||
(list pkg-config 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+)))
|
||
|
||
;; This package provides a standalone (no browser plugin) version of Gnash.
|
||
(define-public gnash
|
||
;; The last tagged release of Gnash was in 2013.
|
||
(let ((commit "583ccbc1275c7701dc4843ec12142ff86bb305b4")
|
||
(revision "0"))
|
||
(package
|
||
(name "gnash")
|
||
(version (git-version "0.8.11" revision commit))
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://git.savannah.gnu.org/git/gnash.git/")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(patches (search-patches "gnash-fix-giflib-version.patch"))
|
||
(sha256
|
||
(base32 "0fh0bljn0i6ypyh6l99afi855p7ki7lm869nq1qj6k8hrrwhmfry"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--disable-static"
|
||
;; Plugins are based on XULRunner and NPAPI only. Disable.
|
||
"--disable-plugins"
|
||
"--enable-gui=gtk"
|
||
"--enable-media=ffmpeg"
|
||
(string-append "--with-boost-incl="
|
||
(assoc-ref %build-inputs "boost") "/include")
|
||
(string-append "--with-boost-lib="
|
||
(assoc-ref %build-inputs "boost") "/lib")
|
||
(string-append "--with-ffmpeg-incl="
|
||
(assoc-ref %build-inputs "ffmpeg")
|
||
"/include/libavcodec")
|
||
(string-append "--with-speex-incl="
|
||
(assoc-ref %build-inputs "speex") "/include")
|
||
(string-append "--with-jemalloc-incl="
|
||
(assoc-ref %build-inputs "jemalloc")
|
||
"/include/jemalloc")
|
||
(string-append "--with-speex-lib="
|
||
(assoc-ref %build-inputs "speex") "/lib")
|
||
(string-append "--with-jpeg-incl="
|
||
(assoc-ref %build-inputs "libjpeg") "/include")
|
||
(string-append "--with-zlib-incl="
|
||
(assoc-ref %build-inputs "zlib") "/include")
|
||
(string-append "--with-png-incl="
|
||
(assoc-ref %build-inputs "libpng")
|
||
"/include"))))
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("dejagnu" ,dejagnu) ;for tests
|
||
("gettext" ,gettext-minimal)
|
||
("libtool" ,libtool)
|
||
("perl" ,perl)
|
||
("pkg-config" ,pkg-config)
|
||
("python" ,python-wrapper)))
|
||
(inputs
|
||
`(("agg" ,agg)
|
||
("at-spi2-core" ,at-spi2-core)
|
||
("boost" ,boost)
|
||
("curl" ,curl)
|
||
("ffmpeg" ,ffmpeg-2.8)
|
||
("freeglut" ,freeglut)
|
||
("gconf" ,gconf)
|
||
("giflib" ,giflib)
|
||
("glib" ,glib)
|
||
("gtk+" ,gtk+-2)
|
||
("gtkglext" ,gtkglext)
|
||
("jemalloc" ,jemalloc)
|
||
("libjpeg" ,libjpeg-turbo)
|
||
("libltdl" ,libltdl)
|
||
("libpng" ,libpng)
|
||
("pangox-compat" ,pangox-compat)
|
||
("sdl" ,sdl)
|
||
("speex" ,speex)))
|
||
(synopsis "Flash movie player")
|
||
(description
|
||
"Gnash is a Flash movie player. It supports SWF version v7 and some
|
||
of v8 and v9. It is possible to configure Gnash to use several different
|
||
audio or video backends, ensuring good performance.")
|
||
(home-page "https://www.gnu.org/software/gnash/")
|
||
(license license:gpl3+))))
|
||
|
||
;; This package provides a standalone (no browser plugin) version of
|
||
;; Lightspark.
|
||
(define-public lightspark
|
||
(package
|
||
(name "lightspark")
|
||
(version "0.8.7")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/lightspark/lightspark")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "156yd79dbs6lzp5jc2zd0knw6bk0g8qdm8icp7pkcn95vfvxyzx9"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:tests? #f ;requires Adobe Flex SDK, see README.tests
|
||
;; Disable browser plugins because neither NPAPI nor PPAPI is
|
||
;; supported in the browsers we have.
|
||
#:configure-flags
|
||
'("-DCOMPILE_NPAPI_PLUGIN=FALSE"
|
||
"-DCOMPILE_PPAPI_PLUGIN=FALSE")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'prepare-build-environment
|
||
(lambda _
|
||
;; Use relative etc path.
|
||
(substitute* "CMakeLists.txt" (("\\/etc") "etc"))))
|
||
(replace 'check
|
||
(lambda* (#:key tests? #:allow-other-keys)
|
||
(when tests?
|
||
(invoke "./tests")))))))
|
||
(native-inputs
|
||
(list gettext-minimal
|
||
`(,glib "bin")
|
||
nasm
|
||
perl
|
||
pkg-config
|
||
python-wrapper))
|
||
(inputs
|
||
(list cairo
|
||
curl
|
||
ffmpeg
|
||
freeglut
|
||
glew
|
||
glibmm
|
||
gnutls
|
||
libjpeg-turbo
|
||
openssl
|
||
pango
|
||
pcre2
|
||
rtmpdump
|
||
sdl2
|
||
zlib))
|
||
(home-page "https://lightspark.github.io/")
|
||
(synopsis "Flash player implementation")
|
||
(description
|
||
"Lightspark is a Flash player implementation for playing files in the SWF
|
||
format. It supports SWF files written on all versions of the ActionScript
|
||
language.")
|
||
;; NOTE: The bundled pugixml is a fork specific to Lightspark and
|
||
;; incompatible with the one we have.
|
||
;; FIXME: we also have jxrlib, but the build fails to find JXRMeta.h so we
|
||
;; use the bundled one for now.
|
||
(license (list license:lgpl3+ ;lightspark
|
||
license:mpl2.0 ;avmplus
|
||
license:bsd-2 ;jxrlib
|
||
license:expat)))) ;pugixml, PerlinNoise
|
||
|
||
(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")
|
||
(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-5")))
|
||
(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-5)
|
||
("qtmultimedia-5" ,qtmultimedia-5)
|
||
("libsndfile" ,libsndfile)))
|
||
(native-inputs
|
||
(list qttools-5))
|
||
(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+))))
|
||
|
||
(define-public pencil2d
|
||
(package
|
||
(name "pencil2d")
|
||
(version "0.6.6")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/pencil2d/pencil")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0b1nwiwyg01087q318vymg4si76dw41ykxbn2zwd6dqbxzbpr1dh"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
(list qtbase-5 qtxmlpatterns qtmultimedia-5 qtsvg-5))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(invoke "qmake" (string-append "PREFIX=" out)))))
|
||
(add-after 'install 'wrap-executable
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(plugin-path (getenv "QT_PLUGIN_PATH")))
|
||
(wrap-program (string-append out "/bin/pencil2d")
|
||
`("QT_PLUGIN_PATH" ":" prefix (,plugin-path)))
|
||
#t))))))
|
||
(home-page "https://www.pencil2d.org")
|
||
(synopsis "Make 2D hand-drawn animations")
|
||
(description
|
||
"Pencil2D is an easy-to-use and intuitive animation and drawing tool. It
|
||
lets you create traditional hand-drawn animations (cartoons) using both bitmap
|
||
and vector graphics.")
|
||
(license license:gpl2)))
|
||
|
||
(define-public swftools
|
||
;; Last release of swftools was 0.9.2 on 2012-04-21 - it is really old and
|
||
;; does not compile with what's available in guix, master on the other hand works.
|
||
(let ((commit "772e55a271f66818b06c6e8c9b839befa51248f4")
|
||
(revision "1"))
|
||
(package
|
||
(name "swftools")
|
||
(version (git-version "0.9.2" revision commit))
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/matthiaskramm/swftools")
|
||
(commit commit)))
|
||
(sha256
|
||
(base32 "0a8a29rn7gpxnba3spnvkpdgr7mdlssvr273mzw5b2wjvbzard3w"))
|
||
(file-name (git-file-name name version))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
;; XXX: Swftools includes the source tarball of an old version of
|
||
;; xpdf.
|
||
|
||
;; To fix a linking error I followed the workaround in:
|
||
;; https://github.com/matthiaskramm/swftools/issues/178
|
||
;; and implented it as a two-step snippet because substitute*
|
||
;; does not match multiline regexes.
|
||
(substitute* "lib/lame/quantize.c"
|
||
;; move inline keywords to the same line as their function headers
|
||
(("^inline.*\n") "inline "))
|
||
(substitute* "lib/lame/quantize.c"
|
||
;; make this particular function not inline
|
||
(("inline (void bitpressure_strategy1)" _ f) f))))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
(list #:tests? #f)) ; no rule for check
|
||
(inputs (list zlib freetype giflib libjpeg-turbo lame))
|
||
(home-page "http://www.swftools.org")
|
||
(synopsis "Collection of utilities for working with Adobe Flash files")
|
||
|
||
;; XXX: This package will built all of swftools' tools but one: PDF2SWF,
|
||
;; purposefuly commented out of the description below.
|
||
(description "SWFTools is a collection of utilities for working with
|
||
Adobe Flash files (SWF files). The tool collection includes programs for
|
||
reading SWF files, combining them, and creating them from other content (like
|
||
images, sound files, videos or sourcecode). The current collection is
|
||
comprised of the programs detailed below:
|
||
|
||
@itemize
|
||
@comment PDF2SWF is not currentlybeing build alongside other tools. The next
|
||
@comment two lines should be uncommented if this will ever get fixed.
|
||
@comment @item
|
||
@comment @command{pdf2swf} A PDF to SWF Converter.
|
||
|
||
@item
|
||
@command{swfcombine} A multi-function tool for inserting, contatenating,
|
||
stacking and changing parameters in SWFs.
|
||
|
||
@item
|
||
@command{swfstrings} Scans SWFs for text data.
|
||
@item
|
||
@command{swfdump} Prints out various information about SWFs.
|
||
|
||
@item
|
||
@command{jpeg2swf} Takes one or more JPEG pictures and generates a SWF
|
||
slideshow from them.
|
||
|
||
@item
|
||
@command{png2swf} Like JPEG2SWF, only for PNGs.
|
||
|
||
@item
|
||
@command{gif2swf} Converts GIFs to SWF. Also able to handle animated GIFs.
|
||
|
||
@item
|
||
@command{wav2swf} Converts WAV audio files to SWFs, using the LAME MP3
|
||
encoder library.
|
||
|
||
@item
|
||
@command{font2swf} Converts font files (TTF, Type1) to SWF.
|
||
|
||
@item
|
||
@command{swfbbox} reads out, optimizes and readjusts SWF bounding boxes.
|
||
|
||
@item
|
||
@command{swfc} A tool for creating SWF files from simple script files. Supports
|
||
both ActionScript 2.0 aand 3.0.
|
||
|
||
@item
|
||
@command{swfextract} extracts Movieclips, Sounds, Images etc. from SWF
|
||
files.
|
||
|
||
@item
|
||
@command{as3compile} A standalone ActionScript 3.0 compiler. Mostly compatible
|
||
with Flex.
|
||
@end itemize")
|
||
(license license:gpl2+))))
|