[PD] A patch to share

Pall Thayer palli at pallit.lhi.is
Sat Mar 21 16:22:29 CET 2009


I was going through some old stuff on my computer and found this  
patch I made a few years ago for a project called Autodrawn. The  
piece used to run on my server but due to my laziness in updating or  
even upgrading my server it's no longer running. However, the PD  
patch that goes with the work is interesting so I want to share it  
with the community. I've loosely applied the GPL to it. It might not  
be an interesting technical feat but rather conceptually. It plays a  
repeated sequence from Kraftwerk's Autobahn interspersed with live  
mp3 feeds of police scanners. The idea was to take the idea of the  
autobahn as portrayed on the original album cover, as something  
beautifully peaceful and positive and turn it into a more modern view  
of the freeway as something ominous and dangerous which has taken on  
an even newer meaning in recent years as a symbol of the negative  
impacts our fossil fuel consumption is having on the environment.  
Also, I just think it sounds cool. Even though it's just playing the  
same short sequence over and over again, it's still fun to listen to  
for long periods of time.

So, if you find something interesting to do with it, feel free.

best r.
Pall Thayer


#N canvas 4 98 985 512 10;
#X obj 149 96 mp3amp~;
#X msg 19 70 disconnect;
#X floatatom 193 123 5 0 0 0 - - -;
#X obj 234 96 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 327 108 mp3amp~;
#X msg 264 86 disconnect;
#X floatatom 371 135 5 0 0 0 - - -;
#X obj 412 108 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 466 123 delread~ dc 400;
#X obj 466 167 delwrite~ dc 400;
#X floatatom 466 105 5 0 0 0 - - -;
#X obj 12 104 delread~ sas 400;
#X obj 12 148 delwrite~ sas 400;
#X obj 471 145 *~ 0.1;
#X obj 17 126 *~ 0.1;
#X obj 149 306 mp3amp~;
#X msg 86 269 disconnect;
#X floatatom 193 333 5 0 0 0 - - -;
#X obj 234 306 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X floatatom 322 334 5 0 0 0 - - -;
#X obj 327 374 *~ 0.1;
#X obj 322 352 delread~ sw 400;
#X obj 322 396 delwrite~ sw 400;
#X obj 544 326 f;
#X obj 615 326 + 1;
#X obj 683 274 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X floatatom 563 378 5 0 0 0 - - -;
#N canvas 0 22 450 300 (subpatch) 0;
#X array array103 100 float 1;
#A 0 68 61 0 73 66 0 0 0 0 75.7258 75.7258 75.7258 73.1658 68.0458
65.4858 65.4858 66.3391 67.1925 68.0458 68.0458 68.0458 62.9258 61.6458
60.3658 57.8058 55.2458 52.6858 50.1258 47.5658 45.0058 42.4458 39.8857
38.1791 36.4724 34.7658 33.0591 31.3524 29.6457 27.0857 24.5257 21.9657
19.4057 18.1257 16.8457 16.8457 14.2857 14.2857 9.16572 4.04571 1.50713
1.54285 45.082 50.202 47.642 47.642 47.642 47.642 47.642 48.4953 49.3486
50.202 51.0553 51.9086 52.762 54.042 55.322 56.602 57.882 59.162 60.442
61.722 63.002 64.282 65.562 66.842 68.122 68.122 68.122 68.122 80.922
-0.385712 -0.414283 -0.45714 -0.499997 -0.528568 -0.585711 -0.599997
-0.614282 0 100 50 78 54 0 0 0 0 0 0 0;
#X coords 0 128 99 0 100 50 1;
#X restore 619 176 graph;
#X obj 547 347 tabread array103;
#X obj 594 437 line;
#X obj 525 459 *~;
#X obj 521 392 mtof;
#X obj 487 371 mtof;
#X obj 487 393 osc~;
#X obj 448 371 mtof;
#X obj 681 370 route 0;
#X obj 569 326 mod 8;
#X msg 496 234 \; array103 0 68 61 0 73 66 0 0 0;
#X obj 448 393 osc~;
#X obj 521 414 osc~;
#X obj 447 347 - 24;
#X obj 486 347 - 12.1;
#X obj 31 413 delwrite~ autob 450;
#X obj 18 353 delread~ autob 450;
#X obj 682 302 metro 300;
#X obj 628 44 f;
#X obj 699 44 + 1;
#X obj 653 44 mod 2;
#X floatatom 657 76 5 0 0 0 - - -;
#X obj 612 393 delay 5;
#X obj 740 38 delay 5000;
#X obj 342 53 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 361 44 delay 5000;
#X obj 737 60 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 496 13 metro 300000;
#X obj 657 103 route 0 1;
#X obj 657 125 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 686 125 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 715 125 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 49 2 delay 5000;
#X obj 126 44 delay 5000;
#X obj 762 153 route 0 1;
#X obj 762 175 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 791 175 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 820 175 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 323 24 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 22 2 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1
;
#X obj 761 127 pipe 60000;
#X obj 103 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 146 150 *~ 0.4;
#X obj 146 360 *~ 0.23;
#X obj 324 162 *~ 0.33;
#X msg 286 306 connecturl http://12.40.197.36:8000;
#X obj 794 250 route 0 1;
#X obj 794 272 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 823 272 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 852 272 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 793 224 pipe 80000;
#X obj 766 255 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 780 303 delay 5000;
#X obj 818 330 delay 5000;
#X obj 780 325 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 818 351 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 31 388 *~ 0.2;
#X msg 615 416 0.03 200;
#X obj 768 405 noise~;
#X obj 811 439 *~;
#X obj 843 414 line;
#X msg 869 383 0 30;
#X obj 852 354 pipe 150;
#X obj 745 467 osc~ 1000;
#X obj 657 467 osc~ 505;
#X msg 718 79 connecturl http://68.108.10.240:8000;
#X obj 933 283 vsl 15 128 0 50 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 5381 1;
#X floatatom 899 235 5 0 0 0 - - -;
#X obj 882 265 * 0.3;
#X msg 561 416 0.2 5;
#N canvas 0 22 541 284 mp3send 1;
#X obj 38 32 inlet~;
#X obj 147 184 mp3cast~;
#X msg 186 62 icecast;
#X msg 186 154 passwd *********;
#X msg 186 131 mountpoint autodrawn;
#X msg 186 108 mpeg 44100 32 1 5;
#X obj 93 33 inlet~;
#X msg 186 85 connect localhost 8000;
#X obj 58 237 dac~;
#X text 306 17 The mp3cast stuff is old \, here for posterity;
#X connect 0 0 8 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 8 1;
#X connect 7 0 1 0;
#X restore 42 226 pd mp3send;
#X obj 872 20 loadbang;
#X obj 845 190 fiddle~ 2048 1 20 3;
#X msg 830 382 0.55;
#X msg 872 143 auto 0;
#X msg 47 23 connecturl http://74.229.4.35:4000:8000;
#X msg 149 67 connecturl http://69.239.28.85:8000;
#X msg 180 270 connecturl http://216.66.69.100:3074/;
#X msg 369 86 connecturl http://live.scanact.net:80/live;
#X text 608 -5 (c) 2004 Pall Thayer - Use as per conditions of GPL
v.3;
#N canvas 0 22 450 300 resothing 0;
#X obj 174 155 vcf~;
#X obj 173 188 bp~ 20000 40;
#X obj 185 123 * 100;
#X obj 173 29 inlet~;
#X obj 185 50 inlet;
#X obj 172 253 outlet~;
#X obj 290 59 loadbang;
#X msg 228 123 10;
#X msg 185 77 \$1 100;
#X obj 185 101 line;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 0 1;
#X connect 3 0 0 0;
#X connect 4 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 0 2;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 9 0 2 0;
#X restore 864 445 pd resothing;
#X connect 0 0 12 0;
#X connect 0 0 69 0;
#X connect 0 1 12 0;
#X connect 0 1 69 0;
#X connect 0 2 2 0;
#X connect 1 0 0 0;
#X connect 3 0 69 1;
#X connect 4 0 9 0;
#X connect 4 0 71 0;
#X connect 4 1 9 0;
#X connect 4 1 71 0;
#X connect 4 2 6 0;
#X connect 5 0 4 0;
#X connect 7 0 71 1;
#X connect 8 0 13 0;
#X connect 10 0 8 0;
#X connect 11 0 14 0;
#X connect 13 0 9 0;
#X connect 13 0 71 0;
#X connect 14 0 12 0;
#X connect 14 0 69 0;
#X connect 15 0 22 0;
#X connect 15 0 70 0;
#X connect 15 1 22 0;
#X connect 15 1 70 0;
#X connect 15 2 17 0;
#X connect 16 0 15 0;
#X connect 18 0 70 1;
#X connect 19 0 21 0;
#X connect 20 0 22 0;
#X connect 20 0 70 0;
#X connect 21 0 20 0;
#X connect 23 0 24 0;
#X connect 23 0 28 0;
#X connect 24 0 36 0;
#X connect 25 0 44 0;
#X connect 25 0 54 0;
#X connect 26 0 31 0;
#X connect 26 0 96 0;
#X connect 26 0 40 0;
#X connect 26 0 41 0;
#X connect 26 0 49 0;
#X connect 26 0 89 0;
#X connect 28 0 35 0;
#X connect 28 0 100 0;
#X connect 28 0 88 0;
#X connect 29 0 30 1;
#X connect 30 0 42 0;
#X connect 30 0 97 1;
#X connect 30 0 97 0;
#X connect 31 0 39 0;
#X connect 32 0 33 0;
#X connect 33 0 30 0;
#X connect 34 0 38 0;
#X connect 35 1 26 0;
#X connect 36 0 23 1;
#X connect 38 0 30 0;
#X connect 39 0 30 0;
#X connect 40 0 34 0;
#X connect 41 0 32 0;
#X connect 43 0 83 0;
#X connect 44 0 23 0;
#X connect 44 0 99 0;
#X connect 45 0 46 0;
#X connect 45 0 48 0;
#X connect 45 0 5 0;
#X connect 46 0 47 0;
#X connect 47 0 45 1;
#X connect 48 0 55 0;
#X connect 48 0 67 0;
#X connect 48 0 77 0;
#X connect 49 0 84 0;
#X connect 50 0 53 0;
#X connect 51 0 105 0;
#X connect 52 0 51 0;
#X connect 53 0 92 0;
#X connect 54 0 45 0;
#X connect 55 0 56 0;
#X connect 55 1 57 0;
#X connect 55 2 58 0;
#X connect 56 0 52 0;
#X connect 57 0 50 0;
#X connect 59 0 66 0;
#X connect 60 0 68 0;
#X connect 61 0 62 0;
#X connect 61 1 63 0;
#X connect 61 2 64 0;
#X connect 62 0 60 0;
#X connect 63 0 59 0;
#X connect 65 0 1 0;
#X connect 66 0 102 0;
#X connect 67 0 61 0;
#X connect 67 0 65 0;
#X connect 68 0 103 0;
#X connect 69 0 97 0;
#X connect 69 0 99 0;
#X connect 70 0 97 0;
#X connect 70 0 97 1;
#X connect 70 0 99 0;
#X connect 71 0 97 1;
#X connect 71 0 99 0;
#X connect 72 0 15 0;
#X connect 73 0 74 0;
#X connect 73 1 75 0;
#X connect 73 2 76 0;
#X connect 74 0 79 0;
#X connect 75 0 80 0;
#X connect 77 0 73 0;
#X connect 77 0 78 0;
#X connect 78 0 16 0;
#X connect 79 0 81 0;
#X connect 80 0 82 0;
#X connect 81 0 104 0;
#X connect 82 0 72 0;
#X connect 83 0 42 0;
#X connect 83 0 97 0;
#X connect 83 0 97 1;
#X connect 84 0 29 0;
#X connect 85 0 107 0;
#X connect 86 0 9 0;
#X connect 86 0 12 0;
#X connect 86 0 42 0;
#X connect 86 0 97 1;
#X connect 86 0 97 0;
#X connect 87 0 86 1;
#X connect 88 0 87 0;
#X connect 89 0 100 0;
#X connect 90 0 107 0;
#X connect 91 0 107 0;
#X connect 92 0 4 0;
#X connect 93 0 107 1;
#X connect 94 0 95 0;
#X connect 95 0 93 0;
#X connect 96 0 29 0;
#X connect 98 0 25 0;
#X connect 98 0 101 0;
#X connect 99 3 94 0;
#X connect 100 0 87 0;
#X connect 101 0 99 0;
#X connect 102 0 0 0;
#X connect 103 0 0 0;
#X connect 104 0 15 0;
#X connect 105 0 4 0;
#X connect 107 0 86 0;

--
Pall Thayer
palli at pallit.lhi.is
http://www.this.is/pallit







More information about the Pd-list mailing list