From: jsancho <devnull@localhost>
Date: Thu, 3 Sep 2009 15:51:02 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=bb90258fa03aa649956bffcfc9b62ba35d3ec0bb;hp=b56cc2e7d421a067fbdcd3a542908fe0617352b8;p=gacela.git

---

diff --git a/gacela.lisp b/gacela.lisp
index b7ad4e3..9a7e89b 100644
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -184,32 +184,6 @@
   (flip))
 
 
-(defun filled-circle (radius &optional (color '(:red 255 :green 255 :blue 255)))
-  (init-video-mode)
-  (let ((new-surface (create-surface (1+ (* radius 2)) (1+ (* radius 2)))))
-    (sge_FilledCircle (surface-address new-surface)
-		      radius radius radius
-		      (getf color :red)
-		      (getf color :green)
-		      (getf color :blue))
-    (setf (surface-shape new-surface)
-	  `((,radius ,radius) ,radius))
-    new-surface))
-
-
-(defun filled-rect (width height &optional (color '(:red 255 :green 255 :blue 255)))
-  (init-video-mode)
-  (let ((new-surface (create-surface width height)))
-    (sge_FilledRect (surface-address new-surface)
-		    0 0 width height
-		    (getf color :red)
-		    (getf color :green)
-		    (getf color :blue))
-    (setf (surface-shape new-surface)
-	  (make-rectangle 0 0 width height))
-    new-surface))
-
-
 ;;; TTF Subsystem
 (defstruct font address)
 
diff --git a/gacela_SDL.lisp b/gacela_SDL.lisp
index adcef19..f3733d8 100644
--- a/gacela_SDL.lisp
+++ b/gacela_SDL.lisp
@@ -21,7 +21,6 @@
 (clines "#include <SDL/SDL_image.h>")
 (clines "#include <SDL/SDL_ttf.h>")
 (clines "#include <SDL/SDL_mixer.h>")
-(clines "#include <SDL/sge.h>")
 
 ;;; These are the flags which may be passed to SDL_Init()
 (defconstant SDL_INIT_TIMER		#x00000001)
@@ -172,8 +171,6 @@
 ;(defentry Mix_FreeMusic (int) (void "gacela_Mix_FreeMusic"))
 ;(defentry Mix_FreeChunk (int) (void "gacela_Mix_FreeChunk"))
 ;(defentry Mix_CloseAudio () (void "gacela_Mix_CloseAudio"))
-;(defentry sge_FilledCircle (int int int int int int int) (void "gacela_sge_FilledCircle"))
-;(defentry sge_FilledRect (int int int int int int int int) (void "gacela_sge_FilledRect"))
 ;(defentry free (int) (void "gacela_free"))
 (defentry SDL_GL_SwapBuffers () (void "gacela_SDL_GL_SwapBuffers"))
 (defentry SDL_EnableKeyRepeat (int int) (int "gacela_SDL_EnableKeyRepeat"))