#N canvas 152 423 1001 466 12; #X declare -path . -path lib -path ../lib -path ../../lib -path sound ; #X text 698 4 Kaija Saariaho - NoaNoa; #N canvas 124 152 902 438 sf-players 0; #X obj 66 63 r play; #X obj 128 65 r play2; #X obj 27 255 r phase; #X floatatom 27 284 0 0 0 0 - - -; #X obj 66 96 s playfile; #X text 209 65 play and play2 are equivalent in this implementation ; #X msg 476 143 \; play 0; #X msg 549 146 \; play 1; #X msg 615 141 \; play 2; #X msg 152 215 1; #X msg 155 245 0; #X msg 477 194 \; play 3; #X msg 552 195 \; play 4; #X msg 617 191 \; play 5; #X msg 480 246 \; play 6; #X msg 162 120 open NoaNoa-04-qlist-cmd20.aiff; #X msg 164 149 open NoaNoa-06-07-soufchuche.aiff; #X obj 205 329 mem-bank; #X obj 122 369; #X msg 249 387 \; stop-files bang; #X obj 201 291 mem-player 0; #X obj 201 260 mem-player 1; #X connect 0 0 4 0; #X connect 1 0 4 0; #X connect 2 0 3 0; #X restore 689 252 pd sf-players; #N canvas 114 514 1018 591 reverb 0; #X obj 273 9 r lexicon-input; #X obj 273 35 unpack; #X obj 273 111 dbtorms; #X obj 273 86 - 27; #X obj 273 135 line~; #X obj 164 147 *~; #X obj 164 284 rev; #X obj 284 324 unpack; #X obj 284 401 dbtorms; #X obj 284 375 - 27; #X obj 339 456 line~; #X obj 284 296 r lexicon-output; #X obj 284 426 sqrt; #X obj 284 450 sqrt; #X obj 339 482 *~; #X obj 339 507 *~; #X obj 140 522 *~; #X obj 215 522 *~; #X floatatom 273 60 0 0 0 0 - - -; #X floatatom 284 350 0 0 0 0 - - -; #X obj 420 27 r lxp15-decay; #X obj 437 450 r PCM80-rev; #X text 471 424 dummy; #X obj 80 443 env~ 16384; #X obj 90 90 env~ 16384; #X msg 569 431 \; lxp15-decay 0; #X obj 164 174 *~ 0.03; #X obj 45 411 r meters; #X floatatom 456 242 0 0 0 0 - - -; #X floatatom 776 266 0 0 0 0 - - -; #X obj 429 57 t b f; #X text 435 7 14 for almost-infinite \, 8 for medium \, 0 for damped. ; #X obj 468 144 route 0 8 14; #X obj 420 93 f; #X obj 468 119 pack 0 0; #X msg 459 182 0; #X obj 561 72 print unknown-delay-time; #X floatatom 764 189 0 0 0 0 - - -; #X obj 764 164 r base-envelope; #X obj 776 240 r damping-coef; #X obj 701 425 loadbang; #X obj 386 357 dbtorms; #X obj 386 329 r reverb-master; #X obj 386 390 t b f; #X obj 386 419 *; #X obj 39 506 spigot; #X obj 39 533 int; #X obj 38 558 s rev-lvl; #X msg 584 183 125; #X obj 89 54 hip~ 5; #X obj 603 231 dbtorms; #X obj 603 300 expr 125 - $f1 * $f2; #X obj 501 185 t f; #X obj 603 332 max 0; #X msg 701 449 \; base-envelope 0 \; damping-coef 900; #X obj 90 21 r~ input-signal1; #X obj 140 554 throw~ out-left; #X obj 290 554 throw~ out-right; #X floatatom 406 135 5 0 0 0 - - -; #X connect 0 0 1 0; #X connect 1 0 18 0; #X connect 1 1 4 1; #X connect 2 0 4 0; #X connect 3 0 2 0; #X connect 4 0 5 1; #X connect 5 0 26 0; #X connect 6 0 16 0; #X connect 6 1 17 0; #X connect 7 0 19 0; #X connect 7 1 10 1; #X connect 8 0 12 0; #X connect 9 0 8 0; #X connect 10 0 14 0; #X connect 10 0 14 1; #X connect 11 0 7 0; #X connect 12 0 13 0; #X connect 13 0 44 0; #X connect 14 0 15 0; #X connect 14 0 15 1; #X connect 15 0 17 1; #X connect 15 0 16 1; #X connect 16 0 56 0; #X connect 16 0 23 0; #X connect 17 0 57 0; #X connect 18 0 3 0; #X connect 19 0 9 0; #X connect 20 0 33 0; #X connect 23 0 45 0; #X connect 24 0 30 0; #X connect 26 0 6 0; #X connect 27 0 45 1; #X connect 28 0 6 1; #X connect 29 0 51 1; #X connect 30 0 33 0; #X connect 30 1 34 1; #X connect 32 0 35 0; #X connect 32 1 50 0; #X connect 32 2 48 0; #X connect 32 3 36 0; #X connect 33 0 34 0; #X connect 33 0 58 0; #X connect 34 0 32 0; #X connect 35 0 28 0; #X connect 38 0 37 0; #X connect 39 0 29 0; #X connect 40 0 54 0; #X connect 41 0 43 0; #X connect 42 0 41 0; #X connect 43 0 44 0; #X connect 43 1 44 1; #X connect 44 0 10 0; #X connect 45 0 46 0; #X connect 46 0 47 0; #X connect 48 0 28 0; #X connect 49 0 5 0; #X connect 49 0 24 0; #X connect 50 0 51 0; #X connect 51 0 53 0; #X connect 52 0 28 0; #X connect 53 0 52 0; #X connect 55 0 49 0; #X restore 690 341 pd reverb; #N canvas 497 110 1132 669 pitchshift 0; #X obj 47 195 pitch-shift shift-del1; #X obj 38 147 hip~ 5; #X obj 587 96 unpack; #X obj 588 192 dbtorms; #X obj 587 161 - 27; #X obj 591 290 line~; #X obj 591 222 sqrt; #X obj 591 254 sqrt; #X obj 591 327 *~; #X obj 591 360 *~; #X floatatom 585 129 0 0 0 0 - - -; #X obj 585 68 r pitch-shift-output; #X obj 102 123 r shift1-window; #X floatatom 102 153 0 0 0 0 - - -; #X floatatom 237 153 0 0 0 0 - - -; #X obj 237 123 r shift1-freq; #X floatatom 359 153 0 0 0 0 - - -; #X obj 359 120 r shift1-del; #X floatatom 471 153 0 0 0 0 - - -; #X obj 470 117 r shift1-fb; #X floatatom 93 267 0 0 0 0 - - -; #X floatatom 228 267 0 0 0 0 - - -; #X floatatom 350 269 0 0 0 0 - - -; #X floatatom 462 267 0 0 0 0 - - -; #X obj 38 311 pitch-shift shift-del2; #X obj 93 237 r shift2-window; #X obj 228 237 r shift2-freq; #X obj 350 236 r shift2-del; #X obj 459 233 r shift2-fb; #X obj 9 429 *~; #X obj 39 431 *~; #X obj 717 233 r spx progchange; #X obj 717 261 route progchange off; #X obj 716 339 unpack 0 0 0; #X text 842 326 volume; #X text 842 347 ramp down time; #X text 842 368 ramp up time; #X obj 855 297 print noanoa-bad-spx; #X msg 876 215 \; pitch-shift-output 0 20; #X msg 824 398 \; pitch-shift-output 0 \$1; #X obj 762 393 del; #X obj 741 423 f; #X obj 770 453 pack; #X obj 717 303 route 59 99; #X msg 884 441 \; pitch-shift-output 0 40; #X obj 759 98 r pshift-master; #X obj 758 126 dbtorms; #X obj 758 159 t b f; #X obj 758 188 *; #X obj 209 449 env~ 16384; #X obj 228 474 r meters; #X obj 209 504 spigot; #X obj 209 530 int; #X obj 74 471 +~; #X obj 209 561 s pshift-lvl; #X msg 650 471 \; shift1-window 100 \; shift1-freq -0.5 \; shift1-del 0 \; shift1-fb 0.5 \; shift2-window 100 \; shift2-freq 0.5 \; shift2-del 0 \; shift2-fb 0.5 \; pitch-shift-output \$1 \$2; #X obj 9 584 throw~ out-left; #X obj 39 548 throw~ out-right; #X obj 37 76 r~ input-signal1; #X connect 0 0 29 0; #X connect 1 0 0 0; #X connect 1 0 24 0; #X connect 2 0 10 0; #X connect 2 1 5 1; #X connect 3 0 6 0; #X connect 4 0 3 0; #X connect 5 0 8 0; #X connect 5 0 8 1; #X connect 6 0 7 0; #X connect 7 0 48 0; #X connect 8 0 9 0; #X connect 8 0 9 1; #X connect 9 0 30 1; #X connect 9 0 29 1; #X connect 10 0 4 0; #X connect 11 0 2 0; #X connect 12 0 13 0; #X connect 13 0 0 1; #X connect 14 0 0 2; #X connect 15 0 14 0; #X connect 16 0 0 3; #X connect 17 0 16 0; #X connect 18 0 0 4; #X connect 19 0 18 0; #X connect 20 0 24 1; #X connect 21 0 24 2; #X connect 22 0 24 3; #X connect 23 0 24 4; #X connect 24 0 30 0; #X connect 25 0 20 0; #X connect 26 0 21 0; #X connect 27 0 22 0; #X connect 28 0 23 0; #X connect 29 0 53 0; #X connect 29 0 56 0; #X connect 30 0 53 1; #X connect 30 0 57 0; #X connect 31 0 32 0; #X connect 32 0 43 0; #X connect 32 1 38 0; #X connect 33 0 41 1; #X connect 33 1 39 0; #X connect 33 1 40 0; #X connect 33 2 42 1; #X connect 40 0 41 0; #X connect 41 0 42 0; #X connect 42 0 55 0; #X connect 43 0 33 0; #X connect 43 1 44 0; #X connect 43 2 37 0; #X connect 45 0 46 0; #X connect 46 0 47 0; #X connect 47 0 48 0; #X connect 47 1 48 1; #X connect 48 0 5 0; #X connect 49 0 51 0; #X connect 50 0 51 1; #X connect 51 0 52 0; #X connect 52 0 54 0; #X connect 53 0 49 0; #X connect 58 0 1 0; #X restore 689 274 pd pitchshift; #N canvas 319 99 961 554 sequencer 0; #X text 747 308 reset actions here; #X obj 437 92 f; #X obj 437 119 sel 0; #X floatatom 527 116 0 0 0 0 - - -; #X msg 437 149 1; #X text 488 238 This only happens; #X text 486 257 the first time.; #X msg 726 370 \; stop-files bang \; play 0 \; lxp15-decay 0; #X msg 510 155 \; print loading... \; load-samples bang \; print done. ; #X obj 498 325 loadbang; #X msg 498 353 \; reverb-master 103 \; pshift-master 102 \; sf-master 99; #X floatatom 283 342 3 0 0 0 - - -; #X obj 283 310 ctlin 64; #X obj 283 372 sel 127; #X text 257 250 EDIT THIS ACCORDING; #X text 257 278 TO MIDI PEDAL; #X obj 726 341 r reset; #X obj 437 50 r first-load-samples; #X obj 21 14 section 1; #X obj 22 61 loadbang; #X msg 38 104 \; section-qlist-number 1 read sect01.q \; section-scofo-number 1 read sect01.sf; #X msg 11 169 \; section-qlist-number 1 read noanoa-scofo2.q \; section-scofo-number 1 read noanoa-scofo2.txt; #X obj 40 503 declare -path . -path lib -path ../lib -path ../../lib -path sound; #X obj 283 404 s section-step; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 2 0 8 0; #X connect 3 0 1 1; #X connect 4 0 3 0; #X connect 9 0 10 0; #X connect 11 0 13 0; #X connect 12 0 11 0; #X connect 13 0 23 0; #X connect 16 0 7 0; #X connect 17 0 1 0; #X connect 19 0 21 0; #X restore 690 434 pd sequencer; #N canvas 293 0 819 702 LXP15/PCM80 0; #X obj 533 229 print lexicon-rev-inf-reset; #X obj 11 373 print lexicon-rev-inf-on; #X msg 533 138 bang \; lexicon-input 0 10 \; lexicon-output 0 10 \; lxp15-decay 0 10 \; PCM80-rev 0 20 \;; #X obj 9 77 r rev-inf; #X msg 282 147 bang \; lexicon-input 0 10 \; lexicon-output 0 4000 \; PCM80-rev 0 4000 \;; #X obj 281 248 print lexicon-rev-inf-off; #X obj 20 266 del 400; #X text 290 220 infinity : lxp-decay = 15; #X obj 320 574 del 1000; #X obj 299 661 print lexicon-rev-speech-off; #X msg 302 489 bang \; lexicon-input 0 20 \; lxp15-decay 0 1000 \; PCM80-rev 0 1000 \;; #X obj 28 600 print lexicon-rev-speech-on; #X text 304 453 decay fade out; #X obj 31 415 r rev-speech; #X obj 9 111 route on off reset; #X obj 31 450 route on off; #X msg 320 601 \; lxp15-decay 0 1000 \; lexicon-output 0 1000 \;; #X msg 11 152 bang \; lexicon-input 123 100 \; lexicon-output 127 50 \; lxp15-decay 14 10 \; PCM80-rev 127 10 \;; #X msg 20 291 \; lexicon-input 0 10 \; lxp15-decay 14 10 \; PCM80-rev 127 20 \;; #X msg 29 508 bang \; lexicon-input 137 20 \; lexicon-output 110 1000 \; lxp15-decay 8 20 \; PCM80-rev 84 20 \;; #X connect 2 0 0 0; #X connect 3 0 14 0; #X connect 4 0 5 0; #X connect 6 0 18 0; #X connect 8 0 16 0; #X connect 10 0 9 0; #X connect 10 0 8 0; #X connect 13 0 15 0; #X connect 14 0 17 0; #X connect 14 1 4 0; #X connect 14 2 2 0; #X connect 15 0 19 0; #X connect 15 1 10 0; #X connect 17 0 1 0; #X connect 17 0 6 0; #X connect 19 0 11 0; #X restore 689 296 pd LXP15/PCM80; #N canvas 159 239 797 502 SPX1000 0; #X text 178 279 spx off-t