blob: b46baae39b2c3ff3b2ebe4f2067b7fd659352a51 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
;;; Sly
;;; Copyright (C) 2015 David Thompson <davet@gnu.org>
;;;
;;; Sly 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.
;;;
;;; Sly 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/>.
;;; Commentary:
;;
;; Scene data type.
;;
;;; Code:
(define-module (sly render scene)
#:use-module (ice-9 match)
#:use-module (srfi srfi-9)
#:use-module (sly math transform)
#:use-module (sly render)
#:use-module (sly render camera)
#:use-module (sly render framebuffer)
#:use-module (sly render model)
#:use-module (sly render sprite)
#:export (make-scene
scene
scene?
scene-camera
scene-model
scene-framebuffer
draw-scene
scene->sprite))
(define-record-type <scene>
(%make-scene camera model framebuffer)
scene?
(camera scene-camera)
(model scene-model)
(framebuffer scene-framebuffer))
(define* (make-scene camera model #:optional (framebuffer null-framebuffer))
"Create a new scene that views MODEL from the perspective of CAMERA.
FRAMEBUFFER specifies where the scene will be drawn to. By default, a
scene is drawn to directly to the OpenGL window."
(%make-scene camera model framebuffer))
(define scene make-scene)
(define (draw-scene scene gfx)
"Render SCENE with the given rendering GFX."
(match scene
(($ <scene> camera model framebuffer)
(with-projection-excursion gfx
(graphics-projection-identity! gfx)
(graphics-projection-mul! gfx (camera-projection camera))
(with-model-view-excursion gfx
(graphics-model-view-identity! gfx)
(graphics-model-view-mul! gfx (camera-location camera))
(set-graphics-framebuffer! gfx framebuffer)
(set-graphics-viewport! gfx (camera-viewport camera))
(clear-viewport (camera-viewport camera))
(draw-model model gfx))))))
(define* (scene->sprite scene #:key (anchor 'center))
"Create a sprite that renders the framebuffer texture for SCENE."
(model-inherit (make-sprite (framebuffer-texture (scene-framebuffer scene))
#:anchor anchor)
#:sub-scene scene))
|