diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/scene-graph.scm | 128 |
1 files changed, 128 insertions, 0 deletions
diff --git a/examples/scene-graph.scm b/examples/scene-graph.scm new file mode 100644 index 0000000..f424b12 --- /dev/null +++ b/examples/scene-graph.scm @@ -0,0 +1,128 @@ +;;; 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 wrappers gl)) + +(load "common.scm") +(enable-fonts) + +(define tex (load-texture "images/crate.png")) + +(define unit-cube (make-cube 1 #:texture tex)) + +(define my-scene + (scene-root + (scene-node #:mesh unit-cube + #:position #(0 0 0) + #:scale 2) + (signal-map + (lambda (down?) + (scene-node #:mesh unit-cube + #:position #(0 2 0) + #:scale (if down? (transition 2 3/2 15) 3/2))) + (key-down? 'space)) + (scene-node #:mesh unit-cube + #:position #(0 4 0)) + (scene-node #:mesh unit-cube + #:position #(0 6 0) + #:scale 1/2) + (scene-node #:mesh unit-cube + #:position #(0 0 0)) + (scene-node #:mesh unit-cube + #:position #(3 0 0) + #:scale 2) + (scene-node #:mesh unit-cube + #:position #(-3 0 0) + #:scale 2 + #:children (list + (scene-node #:mesh unit-cube + #:position (transition #(0 2 0) + #(0 1 0) + 120)))))) + +(define gui + (scene-root + (scene-node #:mesh (make-sprite (load-texture "images/p1_front.png")) + #:position #(100 100)) + (scene-node #:mesh (make-label (load-default-font 16) + "Testing the scene graph" + #:color red) + #:translate #(10 10) + #:rotation -1/8))) + +(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 + (make-camera gui + identity-transform + (orthographic-projection 0 640 0 480 0 1) + (make-rect 0 0 640 480) + #:clear-color tango-aluminium-6 + #:clear-flags '(depth-buffer))) + +(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: |