Merge branch 'master' of https://scm.cri.ensmp.fr/git/Faustine
[Faustine.git] / 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)));