| don't mean to turn this thread into a nostalgia show but these bouncing objects actually got me waiting all day to get back to learning sc code... timeend timbanalizing g g g g g ling ( SynthDef(\lightbulbs, { arg freqs=#[ 4244, 5034, 4929, 2652 ], amps=#[ 0.663, 0.238, 0.675, 0.575 ], rings = #[ 0.108, 0.045, 0.058, 0.0319]; e = Env.new([1, 1, 0],[3, 0.001]); // 3 second cut off envelope to end sound Out.ar( 0, Pan2.ar( // resonant filter bank simulates resonant modes of bouncing objects Klank.ar( `[ freqs, // resonant freqs amps, // amplitudes rings // ring times ], // decays excite filter bank Decay.ar( // each impulse triggers a decay Impulse.ar( // impulses trigger decay envelope XLine.kr(5 + Rand(-2,2), 600, 4), // accellerating frequency 0, XLine.kr(0.09, 0.000009, 4) // decaying impulse amplitude ), 0.001 // decay time - very short ) ), Rand(-1, 1) // place each bouncer at a random position in the stereo field ) * // multiply by an envelope is necessary to make the sound end EnvGen.kr(e, doneAction:2) ) }).send(s); { loop { Synth(\lightbulbs,[ \pan, 1.0.rand2 ]).setn( \freqs, Array.fill(4, { 400 + 8000.0.rand }), \amps, Array.fill(4, { 1.0.rand }), \rings, Array.fill(4, { 0.01 + 0.1.rand }) ); (0.6+0.6.rand).wait } }.fork ) On 8 Jun 2006, at 22:31, chris clepper wrote: The old James McC 'space music' patches always amused me. Instant Tangerine Dream record. Do those exist for SCServer? |