Hello.
I am interested if there are yet any plans to make
lispbuilder-sdl(-image) work on embeddable common lisp. It compiles
well, without any error - at least on a comparably new
ECL-cvs-version, but load-image returns nil for whatever reason, and
some other things are not working.
I use cl-png with (0.2, the version without external zlib, which runs
on pure common lisp, bound to the namespace png) in the following
code:
(defun show-png-image (file)
(sdl:with-init ()
(sdl:window 100 100 :title-caption "PNG-Test" :icon-caption "PNG-Test")
(let* ((img-code (png:decode-file file))
(height (array-dimension img-code 0))
(width (array-dimension img-code 1)))
(dotimes (i width)
(dotimes (j height)
(let ((color (aref img-code j i)))
(sdl:draw-pixel-* i j :color (sdl:color :r (ldb (byte 8 0) color)
:g (ldb (byte 8 8) color)
:b (- 255 (ldb (byte 8 16)
color))
:a (- 255 (ldb (byte 8 24)
color))))
(sdl:update-display)))))
(sdl:with-events () (:quit-event () t))))
I know I could place the update-display-command at the end, but I like
to see the image generating ^^.
However, this works well: When doing (show-png-image
#p"/tmp/hunchentoot1.png") the image is shown - I put a screenshot on
http://nasobem.i-networx.de/hunch.png - it has wrong colors, because
my code is for 32-bit-png-images, and the colors are set wrong, but
with the colors set correctly, the image would be shown.
I dont know, why load-image does not work in both, lispbuilder-sdl and
lispbuilder-sdl-image - it just returns nil.
So what I wanted to ask is whether ecl-support is planned (i.e.
somebody is working on it or planning to work on it soon) or not (then
I would have to write bindings for ECL myself, or trying to patch
lispbuilder-sdl).
_______________________________________________
application-builder mailing list
application-builder@lispniks.com
http://www.lispniks.com/mailman/listinfo/application-builder
