(use-package :chess-trace)

(defun move-rooks ()
  (let ((cb (make-chess-board :blocks 5)))
    (dotimes (n (blocks cb))
      (start-frame cb)
      (when (> n 0)
        (dotimes (m n)
              (put-piece-xy cb :name :dot :x 0 :y m)
              (put-piece-xy cb :name :dot :x m :y 0)))
      (put-piece-xy cb :name :rook :x 0 :y n :color :black)
      (put-piece-xy cb :name :rook :x n :y 0 :color :black)
      (end-frame cb :delay-time 20))
    (add-frame-delay 300 cb)
    (output-board cb #p"rooks.gif")))