From b4c9bbdf805bc79256bc6f21f47d07cac0829251 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 9 Apr 2008 21:01:00 -0500
Subject: [PATCH] processing: at-fraction
---
extra/processing/processing.factor | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
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