I'm testing the following at the moment:
;; Use for SDL_SRC_ALPHA (enable/disable alpha-blending)
(sdl:source-surface-alpha-p SURFACE)
(setf (sdl:source-surface-alpha-p SURFACE) {T/NIL})
;; Use for SDL_SRC_COLOR_KEY (enable/disable color key)
(sdl:source-color-key-p SURFACE)
(setf (sdl:source-color-key-p SURFACE) {T/NIL})
;; Use to set the alpha value for the whole surface
(sdl:surface-alpha-p SURFACE)
(setf (sdl:surface-alpha-p SURFACE) {0-255})
;; Use to set the color key for the whole surface
(sdl:color-key-p SURFACE)
(setf (sdl:color-key-p SURFACE) #(0 0 0))
;; Use to set SDL_RLE_ACCEL on the surface (enable/disable RLE Accel)
(sdl:rle-accel-p SURFACE)
(setf (sdl:rle-accel-p SURFACE) {T/NIL})
;; Returns T/NIL if the surface is RGBA/RGB
(sdl:pixel-alpha-p SURFACE)
The existing functions SET-COLOR-KEY, and SET-ALPHA will remain to maintain
compatibilty with existing code.
- Luke
_______________________________________________
application-builder mailing list
[email protected]
http://www.lispniks.com/mailman/listinfo/application-builder
