From: jsancho <devnull@localhost>
Date: Sat, 18 Jun 2011 07:57:33 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=f97bfd3b82bd6c337c85468a8b5e2c14ef8d63ab;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