exile/v1/examples/adsr.ck

   1 // run white noise through ADSR envelop
   2 noise n => ADSR e => dac;
   3
   4 // infinite time-loop
   5 while( true )
   6 {
   7     // key on - start attack
   8     1 => e.keyOn;
   9     // advance time by 800 ms
  10     800::ms => now;
  11     // key off - start release
  12     1 => e.keyOff;
  13     // advance time by 800 ms
  14     800::ms => now;
  15 }