interpretor/faust-0.9.47mr3/tools/faust2pd/examples/faust/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
  13
  14 vmeter(x)               = attach(x, envelop(x) : vbargraph("meter", 0, 1));
  15 hmeter(x)               = attach(x, envelop(x) : hbargraph("meter", 0, 1));
  16
  17 envelop                 = abs : min(0.99) : max ~ -(1.0/SR);
  18
  19 process                 = vgroup("vu meter", vmeter);