From 049d8f6332a395f948e76358067c8be5ea4511f3 Mon Sep 17 00:00:00 2001 From: Shinmera Date: Tue, 13 Jun 2023 15:32:15 +0200 Subject: [PATCH] Minor --- resources/framebuffer.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/resources/framebuffer.lisp b/resources/framebuffer.lisp index a2639571a..c2829c897 100644 --- a/resources/framebuffer.lisp +++ b/resources/framebuffer.lisp @@ -98,7 +98,8 @@ (defmethod activate ((framebuffer framebuffer)) (gl:bind-framebuffer :framebuffer (gl-name framebuffer)) (gl:viewport 0 0 (width framebuffer) (height framebuffer)) - (%gl:clear (clear-bits framebuffer))) + (let ((bits (slot-value framebuffer 'clear-bits))) + (when (< 0 bits) (%gl:clear bits)))) ;; FIXME: this should ideally be more generic, with blitting from one to another framebuffer ;; and handling the screen as a special framebuffer instance that's always around.