exile/v1/examples/pwm.ck

   1 // pulse width modulation (gewang / philipd)
   2
   3 // drive sinosc with blackhole
   4 sinosc modw => blackhole;
   5 0.125 => modw.freq;
   6
   7 // patch
   8 phasor x => triosc t => ADSR te => dac;
   9 40.0 => x.freq;
  10 2 => t.sync;  // sync to input
  11
  12 // modulate pulse width
  13 fun void pwm() {
  14     while( true ) {
  15         modw.last * .95 => t.width;
  16         1::ms => now;
  17     }
  18 }
  19
  20 // go forth...
  21 spork ~ pwm();
  22
  23 // go
  24 while( true ) {
  25     1 => te.keyOn; 125::ms => now;
  26     1 => te.keyOff; 75::ms => now;
  27 }