doohoyi/sound-from-earth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
sound-from-earth/sound-from-earth-workshop/radio_spell_compass.pd
Dooho Yi 9b4efabe24 init
2024-12-03 17:57:14 +01:00

428 lines
11 KiB
Text
Raw Blame History

#N canvas 0 35 830 560 10;
#N canvas 248 138 692 351 radio 0;
#X obj 333 282 spigot;
#X obj 382 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#N canvas 676 408 512 395 buildOSC 0;
#X obj 319 66 t a b;
#X msg 456 84 [;
#X msg 34 327 ];
#X obj 68 236 r X1;
#X obj 98 236 r X2;
#X obj 128 236 r X3;
#X obj 158 236 r X4;
#X obj 53 266 f;
#X obj 34 126 t b b a;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 188 236 r PS;
#X obj 88 284 pack f f f f f;
#X msg 319 112 sendtyped /note/onoff f \$1;
#X msg 254 141 sendtyped /note/velocity f \$1;
#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X msg 73 199 sendtyped /note/id i \$1;
#X msg 167 170 sendtyped /note/pitch f \$1;
#X obj 140 39 unpack f f f f;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 7 1;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 12 3;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 8 2 16 0;
#X connect 10 0 18 0;
#X connect 11 0 12 4;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 9 0;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 14 0;
#X connect 18 3 0 0;
#X restore 413 286 pd buildOSC for all;
#X obj 112 210 o.io.slipserial;
#X msg 138 98 devices;
#X msg 209 98 close;
#X obj 112 189 packOSC;
#X obj 112 144 r OSC;
#X obj 112 231 unpackOSC;
#X obj 112 286 routeOSC /hello;
#X obj 112 309 s HELLO;
#X obj 19 171 print OSC;
#X obj 19 144 spigot;
#X obj 68 129 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 413 309 s OSC;
#X obj 413 255 r NOTE;
#X obj 333 309 print NOTE;
#X text 414 234 /id /pitch /velocity /onoff;
#X floatatom 636 254 5 0 0 0 - - - 0;
#X obj 636 276 s PS;
#X obj 629 169 tgl 16 0 empty empty hello 20 8 0 10 #9c00fc #f8fc00 #9c00fc 0 1;
#X obj 629 121 loadbang;
#X msg 629 142 1;
#X obj 629 196 sel 1;
#X obj 19 282 spigot;
#X obj 68 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 19 309 print HELLO;
#X text 14 12 * a wireless "field synth" - based on 'esp now' protocol, f 14;
#X msg 629 217 2000;
#X obj 215 262 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 299 144 3 0 0 1 device\ id - - 0;
#X msg 299 164 open \$1 \, baud 57600 \, pollintervall 1 \, verbose 1;
#X obj 216 226 print info(\$0), f 8;
#X obj 226 303 outlet;
#X obj 209 15 inlet;
#X obj 209 36 tgl 16 0 empty empty empty 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X obj 209 57 sel 0 1;
#X msg 258 98 devicename /dev/ttyUSB0 \, baud 57600 \, pollintervall 1 \, verbose 1;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 14 0;
#X connect 3 0 8 0;
#X connect 3 1 29 0;
#X connect 3 2 32 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 24 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 15 0 0 0;
#X connect 15 0 2 0;
#X connect 18 0 19 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 23 0 28 0;
#X connect 23 1 18 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 28 0 18 0;
#X connect 29 0 33 0;
#X connect 30 0 31 0;
#X connect 31 0 3 1;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 36 0 5 0;
#X connect 36 1 37 0;
#X connect 37 0 3 1;
#X restore 31 72 pd radio;
#X obj 31 95 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 31 51 tgl 16 0 empty empty connect/disconnect 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X obj 201 145 unpack f f f f;
#X floatatom 228 168 5 0 0 0 - - - 0;
#X obj 201 99 r HELLO;
#X obj 46 331 circle 127 -1 1 -1 1 1 0 -1 -1 0 -1 -1 255 0 0 1 0 0 0.961263 -0.275633 empty empty empty empty empty;
#X obj 228 349 * 6.28319;
#X obj 228 323 / 360;
#X floatatom 228 372 5 0 0 0 - - - 0;
#X obj 228 229 + 90;
#X obj 228 252 mod 360;
#X floatatom 228 275 5 0 0 0 - - - 0;
#X obj 228 190 * -1;
#X obj 228 394 t b f;
#X obj 228 440 pol2car;
#X msg 228 417 1;
#X floatatom 228 473 5 0 0 0 - - - 0;
#X floatatom 273 473 5 0 0 0 - - - 0;
#X obj 228 495 pack f f;
#X obj 46 272 loadbang;
#X msg 341 120 0;
#X msg 392 140 1;
#X msg 443 160 2;
#X msg 494 180 3;
#X msg 545 200 4;
#X msg 596 220 5;
#X msg 647 240 6;
#X msg 698 260 7;
#X msg 749 260 0;
#X obj 473 238 change;
#X floatatom 473 260 5 0 0 0 - - - 0;
#X msg 46 300 grid 1 \, fgcolor 255 0 0;
#X obj 616 63 hradio 50 1 0 2 empty empty select\ compass! 0 -9 0 10 #feffc6 #0400ff #000000 0;
#X obj 238 43 sel 0 1;
#X msg 238 66 6003;
#X msg 287 76 6005;
#X floatatom 258 105 5 0 0 0 - - - 0;
#X obj 201 122 route;
#X obj 545 22 loadbang;
#X msg 545 45 0;
#X obj 546 292 onoff 2;
#X obj 502 384 spigot;
#X obj 582 384 spigot;
#X obj 615 361 tgl 18 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 535 361 tgl 18 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 546 315 unpack f f;
#N canvas 871 62 620 335 lightcompass 0;
#X obj 180 139 unpack f f f f f f f;
#N canvas 830 35 446 607 compass 0;
#X obj 108 32 inlet;
#X floatatom 108 63 5 0 0 0 - - - 0;
#X obj 192 335 until;
#X obj 126 124 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 192 361 f;
#X obj 240 361 + 1;
#X msg 210 205 0;
#X msg 204 113 set;
#X msg 127 548 add2 \$1;
#X obj 165 210 != 0;
#X obj 126 255 spigot;
#X obj 165 235 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 126 150 t b b;
#X obj 108 93 t b b a b b;
#X obj 38 468 outlet;
#X obj 127 413 -;
#X msg 38 443 24035 21035 18035 15035 12035 9035 6035;
#X obj 165 185 7;
#X obj 192 310 7;
#X obj 231 244 loadbang;
#X msg 231 265 7;
#X obj 289 173 expr random(6000 \, 8000);
#X obj 289 150 bng 18 250 50 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000;
#X floatatom 289 196 5 0 0 0 - - - 0;
#X obj 205 538 expr $f2*0 + 7000 + abs($f1*3000);
#X obj 289 27 loadbang;
#X obj 289 90 tgl 18 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 289 113 metro 5000;
#X obj 175 488 expr $f2*0 + $f3 + abs($f1*3000);
#X obj 371 54 inlet;
#X connect 0 0 1 0;
#X connect 1 0 13 0;
#X connect 2 0 4 0;
#X connect 3 0 12 0;
#X connect 4 0 5 0;
#X connect 5 0 4 1;
#X connect 5 0 15 0;
#X connect 6 0 4 1;
#X connect 7 0 16 0;
#X connect 8 0 16 0;
#X connect 9 0 11 0;
#X connect 10 0 18 0;
#X connect 11 0 10 1;
#X connect 12 0 10 0;
#X connect 12 1 17 0;
#X connect 13 0 16 0;
#X connect 13 1 3 0;
#X connect 13 2 15 1;
#X connect 13 2 28 1;
#X connect 13 3 6 0;
#X connect 13 4 7 0;
#X connect 15 0 28 0;
#X connect 16 0 14 0;
#X connect 17 0 9 0;
#X connect 18 0 2 0;
#X connect 19 0 20 0;
#X connect 20 0 17 1;
#X connect 20 0 18 1;
#X connect 21 0 23 0;
#X connect 22 0 21 0;
#X connect 23 0 28 2;
#X connect 26 0 27 0;
#X connect 27 0 22 0;
#X connect 28 0 8 0;
#X connect 29 0 22 0;
#X restore 180 116 pd compass;
#X obj 270 91 print compass;
#X msg 42 169 9001 0 \$1 0;
#X msg 122 209 9002 0 \$1 0;
#X msg 202 209 9003 0 \$1 0;
#X msg 282 209 9004 0 \$1 0;
#X msg 362 209 9005 0 \$1 0;
#X msg 442 209 9006 0 \$1 0;
#X msg 522 169 9007 0 \$1 0;
#X obj 42 272 s NOTE;
#X obj 122 272 s NOTE;
#X obj 202 272 s NOTE;
#X obj 282 272 s NOTE;
#X obj 362 272 s NOTE;
#X obj 442 272 s NOTE;
#X obj 522 272 s NOTE;
#X obj 153 48 sel 0;
#X msg 23 62 9000 0 20000 0;
#X obj 23 85 s NOTE;
#X obj 122 174 pipe 50;
#X obj 202 174 pipe 100;
#X obj 282 174 pipe 50;
#X obj 362 174 pipe 100;
#X obj 442 174 pipe 150;
#X obj 23 39 pipe 300;
#X obj 153 19 inlet;
#X obj 266 16 inlet;
#X connect 0 0 3 0;
#X connect 0 1 20 0;
#X connect 0 2 21 0;
#X connect 0 3 22 0;
#X connect 0 4 23 0;
#X connect 0 5 24 0;
#X connect 0 6 9 0;
#X connect 1 0 0 0;
#X connect 1 0 2 0;
#X connect 3 0 10 0;
#X connect 4 0 11 0;
#X connect 5 0 12 0;
#X connect 6 0 13 0;
#X connect 7 0 14 0;
#X connect 8 0 15 0;
#X connect 9 0 16 0;
#X connect 17 0 25 0;
#X connect 17 1 1 0;
#X connect 18 0 19 0;
#X connect 20 0 4 0;
#X connect 21 0 5 0;
#X connect 22 0 6 0;
#X connect 23 0 7 0;
#X connect 24 0 8 0;
#X connect 25 0 18 0;
#X connect 26 0 17 0;
#X connect 27 0 1 1;
#X restore 489 470 pd lightcompass;
#N canvas 332 77 370 553 spinningcompass 0;
#X obj 106 509 s NOTE;
#X obj 107 278 sel 0;
#X obj 134 374 + 9000;
#X floatatom 134 396 5 0 0 0 - - - 0;
#X obj 134 430 pack f 300;
#X msg 103 473 \$1 0 \$2 0;
#X floatatom 222 413 5 0 0 0 - - - 0;
#X obj 134 300 t a b;
#X obj 255 380 s NOTE;
#X obj 134 352 pipe 100;
#X obj 201 116 timer;
#X floatatom 201 138 5 0 0 0 - - - 0;
#X obj 201 87 t b b;
#X obj 201 64 bng 18 250 50 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000;
#X obj 201 189 expr 1/$f1;
#X floatatom 201 211 10 0 0 0 - - - 0;
#X obj 201 163 / 1000;
#X floatatom 201 254 8 0 0 0 - - - 0;
#X obj 107 46 t a b;
#X msg 255 358 9000 0 20000 0;
#X msg 29 340 9000 0 20000 0;
#X obj 107 17 inlet;
#X obj 201 232 * 130;
#X connect 1 0 20 0;
#X connect 1 1 7 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 4 1;
#X connect 7 0 9 0;
#X connect 7 1 19 0;
#X connect 9 0 2 0;
#X connect 10 0 11 0;
#X connect 11 0 16 0;
#X connect 12 0 10 0;
#X connect 12 1 10 1;
#X connect 13 0 12 0;
#X connect 14 0 15 0;
#X connect 15 0 22 0;
#X connect 16 0 14 0;
#X connect 17 0 4 1;
#X connect 18 0 1 0;
#X connect 18 1 13 0;
#X connect 19 0 8 0;
#X connect 20 0 0 0;
#X connect 21 0 18 0;
#X connect 22 0 17 0;
#X restore 618 444 pd spinningcompass;
#X obj 546 269 + 1;
#X obj 318 202 + 180;
#X obj 318 225 mod 360;
#X floatatom 318 248 5 0 0 0 - - - 0;
#X text 308 25 108 121 136 150 166 200 233 267 300;
#X obj 341 98 moses 103;
#X obj 698 238 moses 300;
#X obj 647 218 moses 240;
#X obj 596 198 moses 191;
#X obj 545 178 moses 162;
#X obj 494 158 moses 140;
#X obj 443 138 moses 125;
#X obj 392 118 moses 112;
#X obj 436 362 sel 0;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 3 1 4 0;
#X connect 4 0 13 0;
#X connect 4 0 50 0;
#X connect 5 0 38 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 14 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 13 0 10 0;
#X connect 14 0 16 0;
#X connect 14 1 15 1;
#X connect 15 0 17 0;
#X connect 15 1 18 0;
#X connect 16 0 15 0;
#X connect 17 0 19 0;
#X connect 18 0 19 1;
#X connect 19 0 6 0;
#X connect 20 0 32 0;
#X connect 21 0 30 0;
#X connect 22 0 30 0;
#X connect 23 0 30 0;
#X connect 24 0 30 0;
#X connect 25 0 30 0;
#X connect 26 0 30 0;
#X connect 27 0 30 0;
#X connect 28 0 30 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 42 0;
#X connect 31 0 43 0;
#X connect 31 0 62 0;
#X connect 32 0 6 0;
#X connect 33 0 34 0;
#X connect 33 0 49 0;
#X connect 34 0 35 0;
#X connect 34 1 36 0;
#X connect 35 0 37 0;
#X connect 36 0 37 0;
#X connect 37 0 38 1;
#X connect 38 0 3 0;
#X connect 39 0 40 0;
#X connect 40 0 33 0;
#X connect 41 0 46 0;
#X connect 42 0 47 0;
#X connect 43 0 48 0;
#X connect 44 0 43 1;
#X connect 45 0 42 1;
#X connect 46 0 45 0;
#X connect 46 1 44 0;
#X connect 49 0 41 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 52 0 54 0;
#X connect 54 0 21 0;
#X connect 54 1 61 0;
#X connect 55 0 28 0;
#X connect 55 1 29 0;
#X connect 56 0 27 0;
#X connect 56 1 55 0;
#X connect 57 0 26 0;
#X connect 57 1 56 0;
#X connect 58 0 25 0;
#X connect 58 1 57 0;
#X connect 59 0 24 0;
#X connect 59 1 58 0;
#X connect 60 0 23 0;
#X connect 60 1 59 0;
#X connect 61 0 22 0;
#X connect 61 1 60 0;
#X connect 62 0 47 1;
Reference in a new issue View git blame Copy permalink