/unmaintained/animations/animations.factor

http://github.com/abeaumont/factor · Factor · 17 lines · 12 code · 3 blank · 2 comment · 4 complexity · c7ad7945860e9115cebb8a6a224bb314 MD5 · raw file 

    

  1. ! Small library for cross-platform continuous functions of real time
    2. 

  2. 

  3. USING: kernel shuffle system locals
    4. 

  4. prettyprint math io namespaces threads calendar ;
    5. 

  5. IN: animations
    6. 

  6. 

  7. SYMBOL: last-loop
    8. 

  8. SYMBOL: sleep-period
    9. 

  9. 

  10. : reset-progress ( -- ) millis last-loop set ;
    11. 

  11. ! : my-progress ( -- progress ) millis 
    12. 

  12. : progress ( -- time ) millis last-loop get - reset-progress ;
    13. 

  13. : progress-peek ( -- progress ) millis last-loop get - ;
    14. 

  14. : set-end ( duration -- end-time ) duration>milliseconds millis + ;
    15. 

  15. : loop ( quot end -- ) dup millis > [ [ dup call ] dip loop ] [ 2drop ] if ; inline
    16. 

  16. : animate ( quot duration -- ) reset-progress set-end loop ; inline
    17. 

  17. : sample ( revs quot -- avg ) reset-progress dupd times progress swap / ; inline
    18.