From 1d2c261abce45107e2970c24683c4991313ea4d2 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 8 Nov 2014 09:13:24 -0500
Subject: Delete obsolete animation module.

* sly/animation.scm: Delete.
* Makefile.am (SOURCES): Remove it.
---
 Makefile.am       |   1 -
 sly/animation.scm | 119 ------------------------------------------------------
 2 files changed, 120 deletions(-)
 delete mode 100644 sly/animation.scm

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!)
-- 
cgit v1.2.3