interpretor/faust-0.9.47mr3/examples/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("[unit:dB]", -70, 10));
  16 hmeter(x)               = attach(x, envelop(x) : hbargraph("[unit:dB]", -70, 10));
  17
  18 envelop                 = abs : max(db2linear(-70)) : linear2db : min(10)  : max ~ -(80.0/SR);
  19 null(x)         = attach(0,x);
  20 process                 = hgroup("8 channels dB meter", par(i,8, vgroup("%i", vmeter : null)));