Bugfix in Makefile.
[Faustine.git] / 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;