minor additions
parent
6df077805d
commit
6060b12ccb
|
@ -2,11 +2,14 @@
|
|||
|
||||
USING: kernel shuffle system locals
|
||||
prettyprint math io namespaces threads calendar ;
|
||||
IN: extra.animations
|
||||
IN: animations
|
||||
|
||||
SYMBOL: last-loop
|
||||
SYMBOL: sleep-period
|
||||
|
||||
: 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 ;
|
||||
: loop ( quot end -- ) dup millis > [ [ dup call ] dip loop ] [ 2drop ] if ; inline
|
||||
: animate ( quot duration -- ) reset-progress set-end loop ; inline
|
||||
: sample ( revs quot -- avg ) reset-progress dupd times progress swap / ; inline
|
Loading…
Reference in New Issue