Elliott Slaughter <[EMAIL PROTECTED]> writes:

> I tried implementing the using read-point to set the color-key of an image,
> and it didn't work for some reason. Here is the code I used:
> (print (sdl:set-color-key
>            (print (sdl:read-point (print (sdl:point :x (car color-key) 
>                                                     :y (cadr color-key)))
>                                   :surface display))
>             :surface display :rle-accel t))

That is a bug in lispbuilder which I have now fixed in SVN.

I have also added a new :KEY-COLOR-FROM keyword to LOAD-IMAGE that will set the 
key color to the color of the pixel at the x/y coords.

(sdl:load-image "lisp.bmp" :key-color-at (sdl:point :x 0 :y 0))

You can take a look at an example of this in "examples/bmp-sample.lisp"

- Luke

_______________________________________________
application-builder mailing list
application-builder@lispniks.com
http://www.lispniks.com/mailman/listinfo/application-builder

Reply via email to