This looks good to me. I'm not quite ready to test that out but I will
soon.
On Mon, 2008-08-11 at 21:06 +0000, Luke Crook wrote:
> 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
_______________________________________________
application-builder mailing list
[email protected]
http://www.lispniks.com/mailman/listinfo/application-builder
