iemabs/default.pd


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#N canvas 409 285 348 281 10;

#X obj 17 142 f \$1;

#X text 10 210 (c) musil@iem.kug.ac.at;

#X text 51 223 IEM KUG;

#X text 26 235 graz \, austria 2001;

#X obj 17 50 inlet;

#X obj 17 183 outlet;

#X text 6 4 default;

#X obj 17 115 sel 0 1;

#X obj 17 96 != 0;

#X obj 17 71 t f f;

#X obj 71 144 f;

#X text 66 5 if (inlet == 0);

#X text 80 19 then: output = 1.argument;

#X text 63 32 else: output = inlet;

#X connect 0 0 5 0;

#X connect 4 0 9 0;

#X connect 7 0 0 0;

#X connect 7 1 10 0;

#X connect 8 0 7 0;

#X connect 9 0 8 0;

#X connect 9 1 10 1;

#X connect 10 0 5 0;