12 lines
509 B
Factor
12 lines
509 B
Factor
|
! Small library for cross-platform continuous functions of real time
|
||
|
|
|
||
|
|
USING: kernel shuffle system locals
|
||
|
|
prettyprint math io namespaces threads calendar ;
|
||
|
|
IN: extra.animations
|
||
|
|
|
||
|
|
SYMBOL: last-loop
|
||
|
|
: reset-progress ( -- ) millis last-loop set ;
|
||
|
|
: progress ( -- progress ) millis last-loop get - reset-progress ;
|
||
|
|
: set-end ( duration -- end-time ) dt>milliseconds millis + ;
|
||
|
|
: loop ( quot end -- ) dup millis > [ [ dup call ] dip loop ] [ 2drop ] if ;
|
||
|
|
: animate ( quot duration -- ) reset-progress set-end loop ;
|