summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sly/render/context.scm34
1 files changed, 29 insertions, 5 deletions
diff --git a/sly/render/context.scm b/sly/render/context.scm
index 291e080..d3bd0c3 100644
--- a/sly/render/context.scm
+++ b/sly/render/context.scm
@@ -22,18 +22,21 @@
;;; Code:
(define-module (sly render context)
+ #:use-module (ice-9 q)
#:use-module (srfi srfi-9)
+ #:use-module (srfi srfi-42)
#:use-module (gl)
#:use-module (gl enums)
#:use-module (gl low-level)
#:use-module (sly wrappers gl)
+ #:use-module (sly math transform)
#:use-module (sly render shader)
#:use-module (sly render texture)
#:use-module (sly render utils)
#:use-module (sly render vertex-array)
#:export (make-render-context
render-context?
- with-render-context
+ with-render-context with-temp-transform
render-context-blend-mode set-render-context-blend-mode!
render-context-depth-test? set-render-context-depth-test?!
render-context-texture set-render-context-texture!
@@ -41,16 +44,30 @@
render-context-vertex-array set-render-context-vertex-array!))
(define-record-type <render-context>
- (%make-render-context blend-mode depth-test? texture shader vertex-array)
+ (%make-render-context blend-mode depth-test? texture shader
+ vertex-array transform-stack)
render-context?
(blend-mode render-context-blend-mode %set-render-context-blend-mode!)
(depth-test? render-context-depth-test? %set-render-context-depth-test?!)
(texture render-context-texture %set-render-context-texture!)
(shader render-context-shader %set-render-context-shader!)
- (vertex-array render-context-vertex-array %set-render-context-vertex-array!))
+ (vertex-array render-context-vertex-array %set-render-context-vertex-array!)
+ (transform-stack render-context-transform-stack))
-(define (make-render-context)
- (%make-render-context #f #f #f #f #f))
+(define (make-null-transform)
+ (make-transform 0 0 0 0
+ 0 0 0 0
+ 0 0 0 0
+ 0 0 0 0))
+
+(define (make-transform-stack size)
+ (let ((stack (make-q)))
+ (do-ec (: i 128) (q-push! stack (make-null-transform)))
+ stack))
+
+(define* (make-render-context #:optional (transform-stack-size 32))
+ (%make-render-context #f #f #f #f #f
+ (make-transform-stack transform-stack-size)))
(define (render-context-reset! context)
(gl-disable (enable-cap blend))
@@ -105,3 +122,10 @@
(unless (equal? (render-context-vertex-array context) vertex-array)
(apply-vertex-array vertex-array)
(%set-render-context-vertex-array! context vertex-array)))
+
+;; emacs: (put 'with-temp-transform 'scheme-indent-function 2)
+(define-syntax-rule (with-temp-transform context name body ...)
+ (let* ((stack (render-context-transform-stack context))
+ (name (q-pop! stack)))
+ (begin body ...)
+ (q-push! stack name)))