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