Hi, I was chasing a bug recently, and in the process found some odd behavior in sdl-gfx:zoom-surface. Using the attached gif image (a solid green square), only the non-zoomed image shows up (the other one gets a color-key set for some reason). Oddly enough, both zoomed and normal work fine with the attached bmp image.
;; One gif image is missing:
(sdl:with-init ()
(sdl:window 200 200)
(let ((normal (sdl:convert-to-display-format
:surface (sdl-image:load-image "square.gif")))
(zoom (sdl:convert-to-display-format
:surface (sdl-gfx:zoom-surface
2 2 :surface (sdl-image:load-image "square.gif")))))
(sdl:with-events ()
(:quit-event () t)
(:idle
(sdl:fill-surface sdl:*black*)
(sdl:draw-surface-at-* normal 0 0)
(sdl:draw-surface-at-* zoom 100 100)
(sdl:update-display)))))
;; But the bmp is fine in both cases:
(sdl:with-init ()
(sdl:window 200 200)
(let ((normal (sdl:convert-to-display-format
:surface (sdl-image:load-image "square.bmp")))
(zoom (sdl:convert-to-display-format
:surface (sdl-gfx:zoom-surface
2 2 :surface (sdl-image:load-image "square.bmp")))))
(sdl:with-events ()
(:quit-event () t)
(:idle
(sdl:fill-surface sdl:*black*)
(sdl:draw-surface-at-* normal 0 0)
(sdl:draw-surface-at-* zoom 100 100)
(sdl:update-display)))))
--
Elliott Slaughter
"Don't worry about what anybody else is going to do. The best way to predict
the future is to invent it." - Alan Kay
<<attachment: square.gif>>
<<attachment: square.bmp>>
_______________________________________________ application-builder mailing list [email protected] http://www.lispniks.com/mailman/listinfo/application-builder
