#N canvas 356 235 812 494 10;
#X obj 111 76 t a a;
#X obj 303 20 inlet;
#X obj 303 46 list trim;
#X obj 478 230 pack 0 0;
#X obj 453 306 outlet;
#X obj 111 354 outlet;
#X obj 453 279 list;
#X obj 453 255 b;
#N canvas 0 0 450 300 minmax 0;
#X obj 122 168 min;
#X obj 157 168 f;
#X obj 299 169 f;
#X obj 266 170 max;
#X obj 122 141 t a a;
#X obj 284 116 * -1;
#X obj 122 69 inlet;
#X obj 284 66 inlet;
#X obj 122 232 outlet;
#X obj 266 234 outlet;
#X msg 284 92 1e+30;
#X obj 190 72 inlet;
#X obj 190 98 unpack 0 0;
#X connect 0 0 1 0;
#X connect 0 0 8 0;
#X connect 1 0 0 1;
#X connect 2 0 3 1;
#X connect 3 0 2 0;
#X connect 3 0 9 0;
#X connect 4 0 0 0;
#X connect 4 1 3 0;
#X connect 5 0 3 1;
#X connect 6 0 4 0;
#X connect 7 0 10 0;
#X connect 10 0 5 0;
#X connect 10 0 0 1;
#X connect 11 0 12 0;
#X connect 12 0 0 1;
#X connect 12 0 8 0;
#X connect 12 1 3 1;
#X connect 12 1 9 0;
#X restore 143 127 pd minmax;
#X obj 143 100 spigot 1;
#N canvas 0 0 695 291 args 0;
#X obj 102 121 f \$1;
#X obj 69 73 select 0 1;
#N canvas 0 0 715 450 check-arg1 0;
#X obj 179 184 makefilename $%d-EMPTY;
#X obj 52 185 symbol \$1-EMPTY;
#X msg 69 156 bang;
#X obj 52 217 select DUMMY;
#X obj 52 39 loadbang;
#X obj 52 62 t b b;
#X obj 179 157 1;
#X obj 52 294 outlet;
#X text 182 85 Using an idiom by IOhannes;
#X msg 133 250 1;
#X msg 52 246 0;
#X text 182 247 Output 0 if no \$1 argument present \, and 1 if \$1
is present even if it's 0!;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 10 0;
#X connect 3 1 9 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X connect 5 1 6 0;
#X connect 6 0 0 0;
#X connect 9 0 7 0;
#X connect 10 0 7 0;
#X restore 69 47 pd check-arg1;
#X obj 222 73 select 0 1;
#N canvas 0 0 715 450 check-arg2 0;
#X obj 179 184 makefilename $%d-EMPTY;
#X msg 69 156 bang;
#X obj 52 217 select DUMMY;
#X obj 52 39 loadbang;
#X obj 52 62 t b b;
#X obj 52 294 outlet;
#X text 182 85 Using an idiom by IOhannes;
#X msg 133 250 1;
#X msg 52 246 0;
#X text 182 247 Output 0 if no \$1 argument present \, and 1 if \$1
is present even if it's 0!;
#X obj 179 157 2;
#X obj 51 185 symbol \$2-EMPTY;
#X connect 0 0 2 1;
#X connect 1 0 11 0;
#X connect 2 0 8 0;
#X connect 2 1 7 0;
#X connect 3 0 4 0;
#X connect 4 0 11 0;
#X connect 4 1 10 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 10 0 0 0;
#X connect 11 0 2 0;
#X restore 222 46 pd check-arg2;
#X obj 255 120 f \$2;
#X msg 69 120 0;
#X msg 222 120 1;
#X obj 69 153 f;
#X obj 222 147 f;
#X obj 222 191 outlet;
#X obj 69 187 outlet;
#X obj 354 71 select 0 1;
#X msg 354 118 1;
#X obj 354 189 outlet;
#N canvas 0 0 715 450 check-arg3 0;
#X obj 179 184 makefilename $%d-EMPTY;
#X msg 69 156 bang;
#X obj 52 217 select DUMMY;
#X obj 52 39 loadbang;
#X obj 52 62 t b b;
#X obj 52 294 outlet;
#X text 182 85 Using an idiom by IOhannes;
#X msg 133 250 1;
#X msg 52 246 0;
#X text 182 247 Output 0 if no \$1 argument present \, and 1 if \$1
is present even if it's 0!;
#X obj 179 157 3;
#X obj 51 185 symbol \$3-EMPTY;
#X connect 0 0 2 1;
#X connect 1 0 11 0;
#X connect 2 0 8 0;
#X connect 2 1 7 0;
#X connect 3 0 4 0;
#X connect 4 0 11 0;
#X connect 4 1 10 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 10 0 0 0;
#X connect 11 0 2 0;
#X restore 354 44 pd check-arg3;
#X obj 387 118 list append \$3;
#X connect 0 0 8 0;
#X connect 1 0 6 0;
#X connect 1 1 0 0;
#X connect 2 0 1 0;
#X connect 3 0 7 0;
#X connect 3 1 5 0;
#X connect 4 0 3 0;
#X connect 5 0 9 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 10 0;
#X connect 12 0 13 0;
#X connect 12 1 16 0;
#X connect 13 0 14 0;
#X connect 15 0 12 0;
#X connect 16 0 14 0;
#X restore 193 248 pd args;
#X obj 111 281 m_scale 0 0 \$1 \$2 \$3;
#X obj 111 34 inlet;
#N canvas 0 0 450 300 output 0;
#X obj 76 109 list split 2;
#X obj 76 133 unpack 0 0;
#X obj 156 134 route bang;
#X obj 76 169 outlet;
#X obj 143 170 outlet;
#X obj 223 173 outlet;
#X obj 76 51 inlet;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 3 0;
#X connect 1 1 4 0;
#X connect 2 1 5 0;
#X connect 6 0 0 0;
#X restore 253 248 pd output;
#X obj 303 68 route input reset output dump float;
#N canvas 172 83 586 377 LICENSE-GPL 0;
#X text 57 88 This program is free software: you can redistribute it
and/or modify it under the terms of the GNU General Public License
as published by the Free Software Foundation \, either version 3 of
the License \, or (at your option) any later version.;
#X text 58 168 This program is distributed in the hope that it will
be useful \, but WITHOUT ANY WARRANTY \; without even the implied warranty
of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.;
#X text 57 261 You should have received a copy of the GNU General Public
License along with this program. If not \, see <http://www.gnu.org/licenses/>.
;
#X text 61 54 Copyright (C) 2009 \, Reality Jockey Ltd.;
#X text 60 325 See the file LICENSE.txt for the full license text.
;
#X restore 502 19 pd LICENSE-GPL;
#X connect 0 0 11 0;
#X connect 0 1 9 0;
#X connect 1 0 2 0;
#X connect 2 0 14 0;
#X connect 3 0 6 1;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X connect 8 0 3 0;
#X connect 8 0 11 1;
#X connect 8 1 3 1;
#X connect 8 1 11 2;
#X connect 9 0 8 0;
#X connect 10 0 11 3;
#X connect 10 1 11 4;
#X connect 10 2 11 5;
#X connect 11 0 5 0;
#X connect 12 0 0 0;
#X connect 13 0 11 3;
#X connect 13 1 11 4;
#X connect 13 2 11 5;
#X connect 14 0 8 1;
#X connect 14 1 8 2;
#X connect 14 2 13 0;
#X connect 14 3 7 0;
#X connect 14 4 9 1;
