From e6b1e33431b748e2e5b422d498ef8db56aeec4b3 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 30 Nov 2014 21:37:27 -0500 Subject: examples: Delete transition example. Made redundant by animation example. * examples/transition.scm: Delete. --- examples/transition.scm | 45 --------------------------------------------- 1 file changed, 45 deletions(-) delete mode 100644 examples/transition.scm (limited to 'examples') 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 -;;; -;;; 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 -;;; . - -(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)) -- cgit v1.2.3