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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/processing/processing.factor
View File

@ -8,7 +8,7 @@ USING: kernel namespaces threads combinators sequences arrays
combinators combinators
combinators.lib combinators.lib
combinators.cleave combinators.cleave
rewrite-closures fry accessors rewrite-closures fry accessors newfx
processing.color processing.color
processing.gadget ; 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: fill-color
VAR: stroke-color VAR: stroke-color
@ -282,7 +288,7 @@ VAR: frame-rate-value
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
VAR: slate ! VAR: slate
VAR: loop-flag VAR: loop-flag