[sc-dev] SF.net SVN: supercollider:[8249] trunk/build/SCClassLibrary/Common/Streams/ Patterns.sc

[jamshark70@xxxxxxxxxxxxxxxxxxxxx]

Revision: 8249
          http://supercollider.svn.sourceforge.net/supercollider/?rev=8249&view=rev
Author:   jamshark70
Date:     2008-12-23 04:03:00 +0000 (Tue, 23 Dec 2008)

Log Message:
-----------
Pseries and Pgeom now take functions for start and length (like most other patterns that use length.value etc. rather than just length)

Modified Paths:
--------------
    trunk/build/SCClassLibrary/Common/Streams/Patterns.sc

Modified: trunk/build/SCClassLibrary/Common/Streams/Patterns.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/Streams/Patterns.sc	2008-12-22 21:39:03 UTC (rev 8248)
+++ trunk/build/SCClassLibrary/Common/Streams/Patterns.sc	2008-12-23 04:03:00 UTC (rev 8249)
@@ -374,9 +374,10 @@
 
 	embedInStream { arg inval;
 		var outval, counter = 0;
-		var cur = start;
+		var cur = start.value;
+		var len = length.value;
 		var stepStr = step.asStream, stepVal;
-		while { counter < length } {
+		while { counter < len } {
 			stepVal = stepStr.next(inval);
 			if(stepVal.isNil) { ^inval };
 			outval = cur;
@@ -396,10 +397,11 @@
 	storeArgs { ^[start,grow,length] }
 	embedInStream { arg inval;
 		var outval, counter = 0;
-		var cur = start;
+		var cur = start.value;
+		var len = length.value;
 		var growStr = grow.asStream, growVal;
 		
-		while { counter < length } {
+		while { counter < len } {
 			growVal = growStr.next(inval);
 			if(growVal.isNil) { ^inval };
 			outval = cur;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

_______________________________________________
sc-dev mailing list

info (subscription, etc.): http://www.beast.bham.ac.uk/research/sc_mailing_lists.shtml
archive: https://listarc.bham.ac.uk/marchives/sc-dev/
search: https://listarc.bham.ac.uk/lists/sc-dev/search/