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

   1 declare name            "vumeter";
   2 declare version         "1.0";
   3 declare author          "Grame";
   4 declare license         "BSD";
   5 declare copyright       "(c)GRAME 2006";
   6
   7 //-------------------------------------------------
   8 // Simple vumeter
   9 //-------------------------------------------------
  10
  11 import("math.lib");
  12 import("music.lib");
  13
  14
  15 vmeter(x)               = attach(x, envelop(x) : vbargraph("[2][unit:dB]", -70, +5));
  16 hmeter(x)               = attach(x, envelop(x) : hbargraph("[2][unit:dB]", -70, +5));
  17
  18 envelop         = abs : max ~ -(1.0/SR) : max(db2linear(-70)) : linear2db;
  19
  20 process                 = vmeter;