如何使用core.async防止重叠动画？

Question

我有这个循环处理角色的动画 - set-image!只需要一个键并显示适当的图像.

(defn main-animation-loop []
  (go (while true
        (set-image! :normal)
        (<! (timeout 8000))
        (set-image! :blink)
        (<! (timeout 150)))))

角色每隔一段时间就需要做一些特殊的动作.这应该能够中断主动画:

(defn dance! []
  (go (set-image! :look-left)
      (<! (timeout 1000))
      (set-image! :look-right)
      (<! (timeout 1000))
      (set-image! :wave)
      (<! (timeout 2000))))

什么是在舞蹈例程发生时暂停主动画的好方法？

Answer 1

在CSP样式编程中,将控制通道传递给事件循环是很常见的,因此您至少可以告诉他们何时停止.在这种情况下,如果有一个控制通道去了main-animation-loop,你给了一个副本dance!,那么舞蹈可以告诉main-animation-loop暂停和取消适当的.或者停止它然后再次启动它(通过相同的控制通道,以防其他人使用它).

我使用这样的模式来检查每次事件循环周围的消息:

(go (while (not= control-chan
                 (second (async/alts! [control-chan (async/timeout arg)])))
           (do-stuff-here))

这将检查是否是导致中断的超时或控制通道.

(defn main-animation-loop [control-chan]
  (go (while (not= control-chan
                 (second (async/alts! [control-chan (async/timeout 150)])))
        (set-image! :normal)
        (<! (timeout 8000))
        (set-image! :blink))))

(defn dance! [control-chan]
  (go (!> control-chan :stop)
      (set-image! :look-left)
      (<! (timeout 1000))
      (set-image! :look-right)
      (<! (timeout 1000))
      (set-image! :wave)
      (<! (timeout 2000))
      (main-animation-loop control-chan)))

通过将相同的通道传递给两个功能,您可以允许它们相互通信.main-animation-loop只要收到的所有消息都来自超时通道,它就会保持循环.一旦它看到其中一个来自控制通道而不是超时,它就会停止.这允许dance!通过向控制信道发送任何消息来告诉它停止.在类似的代码中,我经常让主事件循环检查消息的内容,并且不仅仅是停止,尽管在这种情况下停止是足够的,因为dance!可以简单地再次启动事件循环.