summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/scene-graph.scm181
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: