mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 10:31:34 -08:00
16 lines
613 B
Common Lisp
16 lines
613 B
Common Lisp
(in-package :pal)
|
|
|
|
(defun run-animation (&optional first)
|
|
(dolist (move-to (nthcdr (if first 1 0) *move-to-positions*))
|
|
(let ((target 0))
|
|
(dolist (xy move-to)
|
|
(incf target)
|
|
(let ((img (find-quick-item (format nil "img~D" target))))
|
|
(q> |x| img (* 31 (first xy)))
|
|
(q> |y| img (* 31 (second xy)))
|
|
(qsleep 0.05)))) ; delay between item start (sec)
|
|
(qsleep 4)) ; duration of animation + pause (sec)
|
|
(qsingle-shot 1500 'run-animation)) ; pause (msec)
|
|
|
|
(qlater (lambda () (run-animation t)))
|
|
|