Update of /project/corman-sdl/cvsroot/corman-sdl/ffi In directory common-lisp.net:/tmp/cvs-serv28576/ffi

Modified Files: sdl-util.lisp Log Message:

Date: Tue Apr 20 21:23:07 2004 Author: lcrook

Index: corman-sdl/ffi/sdl-util.lisp diff -u corman-sdl/ffi/sdl-util.lisp:1.1 corman-sdl/ffi/sdl-util.lisp:1.2 --- corman-sdl/ffi/sdl-util.lisp:1.1 Tue Apr 13 13:09:40 2004 +++ corman-sdl/ffi/sdl-util.lisp Tue Apr 20 21:23:07 2004 @@ -11,7 +11,7 @@ (in-package :sdl)

(export '(for while aif fformat to-radian to-degree calculate-timescale get-timescale display flip with-locksurface - DisplayFormat set-flags init-sdl set-videomode destruct-sdl geterror with-events with-init loadbmp + DisplayFormat set-flags init-sdl set-videomode new-screen destruct-sdl geterror with-events with-init loadbmp get-key new-event new-rect push-quitevent getvideoinfo listmodes videomodeok add-surface get-surface calculate-timescale init-success pixelformat fill-display clear-display blit-to-display blit-to-surface fill-surface update-display set-colorkey clear-colorkey is-key moveby-rectangle moveto-rectangle @@ -133,6 +133,14 @@ (if (ct:cpointer-null surface) (set-display nil) (set-display surface)))) + +(defun new-screen (width height &key (bpp 0) (flags sdl:SDL_SWSURFACE)) + "A synonym for set-videomode. + Sets the videomode. + Returns a new SDL_Surface if successful. + Returns NIL if failed. + Use the function (DISPLAY) to retrieve the SDL_Surface returned by NEW SCREEN." + (set-videomode width height :bpp bpp :flags flags))

(defun destruct-sdl () "Shuts down SDL using SDL_Quit"