diff options
| -rw-r--r-- | examples/transition.scm | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/examples/transition.scm b/examples/transition.scm deleted file mode 100644 index 9370f00..0000000 --- a/examples/transition.scm +++ /dev/null @@ -1,45 +0,0 @@ -;;; Sly -;;; Copyright (C) 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/>. - -(use-modules (sly game) - (sly render sprite) - (sly vector) - (sly window) - (sly render color) - (sly signal) - (sly render texture) - (sly transition)) - -(load "common.scm") - -(define texture (load-texture "images/p1_front.png")) - -(define sprite - (signal-map - (lambda (position color) - (make-sprite texture - #:position position - #:color color)) - (transition #(32 240) #(608 240) 120 - #:ease ease-in-out-quad) - (transition white tango-plum 120))) - -(add-hook! draw-hook (lambda (dt alpha) - (draw-sprite (signal-ref-maybe sprite)))) - -(with-window (make-window #:title "Transitions") - (start-game-loop)) |