interpretor/faust-0.9.47mr3/examples/osc.dsp

   1 declare name            "osc";
   2 declare version         "1.0";
   3 declare author          "Grame";
   4 declare license         "BSD";
   5 declare copyright       "(c)GRAME 2009";
   6
   7 //-----------------------------------------------
   8 //                      Sinusoidal Oscillator
   9 //-----------------------------------------------
  10
  11 import("music.lib");
  12
  13 smooth(c)               = *(1-c) : +~*(c);
  14 vol                     = hslider("volume [unit:dB]", 0, -96, 0, 0.1) : db2linear : smooth(0.999) ;
  15 freq                    = hslider("freq [unit:Hz]", 1000, 20, 24000, 1);
  16
  17
  18 process                 = vgroup("Oscillator", osc(freq) * vol);
  19