From bb0b6b0760efa78c6182e812e345507fd3f8431e Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 2 Jul 2014 21:12:04 -0400 Subject: Add transition example. * examples/transition.scm: New file. --- examples/transition.scm | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 examples/transition.scm (limited to 'examples') diff --git a/examples/transition.scm b/examples/transition.scm new file mode 100644 index 0000000..39f7a93 --- /dev/null +++ b/examples/transition.scm @@ -0,0 +1,45 @@ +;;; 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 sprite) + (sly vector) + (sly window) + (sly color) + (sly signal) + (sly 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