(no commit message)

diff --git a/gacela.lisp b/gacela.lisp
index b7ad4e3d04214f56fc2ae62a51d70de5cb1adf4a..9a7e89b309a770da2f8bf0d4eaa6fb410d2b2462 100644 (file)
--- 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 adcef190979560d01d963b716212f2aea28858f6..f3733d8b6eec950e7bf31d173a999794aaacaf1f 100644 (file)
--- 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"))