From cf061c18435ca545d75c1082f6e627afbfd36b77 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 28 Oct 2014 22:15:54 -0400 Subject: renderer: Apply camera viewport before rendering. * sly/render/renderer.scm (render): Apply camera viewports. --- sly/render/renderer.scm | 1 + 1 file changed, 1 insertion(+) diff --git a/sly/render/renderer.scm b/sly/render/renderer.scm index a0ac2ca..76cc4aa 100644 --- a/sly/render/renderer.scm +++ b/sly/render/renderer.scm @@ -114,6 +114,7 @@ uniform variable 'mvp'." "Apply all of the render operations in RENDERER. The render operations are applied once for each camera." (define (render-with-camera camera) + (apply-viewport (camera-viewport camera)) (let ((view (transform* (camera-projection camera) (camera-location camera)))) (for-each (cut apply-render-op view <>) -- cgit v1.2.3