From bd168d06f258860a2d8c074d1e0335b02d6e1ec5 Mon Sep 17 00:00:00 2001 From: Rex Ford Date: Tue, 12 Aug 2008 00:28:22 -0400 Subject: [PATCH] now with progress-peek --- extra/animations/animations.factor | 2 ++ 1 file changed, 2 insertions(+) diff --git a/extra/animations/animations.factor b/extra/animations/animations.factor index db5b3448c1..803536a51c 100644 --- a/extra/animations/animations.factor +++ b/extra/animations/animations.factor @@ -8,7 +8,9 @@ SYMBOL: last-loop SYMBOL: sleep-period : reset-progress ( -- ) millis last-loop set ; +! : my-progress ( -- progress ) millis : progress ( -- progress ) millis last-loop get - reset-progress ; +: progress-peek ( -- progress ) millis last-loop get - ; : set-end ( duration -- end-time ) dt>milliseconds millis + ; : loop ( quot end -- ) dup millis > [ [ dup call ] dip loop ] [ 2drop ] if ; inline : animate ( quot duration -- ) reset-progress set-end loop ; inline