summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-11-08 09:13:24 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-11-08 09:13:24 -0500
commit1d2c261abce45107e2970c24683c4991313ea4d2 (patch)
tree4235e48f9d445e1d11c674de4e0ea0f114126402
parent6ea24d5d8faf10b177764f940cfa1b129f9ca536 (diff)
Delete obsolete animation module.
* sly/animation.scm: Delete. * Makefile.am (SOURCES): Remove it.
-rw-r--r--Makefile.am1
-rw-r--r--sly/animation.scm119
2 files changed, 0 insertions, 120 deletions
diff --git a/Makefile.am b/Makefile.am
index d961740..ea11a5f 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -23,7 +23,6 @@ godir=$(libdir)/guile/2.0/ccache
SOURCES = \
sly/utils.scm \
sly/agenda.scm \
- sly/animation.scm \
sly/audio.scm \
sly/config.scm \
sly/coroutine.scm \
diff --git a/sly/animation.scm b/sly/animation.scm
deleted file mode 100644
index c64ee5d..0000000
--- a/sly/animation.scm
+++ /dev/null
@@ -1,119 +0,0 @@
-;;; Sly
-;;; Copyright (C) 2013, 2014 David Thompson <dthompson2@worcester.edu>
-;;;
-;;; This program 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.
-;;;
-;;; This program 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 this program. If not, see
-;;; <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; Animations represent a sequence of textures and/or texture regions.
-;;
-;;; Code:
-
-(define-module (sly animation)
- #:use-module (srfi srfi-9)
- #:use-module (sly render texture))
-
-;;;
-;;; Animations
-;;;
-
-;; The <animation> type represents a vector of textures or texture
-;; regions that are to be played in sequence and possibly looped.
-(define-record-type <animation>
- (make-animation frames frame-duration loop)
- animation?
- (frames animation-frames)
- (frame-duration animation-frame-duration)
- (loop animation-loop?))
-
-(define (animation-frame animation index)
- "Return the texture for the given frame INDEX of ANIMATION."
- (vector-ref (animation-frames animation) index))
-
-(define (animation-length animation)
- "Return the number of frames in ANIMATION."
- (vector-length (animation-frames animation)))
-
-(define (animation-duration animation)
- "Return the total duration of ANIMATION in ticks."
- (* (animation-length animation)
- (animation-frame-duration animation)))
-
-(export make-animation
- animation?
- animation-frames
- animation-frame-duration
- animation-loop?
- animation-frame
- animation-length
- animation-duration)
-
-;; The <animator> type encapsulates the state for playing an
-;; animation.
-(define-record-type <animator>
- (%make-animator animation frame time playing)
- animator?
- (animation animator-animation)
- (frame animator-frame set-animator-frame!)
- (time animator-time set-animator-time!)
- (playing animator-playing? set-animator-playing!))
-
-(define (make-animator animation)
- "Create a new animator for ANIMATION."
- (%make-animator animation 0 0 #t))
-
-(define (animator-frame-complete? animator)
- "Return #t when ANIMATOR is done displaying the current frame."
- (>= (animator-time animator)
- (animation-frame-duration (animator-animation animator))))
-
-(define (animator-next-frame animator)
- "Return the next frame index for ANIMATOR."
- (modulo (1+ (animator-frame animator))
- (animation-length (animator-animation animator))))
-
-(define (animator-texture animator)
- "Return a texture for the ANIMATOR's current frame."
- (animation-frame (animator-animation animator)
- (animator-frame animator)))
-
-(define (animator-next! animator)
- "Advance ANIMATOR to the next frame of its animation."
- (let ((next-frame (animator-next-frame animator))
- (animation (animator-animation animator)))
- (set-animator-time! animator 0)
- (set-animator-frame! animator next-frame)
- (set-animator-playing! animator (or (not (zero? next-frame))
- (animation-loop? animation)))))
-
-(define (animator-update! animator)
- "Increment the frame time for the ANIMATOR and advance to the next
-frame when necessary."
- (when (animator-playing? animator)
- (set-animator-time! animator (1+ (animator-time animator)))
- (when (animator-frame-complete? animator)
- (animator-next! animator))))
-
-(export make-animator
- animator?
- animator-animation
- animator-frame
- animator-time
- animator-frame-complete?
- animator-playing?
- animator-next-frame
- animator-texture
- animator-next!
- animator-update!)