(cond (image
(let* ((width (surface-w image)) (height (surface-h image))
(power-2 (nearest-power-of-two (min width height)))
(resized-image #f))
(cond ((and (= width power-2) (= height power-2)) (values image width height))
(else (set! resized-image (resize-surface image power-2 power-2))
(cond (image
(let* ((width (surface-w image)) (height (surface-h image))
(power-2 (nearest-power-of-two (min width height)))
(resized-image #f))
(cond ((and (= width power-2) (= height power-2)) (values image width height))
(else (set! resized-image (resize-surface image power-2 power-2))