interpretor/faust-0.9.47mr3/tools/faust2pd/examples/faust/osc2.dsp

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