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

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