anchor.diff:        (let ((mode (save-current-mode-parameters card))
               (framebuffer (framebuffer-address card)))
           ;; Take ownership of the compositor framebuffer.
  -        (when (and (eql (mode-parameters-format mode) :x8r8g8b8)
  +        (when (and (eql (sup::framebuffer-layout (sup:current-framebuffer)) :x8r8g8b8)
                      (eql (framebuffer-address card)
                           (sup::framebuffer-base-address (sup:current-framebuffer))))
             (sup::video-set-framebuffer
              framebuffer
  -           (mode-parameters-width mode)
  -           (mode-parameters-height mode)
  -           (* (mode-parameters-width mode) 4)
  +           (timing-horz-active mode)
  +           (timing-vert-active mode)
  +           (* (timing-horz-active mode) 4)
              :x8r8g8b8
              :device card)
             (mezzano.gui.compositor:force-redisplay t)))
  
positive.code:   (loop
       for i below 4
       for offset = (+ 54 (* i 18))
       when (and (not (and (zerop (aref edid offset))
                           (zerop (aref edid (+ offset 1)))))
                 ;; Must not be interlaced.
                 (not (logbitp 7 (aref edid (+ offset 17)))))
       collect (decode-edid-detailed-timing edid offset)))
  
  (defun decode-raw-edid (edid)
  
negative.code:         (vborder (aref edid (+ offset 16)))
          (flags (aref edid (+ offset 17))))
      (make-timing
       :pixel-clock pixel-clock
       :horz-left-border hborder
       :horz-active hactive
  