rover/pd/rover.pd
2023-06-27 23:37:11 +09:00

91 lines
2.8 KiB
Text

#N struct 1005-point float x0 float y0 float xs float ys float fg float in float gridx float gridy;
#N struct 1451-point float x0 float y0 float xs float ys float fg float in float gridx float gridy;
#N canvas 286 118 989 427 10;
#X obj 20 15 udpreceive 57000;
#X floatatom 20 119 5 0 0 3 x - - 0;
#X floatatom 54 119 5 0 0 3 y - - 0;
#X obj 20 36 unpackOSC;
#X obj 20 57 routeOSC /rover;
#X floatatom 89 119 5 0 0 3 z - - 0;
#X obj 20 78 unpack f f f f f f f;
#X floatatom 136 129 5 0 0 3 pan - - 0;
#X floatatom 170 129 5 0 0 3 tilt - - 0;
#X floatatom 205 129 5 0 0 3 rot - - 0;
#X obj 185 55 tgl 18 0 empty empty grounded? 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 355 101 slider2d 300 300 0 127 0 127 1 255 255 255 0 0 0 0 0 0 5 5 empty empty;
#X obj 20 198 pack;
#X obj 20 221 list prepend set;
#X obj 20 245 list trim;
#N canvas 495 298 450 300 archive 0;
#X obj 27 216 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 137 204 disconnect;
#X msg 38 168 connect localhost 57001;
#X obj 27 195 udpsend;
#X obj 27 126 packOSC;
#X msg 27 105 /hue \$1;
#X obj 30 69 hsl 128 15 0 255 0 0 empty empty hue -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X text 82 29 send back some msg. to web;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X restore 900 10 pd archive;
#X msg 534 50 size 300;
#X obj 664 101 slider2d 300 300 -3.15 3.15 -3.15 3.15 1 255 255 255 0 0 0 0 0 0 -0.168 -0.278 empty empty;
#X obj 136 316 pack;
#X obj 136 339 list prepend set;
#X obj 136 363 list trim;
#X obj 20 268 s position;
#X obj 136 386 s head;
#X obj 355 67 r position;
#X obj 534 27 loadbang;
#X obj 664 62 r head;
#X floatatom 136 291 5 0 0 0 - - - 0;
#X floatatom 170 218 5 0 0 0 - - - 0;
#X obj 13 343 loadbang;
#X obj 13 366 pi 2;
#X obj 13 388 v PI2;
#X obj 68 366 pi 1;
#X obj 68 388 v PI;
#X msg 743 49 range -3.15 3.15;
#X listbox 661 18 20 0 0 0 - - - 0;
#X obj 136 242 expr if($f1 >= 0 \, fmod($f1+PI \, PI2)-PI \, fmod($f1-PI \, PI2)+PI), f 21;
#X obj 170 169 expr if($f1 >= 0 \, fmod($f1+PI \, PI2)-PI \, fmod($f1-PI \, PI2)+PI), f 21;
#X connect 0 0 3 0;
#X connect 1 0 12 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 12 1;
#X connect 6 0 1 0;
#X connect 6 1 2 0;
#X connect 6 2 5 0;
#X connect 6 3 7 0;
#X connect 6 4 8 0;
#X connect 6 5 9 0;
#X connect 6 6 10 0;
#X connect 7 0 35 0;
#X connect 8 0 36 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 21 0;
#X connect 16 0 11 0;
#X connect 16 0 17 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 22 0;
#X connect 23 0 11 0;
#X connect 24 0 16 0;
#X connect 25 0 17 0;
#X connect 25 0 34 0;
#X connect 26 0 18 0;
#X connect 27 0 18 1;
#X connect 28 0 29 0;
#X connect 28 0 31 0;
#X connect 29 0 30 0;
#X connect 31 0 32 0;
#X connect 33 0 17 0;
#X connect 35 0 26 0;
#X connect 36 0 27 0;