default Env ReleaseNode and LoopNode

Author: Brian Sorahan

env.go

@@ -61,10 +61,18 @@ func (e *Env) defaults() {
 		}
 		e.Curvature = C(0)
 	}
+	if e.ReleaseNode == nil {
+		e.ReleaseNode = C(-99)
+	}
+	if e.LoopNode == nil {
+		e.LoopNode = C(-99)
+	}
 }
 
 // Inputs returns the array of inputs that defines the Env.
 func (e Env) Inputs() []Input {
+	(&e).defaults()
+
 	// This is how the inputs array is constructed:
 	// 0, 3, -99, -99, -- starting level, num segments, releaseNode, loopNode
 	// 1, 0.1, 5, 4, -- first segment: level, time, curve type, curvature
@@ -77,7 +85,6 @@ func (e Env) Inputs() []Input {
 	if lc != lt {
 		panic(fmt.Errorf("%d curve types != %d times", lc, lt))
 	}
-	(&e).defaults()
 
 	var (
 		numSegments = len(e.Levels) - 1

fixtures/THX.scsyndef

@@ -326,22 +326,22 @@ SynthDef(\MixTest, {
     ]));
 }).writeDefFile(File.getcwd);
 
-SynthDef(\THX1, {
-    var numVoices = 10;
-    
-    // Generate initial random fundamentals.
-    var fundamentals = {rrand(200.0, 400.0)}!numVoices;
-    
-    var sig = Mix({ |numTone|
-        var freq = fundamentals[numTone];
-        Pan2.ar(
-            Saw.ar(freq),
-            rrand(-0.5, 0.5),    // stereo placement of voices
-            numVoices.reciprocal // scale the amplitude of each voice
-        );
-    }!numVoices);
-
-    Out.ar(0, sig);
+SynthDef(\THX, {
+	var numVoices = 30;
+	var fundamentals = ({rrand(200.0, 400.0)}!numVoices).sort;
+	var finalPitches = (numVoices.collect({|nv| (nv/(numVoices/6)).round * 12; }) + 14.5).midicps;
+	var sweepEnv = EnvGen.kr(Env([0, 1], [13]));
+	var sig = Mix({ |numTone|
+		var initRandomFreq = fundamentals[numTone] + LFNoise2.kr(0.5, 3 * (numTone + 1));
+		var destinationFreq = finalPitches[numTone];
+		var freq = ((1 - sweepEnv) * initRandomFreq) + (sweepEnv * destinationFreq);
+		Pan2.ar(
+			BLowPass.ar(Saw.ar(freq), freq * 5, 0.5),
+			rrand(-0.5, 0.5),
+			numVoices.reciprocal //scale the amplitude of each voice
+		)
+	}!numVoices);
+	Out.ar(0, sig);
 }).writeDefFile(File.getcwd);
 
 0.exit;