Minor

Author: Shinmera

resources/framebuffer.lisp

@@ -52,8 +52,6 @@
   (with-gl-binding (:framebuffer (gl-name framebuffer))
     (dolist (attachment attachments)
       (destructuring-bind (attachment texture &key (level 0) layer &allow-other-keys) attachment
-        (setf (width framebuffer) (width texture))
-        (setf (height framebuffer) (height texture))
         (if layer
             (%gl:framebuffer-texture-layer :framebuffer attachment (gl-name texture) level layer)
             (%gl:framebuffer-texture :framebuffer attachment (gl-name texture) level))))
@@ -108,11 +106,12 @@
 
 (defmethod (setf attachments) :before (attachments (framebuffer framebuffer))
   (when (and (allocated-p framebuffer) (not (equal attachments (attachments framebuffer))))
-    (when attachments
-      (setf (width framebuffer) NIL)
-      (setf (height framebuffer) NIL))
     (with-cleanup-on-failure (bind-framebuffer-attachments framebuffer (attachments framebuffer))
-      (%bind-framebuffer-attachments framebuffer attachments))))
+      (%bind-framebuffer-attachments framebuffer attachments)
+      (when attachments
+        (let ((texture (second (first attachments))))
+          (setf (width framebuffer) (width texture))
+          (setf (height framebuffer) (height texture)))))))
 
 (defmethod allocate ((framebuffer framebuffer))
   (let ((fbo (gl:gen-framebuffer)))