VCVRack
/
Rack
mirror of https://github.com/VCVRack/Rack.git
1
0
Fork 0
Code Issues 0 Releases 43 Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1351 Commits
4 Branches
541MB
Tree: d22e99cd81
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'd22e99cd81'
${ noResults }
Rack/plugins/community/repos/trowaSoft/pd/trigSeq64_Launchpad.pd

477 lines
13KB
Raw Blame History 

  1. #N canvas 1292 262 319 190 10;

  2. #N canvas 579 0 1240 993 send_OSC 0;

  3. #X obj 327 45 cnv 15 305 63 empty empty empty 20 12 0 14 -135168 -66577

  4. 0;

  5. #X obj 260 304 r OSC;

  6. #X obj 76 9 import mrpeach;

  7. #X obj 260 327 packOSC;

  8. #X obj 313 365 udpsend;

  9. #X obj 389 319 prepend connect;

  10. #X obj 389 298 pack s f;

  11. #X obj 436 269 fromsymbol;

  12. #X msg 313 298 disconnect;

  13. #X obj 461 172 t b s b;

  14. #X obj 376 392 s def_ip;

  15. #X obj 376 373 prepend set;

  16. #X obj 334 172 t s s b;

  17. #X obj 376 354 tosymbol;

  18. #X obj 465 373 prepend set;

  19. #X obj 465 354 tosymbol;

  20. #X obj 75 32 loadbang;

  21. #X obj 75 49 t b b b;

  22. #X obj 39 160 s IP;

  23. #X msg 201 124 7001;

  24. #X obj 201 141 l2s;

  25. #X msg 39 118 127.0.0.1;

  26. #X obj 39 139 tosymbol;

  27. #X obj 47 97 r def_ip;

  28. #X obj 542 64 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1

  29. -1;

  30. #X text 559 63 Disconnect;

  31. #X symbolatom 334 64 15 0 0 2 IP IP -, f 15;

  32. #X symbolatom 490 64 7 0 0 2 Out_Port OUT_PORT -, f 7;

  33. #X obj 201 158 s OUT_PORT;

  34. #X text 338 79 (127.0.0.1 for local machine), f 14;

  35. #X symbolatom 435 64 7 0 0 2 In_Port IN_PORT -, f 7;

  36. #X obj 212 95 r def_out_port;

  37. #X obj 465 392 s def_out_port;

  38. #X obj 593 265 udpreceive 7000;

  39. #X obj 593 282 unpackOSC;

  40. #X obj 593 299 routeOSC /tsseq;

  41. #X obj 653 568 routeOSC /state /patt /len /omode;

  42. #X obj 653 618 ctlout 107;

  43. #X text 725 615 PLAY status;

  44. #N canvas 0 0 450 300 (subpatch) 0;

  45. #X array active_steps 64 float 2 black black;

  46. #X coords 0 1 64 -1 102 34 1;

  47. #X restore 690 57 graph;

  48. #N canvas 1221 21 450 438 draw_steps 0;

  49. #X obj 223 355 noteout;

  50. #X obj 226 172 unpack f f, f 13;

  51. #X obj 249 189 swap;

  52. #X obj 249 206 tabwrite active_steps;

  53. #X obj 64 28 inlet;

  54. #X obj 174 138 pack f f;

  55. #X obj 174 86 s2l /;

  56. #X obj 174 67 unpack s f;

  57. #X obj 174 48 routeOSC /step;

  58. #X obj 225 295 expr int($f1 / 8) * 16 + $f1 % 8;

  59. #X obj 55 188 pack f f;

  60. #X obj 52 214 print DEBUG;

  61. #X obj 159 114 - 1;

  62. #X text 370 346 color;

  63. #X obj 323 250 r color_step;

  64. #X obj 244 332 expr if($f1 == 0 \, 0 \, $f2);

  65. #X connect 1 0 2 0;

  66. #X connect 1 0 9 0;

  67. #X connect 1 1 2 1;

  68. #X connect 1 1 15 0;

  69. #X connect 2 0 3 0;

  70. #X connect 2 1 3 1;

  71. #X connect 4 0 8 0;

  72. #X connect 5 0 1 0;

  73. #X connect 6 0 12 0;

  74. #X connect 7 0 6 0;

  75. #X connect 7 1 5 1;

  76. #X connect 8 0 7 0;

  77. #X connect 9 0 0 0;

  78. #X connect 9 0 10 1;

  79. #X connect 10 0 11 0;

  80. #X connect 12 0 5 0;

  81. #X connect 12 0 10 0;

  82. #X connect 14 0 15 1;

  83. #X connect 15 0 0 1;

  84. #X restore 726 468 pd draw_steps;

  85. #N canvas 660 28 450 415 playhead 0;

  86. #X obj 142 122 tabread active_steps;

  87. #X obj 136 98 f;

  88. #X obj 113 219 expr int($f1 / 8) * 16 + $f1 % 8;

  89. #X obj 97 349 noteout;

  90. #X obj 116 74 t f f b;

  91. #X obj 125 180 noteout;

  92. #X obj 125 163 expr int($f1 / 8) * 16 + $f1 % 8;

  93. #X text 171 326 PLAYHEAD 44 = med green;

  94. #X obj 29 12 inlet;

  95. #X obj 78 42 - 1;

  96. #X obj 141 259 r color_play;

  97. #X obj 98 326 pack f f;

  98. #X obj 230 259 loadbang;

  99. #X msg 190 293 44;

  100. #X text 290 138 color;

  101. #X obj 269 72 r color_step;

  102. #X obj 141 141 expr if($f1 == 0 \, 0 \, $f2);

  103. #X connect 0 0 16 0;

  104. #X connect 1 0 0 0;

  105. #X connect 1 0 6 0;

  106. #X connect 2 0 11 0;

  107. #X connect 4 0 2 0;

  108. #X connect 4 1 1 1;

  109. #X connect 4 2 1 0;

  110. #X connect 6 0 5 0;

  111. #X connect 8 0 9 0;

  112. #X connect 9 0 4 0;

  113. #X connect 10 0 11 1;

  114. #X connect 11 0 3 0;

  115. #X connect 12 0 13 0;

  116. #X connect 13 0 11 1;

  117. #X connect 15 0 16 1;

  118. #X connect 16 0 5 1;

  119. #X restore 481 515 pd playhead;

  120. #X obj 593 245 prepend port;

  121. #X obj 593 212 fromsymbol;

  122. #X obj 567 178 t b s b;

  123. #X msg 670 211 7000;

  124. #X obj 103 138 tosymbol;

  125. #X obj 111 95 r def_in_port;

  126. #X obj 103 159 s IN_PORT;

  127. #X msg 103 116 7000;

  128. #X obj 20 43 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1

  129. -1;

  130. #X obj 707 268 prepend set;

  131. #X obj 707 249 tosymbol;

  132. #X obj 707 287 s def_in_port;

  133. #X obj 118 355 system;

  134. #X msg 118 331 ipconfig & pause;

  135. #X obj 441 88 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1

  136. -1;

  137. #X text 460 86 Show Local IP Info;

  138. #X obj 327 26 cnv 15 305 19 empty empty OSC\ Config 4 6 0 14 -2112

  139. -262144 0;

  140. #X obj 634 329 routeOSC /play /edit;

  141. #X obj 592 387 routeOSC /clock;

  142. #X obj 346 482 print /clock;

  143. #X obj 775 383 routeOSC /step/led;

  144. #X obj 777 428 print /tsseq/step/led;

  145. #X obj 653 595 expr if($f1 > 0 \, 60 \, 0);

  146. #X connect 1 0 3 0;

  147. #X connect 3 0 4 0;

  148. #X connect 5 0 4 0;

  149. #X connect 6 0 5 0;

  150. #X connect 7 0 6 1;

  151. #X connect 7 0 15 0;

  152. #X connect 8 0 4 0;

  153. #X connect 9 0 6 0;

  154. #X connect 9 1 7 0;

  155. #X connect 9 2 8 0;

  156. #X connect 11 0 10 0;

  157. #X connect 12 0 13 0;

  158. #X connect 12 1 6 0;

  159. #X connect 12 2 8 0;

  160. #X connect 13 0 11 0;

  161. #X connect 14 0 32 0;

  162. #X connect 15 0 14 0;

  163. #X connect 16 0 17 0;

  164. #X connect 17 0 21 0;

  165. #X connect 17 1 49 0;

  166. #X connect 17 2 19 0;

  167. #X connect 19 0 20 0;

  168. #X connect 20 0 28 0;

  169. #X connect 21 0 22 0;

  170. #X connect 22 0 18 0;

  171. #X connect 23 0 21 0;

  172. #X connect 24 0 8 0;

  173. #X connect 26 0 12 0;

  174. #X connect 27 0 9 0;

  175. #X connect 30 0 44 0;

  176. #X connect 31 0 19 0;

  177. #X connect 33 0 34 0;

  178. #X connect 34 0 35 0;

  179. #X connect 35 0 59 0;

  180. #X connect 35 0 60 0;

  181. #X connect 35 0 62 0;

  182. #X connect 36 0 64 0;

  183. #X connect 42 0 33 0;

  184. #X connect 43 0 42 0;

  185. #X connect 43 0 52 0;

  186. #X connect 44 0 6 0;

  187. #X connect 44 1 43 0;

  188. #X connect 44 2 8 0;

  189. #X connect 45 0 42 0;

  190. #X connect 46 0 48 0;

  191. #X connect 47 0 49 0;

  192. #X connect 49 0 46 0;

  193. #X connect 50 0 17 0;

  194. #X connect 51 0 53 0;

  195. #X connect 52 0 51 0;

  196. #X connect 55 0 54 0;

  197. #X connect 56 0 55 0;

  198. #X connect 59 0 36 0;

  199. #X connect 59 1 40 0;

  200. #X connect 60 0 41 0;

  201. #X connect 64 0 37 0;

  202. #X coords 0 -1 1 1 307 84 2 326 25;

  203. #X restore 6 39 pd send_OSC;

  204. #N canvas 132 90 1196 806 MIDI_crap 0;

  205. #X obj 32 -213 notein;

  206. #X obj 61 85 expr $f1 % 16 < 8;

  207. #X obj 28 102 spigot;

  208. #X obj 28 68 t f f, f 6;

  209. #X obj 207 -167 spigot;

  210. #X obj 207 -204 t f f;

  211. #X obj 234 -187 expr $f1 % 16 > 7;

  212. #X obj 208 -144 expr $f1 / 16 - 0.5;

  213. #X obj 407 -193 ctlin;

  214. #X obj 407 -168 swap;

  215. #X obj 406 -68 pack f f;

  216. #X obj 610 345 spigot;

  217. #X obj 319 461 spigot;

  218. #X text 71 101 Launchpad Pad Note -> 0-63;

  219. #X text 252 -167 RHS Buttons;

  220. #X text 404 -215 Control Messages (Top Buttons);

  221. #X text 449 -197 Top buttons 104-111;

  222. #X text 671 -212 104: learn ^ btn;

  223. #X text 670 -192 105: view down btn;

  224. #X text 671 -172 106: page < btn;

  225. #X text 674 -154 107: page > btn;

  226. #X text 674 -136 108: inst session btn;

  227. #X text 675 -114 109: fx user 1 btn;

  228. #X text 677 -76 111: mixer mixer btn;

  229. #X text 674 -95 110: user user 2 btn;

  230. #X obj 406 -44 route 104 105 106 107 108 109 110 111;

  231. #X text 651 383 Send Step;

  232. #X text 560 43 Mixer btn (111);

  233. #X obj 499 41 expr $f1;

  234. #X text 497 23 user (user 2) btn (110);

  235. #X obj 318 363 spigot;

  236. #X obj 437 26 expr $f1;

  237. #X text 435 8 fx (user 1) btn (109);

  238. #X obj -13 419 spigot;

  239. #X text 38 421 comment;

  240. #X text 363 362 comment;

  241. #X text 367 464 comment;

  242. #X obj 38 402 expr if($f1 > 0 \, 1 \, 0);

  243. #X text 921 177 Page > (107);

  244. #X obj 373 346 expr if($f1 > 0 \, 1 \, 0);

  245. #X obj 370 444 expr if($f1 > 0 \, 1 \, 0);

  246. #X obj 922 228 expr if($f1>0 \, 1 \, 0);

  247. #X obj 562 61 expr $f1;

  248. #X obj 923 195 expr $f1;

  249. #X obj 8 288 spigot;

  250. #X obj 66 268 expr if($f1 > 0 \, 1 \, 0);

  251. #X obj 375 7 expr $f1;

  252. #X text 373 -10 inst session btn (108);

  253. #X text 11 247 PAD: Jump Step (PLAYING step) (Hold inst session 108)

  254. , f 55;

  255. #X text -12 358 PAD: Select PLAY Length (Hold Fx User 1 109);

  256. #X text 320 326 PAD: Select PLAY Pattern (Hold User 2 110);

  257. #X text 317 423 PAD: Select *EDIT* Pattern (Hold Mixer 111);

  258. #X text 651 396 Send step if ctrl btns not pressed;

  259. #X obj 670 317 expr if($f1 > 0 \, 0 \, 1);

  260. #X obj 1014 256 expr if($f1>0 \, 1 \, 0);

  261. #X obj 915 302 expr ($f1+$f2)==2;

  262. #X obj 916 327 spigot;

  263. #X text 834 280 Toggle Performance Mode: user user 2 btn + Page > btn

  264. ;

  265. #X obj 32 -189 stripnote;

  266. #X obj 679 69 prepend sendtyped /tsseq/play/state/tog i;

  267. #X obj 914 348 prepend sendtyped /tsseq/mode/tog i;

  268. #X obj 610 365 prepend sendtyped /tsseq/edit/step/tog i;

  269. #X obj 477 -144 stripnote;

  270. #X obj 477 -107 pack f f;

  271. #X obj 478 -80 route 104 105 106 107;

  272. #X text 699 46 Play/Pause: Page > btn;

  273. #X obj 649 -19 s OSC;

  274. #X obj 610 389 s OSC;

  275. #X obj 8 330 s OSC;

  276. #X obj -15 465 s OSC;

  277. #X obj 914 369 s OSC;

  278. #X obj 679 91 s OSC;

  279. #X obj 682 284 loadbang;

  280. #X obj 318 397 s OSC;

  281. #X obj 318 509 s OSC;

  282. #X obj 615 245 s OSC;

  283. #X obj 28 203 s press;

  284. #X obj 610 319 r press;

  285. #X obj 316 441 r press;

  286. #X obj 318 343 r press;

  287. #X obj -13 377 r press;

  288. #X obj 8 267 r press;

  289. #X text 614 132 Right Side Buttons: Select *EDIT* Channel 1-8 (Hold

  290. Mixer button for 9-16), f 47;

  291. #X obj 149 58 noteout;

  292. #X obj 223 -98 s sidebtns;

  293. #X obj 615 164 r sidebtns;

  294. #X obj 198 -71 uzi 8;

  295. #X obj 198 -33 cup;

  296. #X msg 212 -52 0;

  297. #X obj 115 -43 f;

  298. #X obj 170 -97 t b b;

  299. #X obj 202 14 expr ($f1 + 1) * 16 - 8;

  300. #X obj 136 -69 delay 20;

  301. #X obj 202 36 makenote 12 1;

  302. #X obj 629 205 s edit_ch;

  303. #X obj 125 -18 r edit_ch;

  304. #X obj 77 38 pack f f;

  305. #X obj 730 -3 cnv 15 305 19 empty empty MIDI\ I/O\ Patch 4 6 0 14 -2112

  306. -262144 0;

  307. #X obj 28 119 expr (int($f1/16)*8 + $f1 % 16);

  308. #X obj 680 442 print;

  309. #X obj 45 164 + 1;

  310. #X obj 615 228 prepend sendtyped /tsseq/edit/ch i;

  311. #X obj 615 181 expr if($f2 > 0 \, $f1 + 8 \, $f1) + 1;

  312. #X msg 648 -41 send /tsseq/play/reset, f 27;

  313. #X obj 8 309 prepend sendtyped /tsseq/play/step i;

  314. #X obj -13 444 prepend sendtyped /tsseq/play/len i;

  315. #X obj -13 399 f;

  316. #X obj 318 380 prepend sendtyped /tsseq/play/pat i;

  317. #X obj 319 486 prepend sendtyped /tsseq/edit/pat i;

  318. #X obj 45 12 expr if($f1 > 7 \, 15 \, 13);

  319. #X obj 847 -28 s OSC;

  320. #X msg 846 -50 send /tsseq/edit/step/rnd, f 27;

  321. #X connect 0 0 58 0;

  322. #X connect 0 1 58 1;

  323. #X connect 1 0 2 1;

  324. #X connect 2 0 98 0;

  325. #X connect 3 0 2 0;

  326. #X connect 3 1 1 0;

  327. #X connect 4 0 7 0;

  328. #X connect 5 0 4 0;

  329. #X connect 5 1 6 0;

  330. #X connect 6 0 4 1;

  331. #X connect 7 0 84 0;

  332. #X connect 7 0 90 0;

  333. #X connect 8 0 9 0;

  334. #X connect 8 1 9 1;

  335. #X connect 9 0 10 0;

  336. #X connect 9 0 62 0;

  337. #X connect 9 1 10 1;

  338. #X connect 9 1 62 1;

  339. #X connect 10 0 25 0;

  340. #X connect 11 0 61 0;

  341. #X connect 12 0 108 0;

  342. #X connect 25 3 43 0;

  343. #X connect 25 4 46 0;

  344. #X connect 25 5 31 0;

  345. #X connect 25 6 28 0;

  346. #X connect 25 7 42 0;

  347. #X connect 28 0 39 0;

  348. #X connect 28 0 53 0;

  349. #X connect 28 0 54 0;

  350. #X connect 30 0 107 0;

  351. #X connect 31 0 37 0;

  352. #X connect 31 0 53 0;

  353. #X connect 33 0 105 0;

  354. #X connect 37 0 33 1;

  355. #X connect 39 0 30 1;

  356. #X connect 40 0 12 1;

  357. #X connect 41 0 55 0;

  358. #X connect 42 0 40 0;

  359. #X connect 42 0 53 0;

  360. #X connect 42 0 102 1;

  361. #X connect 43 0 41 0;

  362. #X connect 44 0 104 0;

  363. #X connect 45 0 44 1;

  364. #X connect 46 0 45 0;

  365. #X connect 46 0 53 0;

  366. #X connect 53 0 11 1;

  367. #X connect 54 0 55 1;

  368. #X connect 55 0 56 1;

  369. #X connect 55 0 56 0;

  370. #X connect 56 0 60 0;

  371. #X connect 58 0 3 0;

  372. #X connect 58 0 5 0;

  373. #X connect 58 0 89 1;

  374. #X connect 59 0 71 0;

  375. #X connect 60 0 70 0;

  376. #X connect 61 0 67 0;

  377. #X connect 61 0 99 0;

  378. #X connect 62 0 63 0;

  379. #X connect 62 1 63 1;

  380. #X connect 63 0 64 0;

  381. #X connect 64 0 111 0;

  382. #X connect 64 2 103 0;

  383. #X connect 64 3 59 0;

  384. #X connect 72 0 53 0;

  385. #X connect 77 0 11 0;

  386. #X connect 78 0 12 0;

  387. #X connect 79 0 30 0;

  388. #X connect 80 0 106 0;

  389. #X connect 81 0 44 0;

  390. #X connect 85 0 102 0;

  391. #X connect 86 0 87 0;

  392. #X connect 86 1 88 0;

  393. #X connect 87 0 91 0;

  394. #X connect 88 0 87 0;

  395. #X connect 89 0 96 0;

  396. #X connect 90 0 92 0;

  397. #X connect 90 1 86 0;

  398. #X connect 91 0 93 0;

  399. #X connect 92 0 89 0;

  400. #X connect 93 0 83 0;

  401. #X connect 93 1 83 1;

  402. #X connect 95 0 109 0;

  403. #X connect 96 0 83 0;

  404. #X connect 98 0 100 0;

  405. #X connect 100 0 76 0;

  406. #X connect 101 0 75 0;

  407. #X connect 102 0 94 0;

  408. #X connect 102 0 101 0;

  409. #X connect 103 0 66 0;

  410. #X connect 104 0 68 0;

  411. #X connect 105 0 69 0;

  412. #X connect 106 0 33 0;

  413. #X connect 107 0 73 0;

  414. #X connect 108 0 74 0;

  415. #X connect 109 0 96 1;

  416. #X connect 111 0 110 0;

  417. #X coords 0 -1 1 1 307 21 2 729 -4;

  418. #X restore 6 125 pd MIDI_crap;

  419. #X text 17 4 Be sure to select your Launchpad as the first MIDI input

  420. and output device in PD preferences, f 49;

  421. #N canvas 174 528 450 417 play_color 0;

  422. #X obj 80 330 s color_play;

  423. #X msg 81 308 60;

  424. #X text 73 350 Color = (16 x Green) + Red + 12;

  425. #X obj 81 39 vsl 15 128 0 3 0 1 empty empty empty 0 -9 0 10 -262144

  426. -1 -1 12700 1;

  427. #X text 72 173 green;

  428. #X obj 121 39 vsl 15 128 0 3 0 1 empty empty empty 0 -9 0 10 -262144

  429. -1 -1 0 1;

  430. #X text 118 173 red;

  431. #X obj 81 229 expr (16 * int($f1)) + int($f2) + 12, f 37;

  432. #X obj 81 204 f;

  433. #X obj 178 167 t b f;

  434. #X obj 81 252 prepend set;

  435. #X obj 28 269 t b;

  436. #X obj 20 294 delay 1;

  437. #X connect 1 0 0 0;

  438. #X connect 3 0 8 0;

  439. #X connect 5 0 9 0;

  440. #X connect 7 0 10 0;

  441. #X connect 8 0 7 0;

  442. #X connect 9 0 8 0;

  443. #X connect 9 1 7 1;

  444. #X connect 10 0 1 0;

  445. #X connect 10 0 11 0;

  446. #X connect 11 0 12 0;

  447. #X connect 12 0 1 0;

  448. #X restore 8 159 pd play_color;

  449. #N canvas 673 512 450 463 step_color 0;

  450. #X msg 81 308 15;

  451. #X text 73 350 Color = (16 x Green) + Red + 12;

  452. #X obj 81 39 vsl 15 128 0 3 0 1 empty empty empty 0 -9 0 10 -262144

  453. -1 -1 0 1;

  454. #X text 72 173 green;

  455. #X obj 121 39 vsl 15 128 0 3 0 1 empty empty empty 0 -9 0 10 -262144

  456. -1 -1 12700 1;

  457. #X text 118 173 red;

  458. #X obj 81 229 expr (16 * int($f1)) + int($f2) + 12, f 37;

  459. #X obj 81 204 f;

  460. #X obj 178 167 t b f;

  461. #X obj 81 252 prepend set;

  462. #X obj 28 269 t b;

  463. #X obj 20 294 delay 1;

  464. #X obj 80 330 s color_step;

  465. #X connect 0 0 12 0;

  466. #X connect 2 0 7 0;

  467. #X connect 4 0 8 0;

  468. #X connect 6 0 9 0;

  469. #X connect 7 0 6 0;

  470. #X connect 8 0 7 0;

  471. #X connect 8 1 6 1;

  472. #X connect 9 0 0 0;

  473. #X connect 9 0 10 0;

  474. #X connect 10 0 11 0;

  475. #X connect 11 0 0 0;

  476. #X restore 98 158 pd step_color;