processing: at-fraction
parent
94863d980d
commit
b4c9bbdf80
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue