*

\ frames3.f 20161213
: frames ( #frames -- #frames ) ;
: fid 0 ; : frame_id fid @ ;
: tid 1 ; : timer_id tid @ ;
: seconds/frame ( #frames #seconds -- )
t swap / swap mod floor tid ! ;
: [ ( -- r g b ) 0 0 0 0 fid ! ;
: | ( -- ) frame_id 1 + fid ! ;
: ] ( -- ) ;
: paste ( p p' -- p" ) frame_id timer_id = * + ;
: frame1 ( r g b -- r' g b ) rot .8 paste -rot ;
: frame2 ( r g b -- r' g' b ) rot .75 paste rot .75 paste rot ;
: frame3 ( r g b -- r g' b ) swap .5 paste swap ;
: frame4 ( r g b -- r g' b' ) swap .6 paste swap .6 paste ;
: frame5 ( r g b -- r g b' ) .99 paste ;
: frame6 ( r g b -- r' g b' ) rot .8 paste -rot .8 paste ;
: demo 6 frames 1 seconds/frame
[ frame1 | frame2 | frame3 | frame4 | frame5 | frame6 ]
; demo

Based on: frames - 陳爽


comments powered by Disqus