X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela.scm;h=54b705fcf4f0553840f7fbb7095448525c61fe59;hb=adc4651eb62039c950d760c5bfc1eaee774ce4a5;hp=26a1e9cf93bd1935d17d289c78e090f0f461b308;hpb=4ae3375d30bc921cb397feef4024c84ef29f9b74;p=gacela.git

diff --git a/src/gacela.scm b/src/gacela.scm
index 26a1e9c..54b705f 100644
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -139,22 +139,6 @@
 	  (set! current-color (list red green blue alpha))
 	  (glColor4f red green blue alpha))))
 
-(define* (load-image image-file #:key transparent-color)
-  (init-video-mode)
-  (let ((loaded-image (IMG_Load image-file)))
-    (cond ((= loaded-image 0) #f)
-	  (else (let ((optimized-image (SDL_DisplayFormat loaded-image)))
-		  (SDL_FreeSurface loaded-image)
-		  (cond ((= optimized-image 0) #f)
-			((not transparent-color) optimized-image)
-			(else (SDL_SetColorKey optimized-image
-					       SDL_SRCCOLORKEY
-					       (SDL_MapRGB (surface-format optimized-image)
-							   (car transparent-color)
-							   (cadr transparent-color)
-							   (caddr transparent-color)))
-			      optimized-image)))))))
-
 
 ;;; Audio Subsystem