Lispbuilder-SDL：转动曲面并保留颜色键（透明度）

Question

解释

我正在使用SDL在CL中编写turtle图形应用程序。我创建了一只乌龟的图画并将其保存在PNG中。 Snag No 1：SDL:LOAD-IMAGE与图像中的实际透明度无法正常工作。所以，我用白色着色透明部分并做了

(sdl:load-image
 (merge-pathnames #P"resources/turtle.png"
                  (asdf:system-source-directory :cl-turtle))
 :image-type :png
 :color-key sdl:*white*)

因此，:COLOR-KEY选项表示所有SDL:*WHITE*像素都是透明的。这样做：在黄色背景上绘制乌龟显示没有白色像素。

但是，我希望我的乌龟指向一个特定的方向，并在对TURN命令的响应中进行更改。我发现的一个建议就是将精灵用于所有可能的角度，但这对龟来说效果不好：方向太多了。

因此，我已加载LISPBUILDER-SDL-GFX，以使用SDL:ROTATE-SURFACE-XY。它确实可以将乌龟旋转得很好。我可以看到，SDL:*WHITE*被设置为颜色键，并且在旋转的表面中启用了颜色键控。但是，当我绘制它时，仍会呈现白色。有办法解决这个问题吗？

完整代码

(ql:quickload '(:lispbuilder-sdl :lispbuilder-sdl-image :lispbuilder-sdl-gfx :vom))

(defstruct turtle
  direction
  x
  y
  scale)

(defun draw-turtle (turtle image)
  ;; (format t "~&GFX? ~A~%" lispbuilder-sdl-cffi::*gfx-loaded-p*)
  (let ((img (sdl:rotate-surface-xy (mod (turtle-direction turtle) 360)
                                    :surface image)))
    (setf (sdl::color-key img) sdl:*white*)
    (setf (sdl:color-key-enabled-p img) t)
    (vom:info "Color key enabled (img)?: ~A" (sdl:color-key-enabled-p img))
    (vom:info "Color key is: ~A" (slot-value (sdl:color-key img) 'sdl::color-vector))
    (sdl:draw-surface-at-* img
                           (turtle-x turtle)
                           (turtle-y turtle))))

(defun turtle ()
  (sdl:with-init()
    (sdl:window 500 500
                :title-caption "Turtle")
    (setf (sdl:frame-rate) 1)
    (let ((turtle-image (sdl:load-image
                         (merge-pathnames #P"resources/turtle.png"
                                          (asdf:system-source-directory :cl-turtle))
                         :image-type :png
                         :color-key sdl:*white*))
          (turtle (make-turtle :direction 30 :x 200 :y 200 :scale 1)))
     (sdl:with-events ()
       (:quit-event () t)
       (:key-down-event () (sdl:push-quit-event))
       (:idle ()
              (sdl:clear-display sdl:*yellow*)
              (draw-turtle turtle turtle-image)
              (sdl:update-display))))))

(turtle)

日志（VOM）输出

  <INFO> [14:24:35] cl-turtle - Color key enabled (img)?: T
  <INFO> [14:24:35] cl-turtle - Color key is: #(255 255 255)

截图

系统信息

Ubuntu 16.04 with libSDL-1.2.so.0.11.4，libSDL_gfx.so.15.9.1和libSDL_image-1.2.so.0.8.4

SBCL 1.3.7（来自roswell sbcl-bin）

Answer 1

显然，调用sdl:load-and-convert-image代替sdl:load-image可以解决问题。

  

根据LOAD-IMAGE- *从文件名SOURCE加载图像，进行转换   使用SDL：CONVERT-SURFACE将此图像转换为当前显示格式。

     

支持的参数与LOAD-IMAGE和的参数相同   SDL：CONVERT-IMAGE