- (if (not texture)
- (set! texture (sdl2:surface->texture %sdl-renderer image)))
- (sdl2:clear-renderer %sdl-renderer)
- (sdl2:render-copy %sdl-renderer texture #:dest-rect (sdl2:make-rect (car xy) (cadr xy) (sdl2:surface-width image) (sdl2:surface-height image)))
- (sdl2:present-renderer %sdl-renderer))))))
+ (if (not texture)
+ (set! texture (sdl2:surface->texture %sdl-renderer image)))
+ (sdl2:clear-renderer %sdl-renderer)
+ (sdl2:render-copy %sdl-renderer texture #:dest-rect (sdl2:make-rect (car xy) (cadr xy) (sdl2:surface-width image) (sdl2:surface-height image)))
+ (sdl2:present-renderer %sdl-renderer))))))