From aeb013df855052aec8a5199f82d9725be6d99c1b Mon Sep 17 00:00:00 2001 From: Boutade Date: Fri, 18 Oct 2019 12:08:52 -0500 Subject: checking for completes in a sequence --- tweening.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'tweening.lisp') diff --git a/tweening.lisp b/tweening.lisp index df9b398..4de5c21 100644 --- a/tweening.lisp +++ b/tweening.lisp @@ -25,6 +25,10 @@ (setf (loop-mode ,this-seq) ',loop-mode) ,this-seq)))) +(defun take-action (action &key (delay 20) (at 0)) + (let ((anim (pause delay at))) + (setf (on-complete anim) action) + anim)) (defun pausing (&key for at) "A light wrapper around PAUSE. Is aware of default parameters that may have -- cgit v1.2.3