processing: at-fraction

db4
Eduardo Cavazos 2008-04-09 21:01:00 -05:00
parent 94863d980d
commit b4c9bbdf80
1 changed files with 8 additions and 2 deletions

View File

@ -8,7 +8,7 @@ USING: kernel namespaces threads combinators sequences arrays
combinators
combinators.lib
combinators.cleave
rewrite-closures fry accessors
rewrite-closures fry accessors newfx
processing.color
processing.gadget ;
@ -28,6 +28,12 @@ IN: processing
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: at-fraction ( seq fraction -- val ) over length 1- * nth-at ;
: at-fraction-of ( fraction seq -- val ) swap at-fraction ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
VAR: fill-color
VAR: stroke-color
@ -282,7 +288,7 @@ VAR: frame-rate-value
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
VAR: slate
! VAR: slate
VAR: loop-flag