On Fri, 18 Jul 2008 16:00:39 -0700, css <[EMAIL PROTECTED]> wrote:
>
> (defun load-image-from-byte-sequence (byteseq)
> (make-instance 'sdl:surface
> :surface
> (sdl-cffi::sdl-load-bmp-rw
> (sdl-cffi::with-foreign-string (str byteseq)
> (sdl-cffi::sdl-rw-from-mem str (length byteseq)))
> 1)))
Try the following:
(defun load-image-from-byte-sequence (array)
(cffi:with-foreign-object (mem-array :unsigned-char (length array))
(loop for i from 0 below (length array) do
(setf (cffi:mem-aref mem-array :unsigned-char i) (aref array i)))
(make-instance 'surface :surface (sdl-cffi::sdl-load-bmp-rw
(sdl-cffi::sdl-rw-from-mem mem-array (length array)) 1))))
- Luke
_______________________________________________
application-builder mailing list
[email protected]
http://www.lispniks.com/mailman/listinfo/application-builder
