From c51c1aad4e318a1ed3be809a9bd6f12d364b436f Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Thu, 16 Apr 2026 13:09:20 +0300
Subject: [PATCH] Move spite to use generated sdl2-image library

---
 retropikzel/spite.scm | 11 +----------
 retropikzel/spite.sld |  1 +
 2 files changed, 2 insertions(+), 10 deletions(-)

diff --git a/retropikzel/spite.scm b/retropikzel/spite.scm
index ae9eb93..610e24c 100644
--- a/retropikzel/spite.scm
+++ b/retropikzel/spite.scm
@@ -10,15 +10,6 @@
 (define draw-color-g 0)
 (define draw-color-b 0)
 (define draw-color-a 255)
-(define-c-library sdl2-image*
-                  '("SDL2/SDL_image.h")
-                  "SDL2_image-2.0"
-                  `((additional-paths ("retropikzel/spite"
-                                       "snow/retropikzel/spite"))
-                    (additional-versions ("0"))))
-
-(define-c-procedure sdl-img-load-texture sdl2-image* 'IMG_LoadTexture 'pointer '(pointer pointer))
-
 (define window* #f)
 (define renderer* #f)
 (define event* (make-c-bytevector 4000))
@@ -144,7 +135,7 @@
     (when (not spite-inited?) (error "Can not load images until spite is inited." path))
     (when (not (string? path)) (error "Load path must be string" path))
     (when (not (file-exists? path)) (error (string-append "Could not load image, no such file: " path)))
-    (make-image (sdl-img-load-texture renderer* (string->c-bytevector path)) path)))
+    (make-image (IMG_LoadTexture renderer* (string->c-bytevector path)) path)))
 
 (define draw-image
   (lambda (image x y width height)
diff --git a/retropikzel/spite.sld b/retropikzel/spite.sld
index d11f613..434ec2d 100644
--- a/retropikzel/spite.sld
+++ b/retropikzel/spite.sld
@@ -12,6 +12,7 @@
           (c2foreign-c sdl2 render)
           (c2foreign-c sdl2 events)
           (c2foreign-c sdl2 keyboard)
+          (c2foreign-c sdl2-image)
           (foreign c))
   (export spite-init
           spite-start