From 3070d1e082af44aced65afb045ae02232ada0fb5 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 13 May 2023 12:17:13 -0400 Subject: Remove viewport from regions. Not needed now that regions are rendered to framebuffers. --- catbird/region.scm | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/catbird/region.scm b/catbird/region.scm index c7620ad..7e9f9df 100644 --- a/catbird/region.scm +++ b/catbird/region.scm @@ -30,7 +30,6 @@ #:use-module (chickadee data array-list) #:use-module (chickadee graphics engine) #:use-module (chickadee graphics framebuffer) - #:use-module (chickadee graphics viewport) #:use-module (chickadee graphics sprite) #:use-module (chickadee math matrix) #:use-module (chickadee math rect) @@ -60,7 +59,6 @@ (area #:accessor area #:init-keyword #:area) (camera #:accessor camera #:init-keyword #:camera #:init-value #f) (scene-state #:accessor scene-state #:init-thunk make-pushdown-state) - (viewport #:accessor viewport) (framebuffer #:accessor framebuffer) (framebuffer-rect #:accessor framebuffer-rect) ;; Regions can be frozen for debugging purposes, so that the scene @@ -91,11 +89,6 @@ (define-method (initialize (region ) args) (next-method) (let ((r (area region))) - (set! (viewport region) - (make-viewport (float->int (rect-x r)) - (float->int (rect-y r)) - (float->int (rect-width r)) - (float->int (rect-height r)))) (set! (framebuffer region) (make-framebuffer (float->int (rect-width r)) (float->int (rect-height r)))) @@ -167,7 +160,6 @@ (with-framebuffer fb (with-projection (projection-matrix (camera region)) (render/around s alpha)))) - (with-graphics-state ((g:viewport (viewport region))) - (draw-sprite* (framebuffer-texture fb) - (framebuffer-rect region) - %identity-matrix)))))) + (draw-sprite* (framebuffer-texture fb) + (framebuffer-rect region) + %identity-matrix))))) -- cgit v1.2.3