#N canvas 0 0 618 425 10;
#X text 14 13 Extending PureData with Haskell;
#X text 14 26 AngloHaskell 2007 Presentation;
#X text 14 39 Claude Heiland-Allen <claudiusmaximus@goto10.org>;
#X obj 60 388 dac~;
#X obj 70 365 *~ 0;
#X obj 14 98 tgl 15 0 empty empty empty 17 7 0 10 -260818 -1 -1 1 1
;
#X msg 14 120 \; pd dsp \$1;
#X obj 52 200 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -241291
-1 -1 6600 1;
#X obj 110 343 osc~;
#X obj 200 343 osc~;
#X obj 110 287 mtof~;
#X obj 201 320 *~;
#X obj 110 195 metro 200;
#X obj 110 264 vline~;
#X obj 123 319 *~;
#X obj 110 97 bng 15 250 50 0 empty empty empty 17 7 0 10 -24198 -1
-1;
#X msg 155 169 0;
#X obj 287 340 vline~;
#X msg 287 318 1 \, 0 25600;
#X obj 155 148 delay 26900;
#X obj 110 365 expr~ tanh(3*($v1*$v3+(1-$v3)*$v2))*$v4;
#X obj 377 341 vline~;
#X msg 377 318 1 \, 0 3200 26800;
#N canvas 52 86 450 300 \$0-sequencer 0;
#X obj 240 233 + 2;
#X obj 304 205 mod 8;
#X obj 304 185 + 3;
#X obj 240 184 f 0;
#X obj 240 205 t f f;
#X msg 49 219 \$1 400;
#X obj 49 129 f 0;
#X obj 112 126 + 1;
#X obj 112 151 mod 64;
#X obj 49 150 t f f;
#X obj 49 172 select 0 32 48;
#X msg 49 196 48;
#X msg 80 196 51;
#X msg 111 196 46;
#X obj 49 51 t b b;
#X msg 256 162 0;
#X msg 65 91 0;
#X msg 314 52 24 3200;
#X obj 49 18 inlet;
#X obj 157 20 inlet;
#X obj 314 21 inlet;
#X msg 157 216 48;
#X obj 49 274 outlet;
#X obj 240 272 outlet;
#X text 100 273 main note;
#X text 90 18 step;
#X text 201 20 start;
#X text 357 20 end;
#X text 289 271 arpeggios;
#X connect 0 0 23 0;
#X connect 1 0 3 1;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 4 1 2 0;
#X connect 5 0 22 0;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
#X connect 8 0 6 1;
#X connect 9 0 10 0;
#X connect 9 1 7 0;
#X connect 10 0 11 0;
#X connect 10 1 12 0;
#X connect 10 2 13 0;
#X connect 11 0 5 0;
#X connect 12 0 5 0;
#X connect 13 0 5 0;
#X connect 14 0 6 0;
#X connect 14 1 3 0;
#X connect 15 0 3 1;
#X connect 16 0 6 1;
#X connect 17 0 22 0;
#X connect 18 0 14 0;
#X connect 19 0 16 0;
#X connect 19 0 15 0;
#X connect 19 0 21 0;
#X connect 20 0 17 0;
#X connect 21 0 22 0;
#X restore 110 235 pd \$0-sequencer;
#X obj 110 120 t b b b b b;
#X text 14 69 06: Musical Interlude;
#X text 279 145 ``pd'' creates a ``subpatch'' that lets you;
#X text 280 158 structure the main patch in a nicer way.;
#X text 384 240 ``thick'' cords are signals;
#X connect 4 0 3 0;
#X connect 4 0 3 1;
#X connect 5 0 6 0;
#X connect 7 0 4 1;
#X connect 8 0 20 0;
#X connect 9 0 14 1;
#X connect 9 0 20 1;
#X connect 10 0 11 0;
#X connect 10 0 8 0;
#X connect 10 0 14 0;
#X connect 11 0 9 0;
#X connect 12 0 23 0;
#X connect 13 0 10 0;
#X connect 14 0 8 0;
#X connect 15 0 24 0;
#X connect 16 0 12 0;
#X connect 17 0 20 2;
#X connect 18 0 17 0;
#X connect 19 0 16 0;
#X connect 19 0 23 2;
#X connect 20 0 4 0;
#X connect 21 0 20 3;
#X connect 22 0 21 0;
#X connect 23 0 13 0;
#X connect 23 1 11 1;
#X connect 24 0 12 0;
#X connect 24 1 23 1;
#X connect 24 2 19 0;
#X connect 24 3 18 0;
#X connect 24 4 22 0;