diff --git a/extra/processing/processing.factor b/extra/processing/processing.factor index 02a8325663..0f21634dc8 100644 --- a/extra/processing/processing.factor +++ b/extra/processing/processing.factor @@ -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