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

now with progress-peek

db4
Rex Ford 2008-08-12 00:28:22 -04:00
parent 6060b12ccb
commit bd168d06f2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/animations/animations.factor
View File

@ -8,7 +8,9 @@ SYMBOL: last-loop
SYMBOL: sleep-period SYMBOL: sleep-period
: reset-progress ( -- ) millis last-loop set ; : reset-progress ( -- ) millis last-loop set ;
! : my-progress ( -- progress ) millis
: progress ( -- progress ) millis last-loop get - reset-progress ; : progress ( -- progress ) millis last-loop get - reset-progress ;
: progress-peek ( -- progress ) millis last-loop get - ;
: 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 ; inline : loop ( quot end -- ) dup millis > [ [ dup call ] dip loop ] [ 2drop ] if ; inline
: animate ( quot duration -- ) reset-progress set-end loop ; inline : animate ( quot duration -- ) reset-progress set-end loop ; inline