From d612dd6b1ebbceadfbe310a6a85da3bf62828177 Mon Sep 17 00:00:00 2001
From: David Thompson <davet@gnu.org>
Date: Sat, 6 Jun 2015 14:51:51 -0400
Subject: render: context: Add framebuffer and viewport fields.

* sly/render/context.scm (render-context-framebuffer,
  render-context-viewport): New accessors.
  (make-render-context): Initialize new GL parameters.
  (render-context-reset!): Reset new GL parameters.
  (set-render-context-framebuffer!, set-render-context-viewport!): New
  procedures.
---
 sly/render/context.scm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'sly')

diff --git a/sly/render/context.scm b/sly/render/context.scm
index e3ccd21..f87bff2 100644
--- a/sly/render/context.scm
+++ b/sly/render/context.scm
@@ -22,6 +22,7 @@
 ;;; Code:
 
 (define-module (sly render context)
+  #:use-module (ice-9 match)
   #:use-module (ice-9 q)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-42)
@@ -34,6 +35,8 @@
   #:use-module (sly render texture)
   #:use-module (sly render utils)
   #:use-module (sly render mesh)
+  #:use-module (sly render framebuffer)
+  #:use-module (sly render camera)
   #:export (make-render-context
             render-context?
             with-render-context
@@ -42,6 +45,8 @@
             render-context-texture set-render-context-texture!
             render-context-shader set-render-context-shader!
             render-context-mesh set-render-context-mesh!
+            render-context-framebuffer set-render-context-framebuffer!
+            render-context-viewport set-render-context-viewport!
             render-context-transform render-context-transform*!
             render-context-transform-identity!
             with-transform-excursion))
@@ -66,13 +71,15 @@
 
 (define-record-type <render-context>
   (%make-render-context blend-mode depth-test? texture shader
-                        mesh transform-stack)
+                        mesh framebuffer viewport transform-stack)
   render-context?
   (blend-mode render-context-blend-mode)
   (depth-test? render-context-depth-test?)
   (texture render-context-texture)
   (shader render-context-shader)
   (mesh render-context-mesh)
+  (framebuffer render-context-framebuffer)
+  (viewport render-context-viewport)
   (transform-stack render-context-transform-stack))
 
 (define (make-null-transform)
@@ -93,6 +100,8 @@
                         (make-gl-parameter null-shader-program
                                            apply-shader-program)
                         (make-gl-parameter null-mesh apply-mesh)
+                        (make-gl-parameter null-framebuffer apply-framebuffer)
+                        (make-gl-parameter null-viewport apply-viewport)
                         (make-transform-stack transform-stack-size)))
 
 (define (render-context-reset! context)
@@ -101,6 +110,8 @@
   (gl-parameter-reset! (render-context-texture context))
   (gl-parameter-reset! (render-context-shader context))
   (gl-parameter-reset! (render-context-mesh context))
+  (gl-parameter-reset! (render-context-framebuffer context))
+  (gl-parameter-reset! (render-context-viewport context))
   (render-context-transform-identity! context))
 
 (define-syntax-rule (with-render-context context body ...)
@@ -127,6 +138,12 @@
 (define-context-setter set-render-context-mesh!
   render-context-mesh)
 
+(define-context-setter set-render-context-framebuffer!
+  render-context-framebuffer)
+
+(define-context-setter set-render-context-viewport!
+  render-context-viewport)
+
 (define (render-context-transform context)
   (q-front (render-context-transform-stack context)))
 
-- 
cgit v1.2.3