Merge branch 'master' of https://scm.cri.ensmp.fr/git/Faustine
[Faustine.git] / interpretor / faust-0.9.47mr3 / tools / faust2pd / examples / faust / mixer.dsp
1 declare name "mixer";
2 declare version "1.0";
3 declare author "Grame";
4 declare license "BSD";
5 declare copyright "(c)GRAME 2006";
6
7 //-------------------------------------------------
8 // Simple 8x2 mixer
9 //-------------------------------------------------
10
11 vol = component("volume.dsp");
12 pan = component("panpot.dsp");
13 vumeter = component("vumeter.dsp").vmeter;
14 mute = *(1 - checkbox("mute"));
15
16 voice(v) = vgroup("voice %v", mute : hgroup("", vol : vumeter) : pan);
17 stereo = hgroup("stereo out", vol, vol);
18
19 process = hgroup("mixer", par(i, 8, voice(i)) :> stereo);
20
21