Network Glass - CHAPEL69-3

Network Glass - CHAPEL69-3

Network Glass
network glass

100busy

2021/12/22
  1. 1CHAPEL69-3

NG01

Edition of 30

third installment in CHAPEL69 series. copy following code to text editor. save with .PD extension and open in Pure Data. follow text prompt in patch to initiate the piece. #N canvas 1499 58 1280 963 10; #X obj 459 601 dac~; #X obj 195 234 tgl 15 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000 0 1; #X obj 208 308 random 10; #X obj 213 276 metro 300; #X obj 573 144 tgl 15 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000 0 1; #X obj 505 241 random 100; #X obj 536 183 metro 20; #X obj 237 155 tgl 15 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000 0 1; #X obj 262 227 random 100; #X obj 443 331 adc~; #X obj 625 149 tgl 15 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000 0 1; #X obj 625 201 random 100; #X obj 703 155 tgl 15 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000 0 1; #X obj 703 208 random 100; #X obj 703 179 metro 30; #X obj 625 173 metro 500; #X obj 774 227 tgl 15 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000 0 1; #X obj 712 293 random 100; #X obj 740 260 metro 20; #X obj 264 198 metro 200; #X floatatom 733 339 5 0 0 0 - - - 0; #X floatatom 627 309 5 0 0 0 - - - 0; #X floatatom 569 316 5 0 0 0 - - - 0; #X floatatom 520 268 5 0 0 0 - - - 0; #X floatatom 250 354 5 0 0 0 - - - 0; #X floatatom 307 300 5 0 0 0 - - - 0; #X floatatom 381 461 5 0 0 0 - - - 0; #X obj 354 179 tgl 15 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000 0 1; #X obj 370 289 random 10; #X obj 345 243 metro 300; #X floatatom 382 321 5 0 0 0 - - - 0; #X floatatom 303 518 5 0 0 0 - - - 0; #X floatatom 603 521 5 0 0 0 - - - 0; #X obj 194 359 tgl 15 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000 0 1; #X obj 212 401 metro 1000; #X obj 207 433 random 100; #X obj 645 408 tgl 15 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000 0 1; #X obj 645 460 random 100; #X obj 645 432 metro 500; #X floatatom 873 453 5 0 0 0 - - - 0; #X obj 867 427 + 1; #X obj 867 337 tgl 15 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000 0 1; #X obj 867 405 f; #X msg 944 377 0, f 2; #X obj 867 359 metro 1000; #X text 865 320 counter start; #X text 945 361 manual reset; #N canvas 1024 79 1920 1001 setting 0; #X obj 172 408 *~; #X obj 295 345 line~; #X obj 295 319 pack 0 200; #X obj 109 193 exp; #X obj 109 309 /; #X obj 236 239 * 0.001; #X obj 404 415 line~; #X obj 404 390 pack 0 200; #X obj 172 434 +~; #X obj 109 460 cos~; #X obj 109 487 *~; #X obj 186 529 +~; #X obj 196 367 wrap~; #X obj 341 410 *~; #X obj 341 443 +~; #X obj 296 474 cos~; #X obj 296 501 *~; #X obj 236 266 t b f; #X floatatom 109 335 6 0 0 0 - - - 0; #X obj 196 340 +~ 0.5; #X obj 109 408 -~ 0.5; #X obj 109 434 *~ 0.5; #X obj 278 409 -~ 0.5; #X obj 278 442 *~ 0.5; #X obj 109 246 - 1; #X obj 109 167 * 0.05776; #X obj 109 272 * -1; #X text 172 213 speed; #X text 171 227 change; #X text 144 302 tape head; #X obj 109 366 phasor~; #X obj 404 366 max 1.5; #X obj 316 212 max 1; #X text 145 315 rotation freq; #X msg 418 330 0; #X text 363 205 <--window (msec); #X obj 182 47 inlet~; #X text 470 361 delay; #X obj 184 561 outlet~; #X text 308 146 PITCH SHIFTER from pd doc; #X text 119 138 transpose; #X obj 182 88 delwrite~ \$0psh1m-del 5000; #X obj 163 468 vd~ \$0psh1m-del; #X obj 354 473 vd~ \$0psh1m-del; #X obj 279 48 inlet; #X text 286 30 tp; #X obj 358 59 inlet; #X text 397 53 windowsize (ms); #X obj 584 66 inlet; #X text 588 47 on/off; #X obj 606 157 switch~; #X obj 681 81 loadbang; #X msg 672 112 1; #X connect 0 0 8 0; #X connect 1 0 0 1; #X connect 1 0 13 1; #X connect 2 0 1 0; #X connect 3 0 24 0; #X connect 4 0 18 0; #X connect 5 0 17 0; #X connect 6 0 8 1; #X connect 6 0 14 1; #X connect 7 0 6 0; #X connect 8 0 42 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 11 0 38 0; #X connect 12 0 13 0; #X connect 12 0 22 0; #X connect 13 0 14 0; #X connect 14 0 43 0; #X connect 15 0 16 0; #X connect 16 0 11 1; #X connect 17 0 4 0; #X connect 17 1 4 1; #X connect 18 0 30 0; #X connect 19 0 12 0; #X connect 20 0 21 0; #X connect 21 0 9 0; #X connect 22 0 23 0; #X connect 23 0 15 0; #X connect 24 0 26 0; #X connect 25 0 3 0; #X connect 26 0 4 0; #X connect 30 0 0 0; #X connect 30 0 20 0; #X connect 30 0 19 0; #X connect 31 0 7 0; #X connect 32 0 5 0; #X connect 32 0 2 0; #X connect 34 0 31 0; #X connect 36 0 41 0; #X connect 42 0 10 1; #X connect 43 0 16 1; #X connect 44 0 25 0; #X connect 46 0 32 0; #X connect 46 0 34 0; #X connect 48 0 50 0; #X connect 51 0 52 0; #X connect 52 0 50 0; #X restore 325 396 pd setting aside expectation; #N canvas 2331 494 477 300 with 1; #X obj 38 26 inlet~ signal 1; #X obj 39 241 *~; #X obj 68 227 cos~; #X obj 147 198 cos~; #X obj 133 229 *~; #X obj 68 205 -~ 0.25; #X obj 145 149 -~ 0.25; #X obj 144 119 *~ 0.25; #X obj 144 94 lop~ 1; #X obj 144 65 sig~; #X obj 250 239 *~; #X obj 279 225 cos~; #X obj 358 196 cos~; #X obj 344 227 *~; #X obj 279 203 -~ 0.25; #X obj 356 147 -~ 0.25; #X obj 355 117 *~ 0.25; #X obj 355 92 lop~ 1; #X obj 355 63 sig~; #X obj 249 24 inlet~ signal 2; #X obj 258 264 outlet~ left 2; #X obj 368 263 outlet~ right 2; #X obj 47 265 outlet~ left 1; #X obj 141 265 outlet~ right 1; #X obj 154 15 inlet control 1; #X obj 365 13 inlet control 2; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 22 0; #X connect 2 0 1 1; #X connect 3 0 4 1; #X connect 4 0 23 0; #X connect 5 0 2 0; #X connect 6 0 3 0; #X connect 6 0 5 0; #X connect 7 0 6 0; #X connect 8 0 7 0; #X connect 9 0 8 0; #X connect 10 0 20 0; #X connect 11 0 10 1; #X connect 12 0 13 1; #X connect 13 0 21 0; #X connect 14 0 11 0; #X connect 15 0 12 0; #X connect 15 0 14 0; #X connect 16 0 15 0; #X connect 17 0 16 0; #X connect 18 0 17 0; #X connect 19 0 10 0; #X connect 19 0 13 0; #X connect 24 0 9 0; #X connect 25 0 18 0; #X restore 377 567 pd with no mind for the result; #N canvas 0 21 450 300 and 1; #X obj 172 408 *~; #X obj 295 345 line~; #X obj 295 319 pack 0 200; #X obj 109 193 exp; #X obj 109 309 /; #X obj 236 239 * 0.001; #X obj 404 415 line~; #X obj 404 390 pack 0 200; #X obj 172 434 +~; #X obj 109 460 cos~; #X obj 109 487 *~; #X obj 186 529 +~; #X obj 196 367 wrap~; #X obj 341 410 *~; #X obj 341 443 +~; #X obj 296 474 cos~; #X obj 296 501 *~; #X obj 236 266 t b f; #X floatatom 109 335 6 0 0 0 - - - 0; #X obj 196 340 +~ 0.5; #X obj 109 408 -~ 0.5; #X obj 109 434 *~ 0.5; #X obj 278 409 -~ 0.5; #X obj 278 442 *~ 0.5; #X obj 109 246 - 1; #X obj 109 167 * 0.05776; #X obj 109 272 * -1; #X text 172 213 speed; #X text 171 227 change; #X text 144 302 tape head; #X obj 109 366 phasor~; #X obj 404 366 max 1.5; #X obj 316 212 max 1; #X text 145 315 rotation freq; #X msg 418 330 0; #X text 363 205 <--window (msec); #X obj 182 47 inlet~; #X text 470 361 delay; #X obj 184 561 outlet~; #X text 308 146 PITCH SHIFTER from pd doc; #X text 119 138 transpose; #X obj 182 88 delwrite~ \$0psh1m-del 5000; #X obj 163 468 vd~ \$0psh1m-del; #X obj 354 473 vd~ \$0psh1m-del; #X obj 279 48 inlet; #X text 286 30 tp; #X obj 358 59 inlet; #X text 397 53 windowsize (ms); #X obj 584 66 inlet; #X text 588 47 on/off; #X obj 606 157 switch~; #X obj 681 81 loadbang; #X msg 672 112 1; #X connect 0 0 8 0; #X connect 1 0 0 1; #X connect 1 0 13 1; #X connect 2 0 1 0; #X connect 3 0 24 0; #X connect 4 0 18 0; #X connect 5 0 17 0; #X connect 6 0 8 1; #X connect 6 0 14 1; #X connect 7 0 6 0; #X connect 8 0 42 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 11 0 38 0; #X connect 12 0 13 0; #X connect 12 0 22 0; #X connect 13 0 14 0; #X connect 14 0 43 0; #X connect 15 0 16 0; #X connect 16 0 11 1; #X connect 17 0 4 0; #X connect 17 1 4 1; #X connect 18 0 30 0; #X connect 19 0 12 0; #X connect 20 0 21 0; #X connect 21 0 9 0; #X connect 22 0 23 0; #X connect 23 0 15 0; #X connect 24 0 26 0; #X connect 25 0 3 0; #X connect 26 0 4 0; #X connect 30 0 0 0; #X connect 30 0 20 0; #X connect 30 0 19 0; #X connect 31 0 7 0; #X connect 32 0 5 0; #X connect 32 0 2 0; #X connect 34 0 31 0; #X connect 36 0 41 0; #X connect 42 0 10 1; #X connect 43 0 16 1; #X connect 44 0 25 0; #X connect 46 0 32 0; #X connect 46 0 34 0; #X connect 48 0 50 0; #X connect 51 0 52 0; #X connect 52 0 50 0; #X restore 426 450 pd and allowing sound to function; #N canvas 2122 133 450 300 let 1; #X obj 116 27 inlet~; #X obj 108 111 outlet~; #X obj 83 189 inlet~; #X obj 149 215 +~, f 2; #X obj 153 254 delwrite~ \$0-comb 10; #X obj 180 157 lop~ 100; #X obj 288 14 inlet~; #X obj 280 98 outlet~; #X obj 255 176 inlet~; #X obj 318 204 +~, f 2; #X obj 352 144 lop~ 100; #X obj 362 103 *~ \$20; #X obj 277 44 vd~ \$0-comb \$1; #X obj 105 57 vd~ \$0-comb \$1; #X obj 206 46 inlet; #X obj 188 116 *~ \$5; #X connect 0 0 13 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 5 0 3 1; #X connect 6 0 12 0; #X connect 8 0 9 0; #X connect 9 0 4 0; #X connect 10 0 9 1; #X connect 11 0 10 0; #X connect 12 0 7 0; #X connect 12 0 11 0; #X connect 13 0 1 0; #X connect 13 0 15 0; #X connect 14 0 15 1; #X connect 15 0 5 0; #X restore 359 491 pd let some shit happen; #X text 865 137 connect web browser audio to PD via backend patchbay software such as Cadence https://kx.studio/Applications:Cadence .play CHAPEL69-3 on Nina media player using PD as the final output of browser. start counter. when counter reaches 60 open a new instance of Nina media player in your browser and simultaneously play CHAPEL69-3. repeat process in intervals of 60 \, stacking the audio until counter reaches 3600 or until you choose to reset. select toggles and adjust number values through whatever means \, whether arbitrary or with purpose \, during the process. fuck around. find your own systems \, modifications \, variations and audio sources. NETWORK GLASS CHAPEL69-3 "WHO FUCKING CARES/SOUND DOES NOT REQUIRE A NARRATIVE :) :) :) :)"; #X connect 1 0 3 0; #X connect 2 0 24 0; #X connect 3 0 2 0; #X connect 4 0 6 0; #X connect 5 0 23 0; #X connect 6 0 5 0; #X connect 7 0 19 0; #X connect 8 0 25 0; #X connect 9 0 47 0; #X connect 9 1 49 0; #X connect 10 0 15 0; #X connect 11 0 22 0; #X connect 12 0 14 0; #X connect 13 0 21 0; #X connect 14 0 13 0; #X connect 15 0 11 0; #X connect 16 0 18 0; #X connect 17 0 20 0; #X connect 18 0 17 0; #X connect 19 0 8 0; #X connect 20 0 49 3; #X connect 21 0 49 2; #X connect 22 0 49 1; #X connect 23 0 47 2; #X connect 24 0 47 1; #X connect 25 0 49 1; #X connect 26 0 50 1; #X connect 27 0 29 0; #X connect 28 0 30 0; #X connect 29 0 28 0; #X connect 30 0 47 3; #X connect 31 0 48 1; #X connect 32 0 48 3; #X connect 33 0 34 0; #X connect 34 0 35 0; #X connect 35 0 31 0; #X connect 36 0 38 0; #X connect 37 0 32 0; #X connect 38 0 37 0; #X connect 40 0 39 0; #X connect 40 0 42 1; #X connect 41 0 44 0; #X connect 42 0 40 0; #X connect 43 0 42 1; #X connect 44 0 42 0; #X connect 47 0 50 0; #X connect 48 0 0 0; #X connect 48 1 0 1; #X connect 48 2 0 0; #X connect 48 3 0 1; #X connect 49 0 50 3; #X connect 50 0 48 0; #X connect 50 1 48 2;

Now Playing

0:00

-0:00