steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

minor additions

db4
Rex Ford 2008-08-10 18:22:32 -05:00
parent 6df077805d
commit 6060b12ccb
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/animations/animations.factor
View File

@ -2,11 +2,14 @@
USING: kernel shuffle system locals USING: kernel shuffle system locals
prettyprint math io namespaces threads calendar ; prettyprint math io namespaces threads calendar ;
IN: extra.animations IN: animations
SYMBOL: last-loop SYMBOL: last-loop
SYMBOL: sleep-period
: reset-progress ( -- ) millis last-loop set ; : reset-progress ( -- ) millis last-loop set ;
: progress ( -- progress ) millis last-loop get - reset-progress ; : progress ( -- progress ) millis last-loop get - reset-progress ;
: set-end ( duration -- end-time ) dt>milliseconds millis + ; : set-end ( duration -- end-time ) dt>milliseconds millis + ;
: loop ( quot end -- ) dup millis > [ [ dup call ] dip loop ] [ 2drop ] if ; : loop ( quot end -- ) dup millis > [ [ dup call ] dip loop ] [ 2drop ] if ; inline
: animate ( quot duration -- ) reset-progress set-end loop ; : animate ( quot duration -- ) reset-progress set-end loop ; inline
: sample ( revs quot -- avg ) reset-progress dupd times progress swap / ; inline