diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-10-28 22:15:54 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-10-28 22:15:54 -0400 |
| commit | cf061c18435ca545d75c1082f6e627afbfd36b77 (patch) | |
| tree | ff645e873b6b5162a2d20bcd48d03343d6acf708 | |
| parent | 1f34cce2689057f54f5c5fd4c09f7bcfd2e6ec16 (diff) | |
renderer: Apply camera viewport before rendering.
* sly/render/renderer.scm (render): Apply camera viewports.
| -rw-r--r-- | sly/render/renderer.scm | 1 |
1 files changed, 1 insertions, 0 deletions
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 <>) |