From bb90258fa03aa649956bffcfc9b62ba35d3ec0bb Mon Sep 17 00:00:00 2001 From: jsancho Date: Thu, 3 Sep 2009 15:51:02 +0000 Subject: [PATCH] --- gacela.lisp | 26 -------------------------- gacela_SDL.lisp | 3 --- 2 files changed, 29 deletions(-) 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 ") (clines "#include ") (clines "#include ") -(clines "#include ") ;;; 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")) -- 2.39.2