Rack/plugins/community/repos/trowaSoft/pd/trigSeq_Maschine.pd

#N canvas 953 13 327 210 10;
#N canvas 913 452 960 539 send_OSC 0;
#X obj 327 45 cnv 15 305 63 empty empty empty 20 12 0 14 -262144 -66577
0;
#X obj 260 304 r OSC;
#X obj 76 9 import mrpeach;
#X obj 260 327 packOSC;
#X obj 313 365 udpsend;
#X obj 389 319 prepend connect;
#X obj 389 298 pack s f;
#X obj 436 269 fromsymbol;
#X msg 313 298 disconnect;
#X obj 461 172 t b s b;
#X obj 376 392 s def_ip;
#X obj 376 373 prepend set;
#X obj 334 172 t s s b;
#X obj 376 354 tosymbol;
#X obj 465 373 prepend set;
#X obj 465 354 tosymbol;
#X obj 75 32 loadbang;
#X obj 75 49 t b b b;
#X obj 39 160 s IP;
#X msg 201 124 7001;
#X obj 201 141 l2s;
#X msg 39 118 127.0.0.1;
#X obj 39 139 tosymbol;
#X obj 47 97 r def_ip;
#X obj 542 64 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 559 63 Disconnect;
#X symbolatom 334 64 15 0 0 2 IP IP -, f 15;
#X symbolatom 490 64 7 0 0 2 Out_Port OUT_PORT -, f 7;
#X obj 201 158 s OUT_PORT;
#X text 338 79 (127.0.0.1 for local machine), f 14;
#X symbolatom 435 64 7 0 0 2 In_Port IN_PORT -, f 7;
#X obj 212 95 r def_out_port;
#X obj 465 392 s def_out_port;
#X obj 593 265 udpreceive 7000;
#X obj 593 282 unpackOSC;
#X obj 593 299 routeOSC /tsseq;
#X obj 744 418 expr if($f1 > 0 \, 32 \, 0);
#X text 816 438 PLAY status;
#N canvas 0 0 450 300 (subpatch) 0;
#X array active_steps 16 float 2 black black;
#X coords 0 1 16 -1 102 34 1;
#X restore 671 54 graph;
#N canvas 1086 29 450 369 draw_steps 0;
#X obj 145 242 noteout;
#X obj 145 102 unpack f f, f 13;
#X obj 168 129 swap;
#X obj 168 156 tabwrite active_steps;
#X obj 80 14 inlet, f 7;
#X obj 164 216 expr if($f1 == 0 \, 0 \, 1);
#X obj 30 83 print;
#X obj 78 39 unpack s f;
#X obj 76 65 s2l /;
#X obj 79 96 pack f f;
#X obj 144 180 f;
#X connect 1 0 2 0;
#X connect 1 0 10 0;
#X connect 1 1 2 1;
#X connect 1 1 5 0;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 4 0 6 0;
#X connect 4 0 7 0;
#X connect 5 0 0 1;
#X connect 7 0 8 0;
#X connect 7 1 9 1;
#X connect 8 0 9 0;
#X connect 9 0 1 0;
#X connect 10 0 0 0;
#X restore 578 445 pd draw_steps;
#N canvas 909 16 450 369 playhead 0;
#X obj 159 126 tabread active_steps;
#X obj 153 102 f;
#X obj 113 265 noteout;
#X obj 116 74 t f f b;
#X obj 142 191 noteout;
#X obj 114 242 pack f 44;
#X obj 96 28 inlet;
#X obj 158 145 expr if($f1 == 0 \, 0 \, 1);
#X text 147 221 PLAYHEAD;
#X obj 47 130 print;
#X obj 113 219 f;
#X obj 144 166 f;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 1 0 11 0;
#X connect 3 0 10 0;
#X connect 3 1 1 1;
#X connect 3 2 1 0;
#X connect 5 0 2 0;
#X connect 6 0 3 0;
#X connect 6 0 9 0;
#X connect 7 0 4 1;
#X connect 10 0 5 0;
#X connect 11 0 4 0;
#X restore 616 392 pd playhead;
#X obj 593 245 prepend port;
#X obj 593 212 fromsymbol;
#X obj 567 178 t b s b;
#X msg 670 211 7000;
#X obj 103 138 tosymbol;
#X obj 111 95 r def_in_port;
#X obj 103 159 s IN_PORT;
#X msg 103 116 7000;
#X obj 20 43 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 707 268 prepend set;
#X obj 707 249 tosymbol;
#X obj 707 287 s def_in_port;
#X obj 118 355 system;
#X msg 118 331 ipconfig & pause;
#X obj 441 88 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 460 86 Show Local IP Info;
#X obj 327 26 cnv 15 305 19 empty empty OSC\ Config 4 6 0 14 -2112
-262144 0;
#X obj 744 441 ctlout 108;
#X obj 592 320 routeOSC /edit /play;
#X obj 568 350 routeOSC /step;
#X obj 344 440 print;
#X obj 616 368 routeOSC /clock;
#X obj 726 368 routeOSC /state;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 7 0 6 1;
#X connect 7 0 15 0;
#X connect 8 0 4 0;
#X connect 9 0 6 0;
#X connect 9 1 7 0;
#X connect 9 2 8 0;
#X connect 11 0 10 0;
#X connect 12 0 13 0;
#X connect 12 1 6 0;
#X connect 12 2 8 0;
#X connect 13 0 11 0;
#X connect 14 0 32 0;
#X connect 15 0 14 0;
#X connect 16 0 17 0;
#X connect 17 0 21 0;
#X connect 17 1 48 0;
#X connect 17 2 19 0;
#X connect 19 0 20 0;
#X connect 20 0 28 0;
#X connect 21 0 22 0;
#X connect 22 0 18 0;
#X connect 23 0 21 0;
#X connect 24 0 8 0;
#X connect 26 0 12 0;
#X connect 27 0 9 0;
#X connect 30 0 43 0;
#X connect 31 0 19 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 59 0;
#X connect 36 0 58 0;
#X connect 41 0 33 0;
#X connect 42 0 41 0;
#X connect 42 0 51 0;
#X connect 43 0 6 0;
#X connect 43 1 42 0;
#X connect 43 2 8 0;
#X connect 44 0 41 0;
#X connect 45 0 47 0;
#X connect 46 0 48 0;
#X connect 48 0 45 0;
#X connect 49 0 17 0;
#X connect 50 0 52 0;
#X connect 51 0 50 0;
#X connect 54 0 53 0;
#X connect 55 0 54 0;
#X connect 59 0 60 0;
#X connect 59 1 63 0;
#X connect 59 2 62 0;
#X connect 60 0 39 0;
#X connect 62 0 40 0;
#X connect 63 0 36 0;
#X coords 0 -1 1 1 307 84 2 326 25;
#X restore 9 37 pd send_OSC;
#N canvas 655 15 538 831 MIDI_crap 0;
#X obj 265 -36 notein;
#X obj 49 -33 ctlin;
#X obj 48 -11 swap;
#X obj 41 626 spigot;
#X text 82 664 Send Step;
#X obj 43 530 spigot;
#X text 82 677 Send step if ctrl btns not pressed;
#X obj 265 -12 stripnote;
#X obj 157 262 prepend sendtyped /tsseq/play/state/tog i;
#X obj 41 646 prepend sendtyped /tsseq/edit/step/tog i;
#X obj 166 28 stripnote;
#X obj 166 46 pack f f;
#X obj 145 331 s OSC;
#X obj 41 670 s OSC;
#X obj 43 572 s OSC;
#X obj 167 240 s OSC;
#X obj 157 284 s OSC;
#X obj 209 197 s OSC;
#X obj 131 401 s OSC;
#X obj 111 462 s OSC;
#X obj 268 36 s press;
#X obj 41 600 r press;
#X obj 43 509 r press;
#X obj 16 -74 cnv 15 305 19 empty empty MIDI\ I/O\ Patch 4 6 0 14 -2112
-262144 0;
#X text 196 282 RUN;
#X text 186 329 RESET;
#X text 208 240 Set PLAY Length;
#X text 248 199 Set PLAY Pattern;
#X text 96 511 Jump to Step (Hold PATTERN Button), f 23;
#X obj 94 599 invert;
#X obj 53 41 pack f f;
#X text 141 423 Set *EDIT* Channel, f 47;
#X text 167 354 Set *EDIT* Pattern;
#X obj 40 69 route 114 21 20;
#X obj 167 175 f;
#X obj 209 138 f;
#X obj 167 148 t b;
#X obj 210 110 t b;
#X obj 36 198 loadbang;
#X msg 36 220 0;
#X obj 141 69 route 104 108 17 49 14 46 15;
#X obj 274 105 / 100;
#X obj 272 151 s OSC;
#X text 314 149 Set BPM;
#X obj 273 126 prepend sendtyped /tsseq/play/bpm f;
#X obj 43 551 prepend sendtyped /tsseq/play/step i;
#X obj 266 12 f;
#X msg 144 309 send /tsseq/play/reset, f 27;
#X obj 132 378 prepend sendtyped /tsseq/edit/pat i;
#X obj 111 445 prepend sendtyped /tsseq/edit/ch i;
#X obj 114 423 f;
#X obj 132 355 f, f 4;
#X obj 169 219 prepend sendtyped /tsseq/play/len i;
#X obj 209 180 prepend sendtyped /tsseq/play/pat i;
#X obj 209 160 f;
#X connect 0 0 7 0;
#X connect 0 1 7 1;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 10 0;
#X connect 2 0 30 0;
#X connect 2 1 10 1;
#X connect 2 1 30 1;
#X connect 3 0 9 0;
#X connect 5 0 45 0;
#X connect 7 0 46 0;
#X connect 8 0 16 0;
#X connect 9 0 13 0;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 40 0;
#X connect 21 0 3 0;
#X connect 22 0 5 0;
#X connect 29 0 3 1;
#X connect 30 0 33 0;
#X connect 33 0 29 0;
#X connect 33 0 5 1;
#X connect 33 1 50 0;
#X connect 33 2 51 0;
#X connect 34 0 52 0;
#X connect 35 0 54 0;
#X connect 36 0 34 0;
#X connect 37 0 35 0;
#X connect 38 0 39 0;
#X connect 39 0 5 1;
#X connect 39 0 29 0;
#X connect 40 0 47 0;
#X connect 40 1 8 0;
#X connect 40 2 34 1;
#X connect 40 3 36 0;
#X connect 40 4 35 1;
#X connect 40 5 37 0;
#X connect 40 6 41 0;
#X connect 41 0 44 0;
#X connect 44 0 42 0;
#X connect 45 0 14 0;
#X connect 46 0 20 0;
#X connect 47 0 12 0;
#X connect 48 0 18 0;
#X connect 49 0 19 0;
#X connect 50 0 49 0;
#X connect 51 0 48 0;
#X connect 52 0 15 0;
#X connect 53 0 17 0;
#X connect 54 0 53 0;
#X coords 0 -1 1 1 307 21 2 15 -75;
#X restore 9 133 pd MIDI_crap;
#X text 5 3 Be sure to select your Maschine Controller as the first
MIDI input and output device in PD preferences, f 52;
#X text 19 158 ** Press "Ctrl + e" for edit mode then right click on
any of the blue areas above and select "Open" to edit the sub-patches.**
, f 48;