diff options
Diffstat (limited to 'examples/scene-graph.scm')
| -rw-r--r-- | examples/scene-graph.scm | 181 |
1 files changed, 0 insertions, 181 deletions
diff --git a/examples/scene-graph.scm b/examples/scene-graph.scm deleted file mode 100644 index 59e131f..0000000 --- a/examples/scene-graph.scm +++ /dev/null @@ -1,181 +0,0 @@ -;;; Sly -;;; Copyright (C) 2014 David Thompson <davet@gnu.org> -;;; -;;; 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 (srfi srfi-1) - (srfi srfi-26) - (sly agenda) - (sly camera) - (sly coroutine) - (sly game) - (sly keyboard) - (sly vector) - (sly window) - (sly shader) - (sly signal) - (sly color) - (sly texture) - (sly transform) - (sly math) - (sly font) - (sly rect) - (sly transition) - (sly mesh) - (sly scene) - (sly shape) - (sly sprite) - (sly helpers) - (sly tileset) - (sly quaternion) - (sly wrappers gl)) - -(load "common.scm") -(enable-fonts) - -(define tex (load-texture "images/crate.png")) - -(define unit-cube - (scene-node (children (list (make-cube 1 #:texture tex))) - (uniforms `(("color" ,white))))) - -(define-signal my-scene - (scene-root - (scene-node - (position #(0 0 0)) - (scale - (signal-generator - (forever - (yield 1/2) - (wait 30) - (yield 1) - (wait 30) - (yield 2) - (wait 30)))) - (children (list unit-cube))) - (signal-map - (lambda (down?) - (scene-node - (position #(0 2 0)) - (scale (if down? (transition 2 3/2 15) 3/2)) - (children (list unit-cube)))) - (key-down? 'space)) - (scene-node - (position #(0 4 0)) - (children (list unit-cube))) - (scene-node - (position #(0 6 0)) - (scale 1/2) - (children (list unit-cube))) - (scene-node - (position #(3 0 0)) - (scale 2) - (children (list unit-cube))) - (scene-node - (position #(-3 0 0)) - (scale 2) - (children - (list - (scene-node - (rotation (transition - (axis-angle->quaternion - #(0 0 1) 1) - (axis-angle->quaternion - (normalize #(0 0 1)) - (/ (* 7 pi) 4)) - 90)) - (children (list unit-cube))) - (scene-node - (position (transition #(0 2 0) - #(0 1 0) - 120)) - (children (list unit-cube)))))))) - -(define animation - (let ((tiles (load-tileset "images/princess.png" 64 64))) - (list (tileset-ref tiles 19) - (tileset-ref tiles 20) - (tileset-ref tiles 21) - (tileset-ref tiles 22) - (tileset-ref tiles 23) - (tileset-ref tiles 24) - (tileset-ref tiles 25) - (tileset-ref tiles 26)))) - -(define font (load-default-font 16)) - -(define-signal gui - (scene-root - (scene-node - (position #(100 100)) - (children (list (make-animated-sprite animation 6)))) - (scene-node - (translate #(10 10)) - ;; #:rotation -1/8 - (children - (list - (scene-node - (uniforms `(("color" ,white))) - (children - (list - (signal-generator - (let ((message "Testing the scene graph")) - (forever - (let loop ((i 1)) - (when (<= i (string-length message)) - (yield (make-label font - (substring message 0 i) - #:color red)) - (wait 3) - (loop (1+ i)))) - (wait 60)))))))))))) - -(define camera - (make-camera my-scene - (look-at #(0 0 7) #(0 0 0)) - (perspective-projection 60 4/3 1/10 20) - (make-rect 0 0 320 240) - #:clear-color tango-aluminium-3)) - -(define camera2 - (make-camera my-scene - (look-at #(2 3 5) #(0 0 0)) - (perspective-projection 60 4/3 1/10 20) - (make-rect 320 0 320 240) - #:clear-color tango-aluminium-4)) - -(define camera3 - (make-camera my-scene - (signal-map (lambda (angle) - (transform* - (look-at #(0 0 8) #(0 0 0)) - (rotate-y angle))) - (transition 0 (* 2 pi) (* 60 3))) - (perspective-projection 60 4/3 1/10 20) - (make-rect 320 240 320 240) - #:clear-color tango-aluminium-5)) - -(define camera4 - (orthographic-camera gui 640 480 - #:clear-flags '(depth-buffer) - #:clear-color tango-aluminium-6)) - -(with-window (make-window #:title "Scene Graph") - (start-game-loop (list camera camera2 camera3 camera4))) - -;; Local Variables: -;; coding: utf-8 -;; compile-command: "../pre-inst-env guile scene-graph.scm" -;; End: |