ds_reg_table.pd 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414
  1. #N canvas 131 22 853 550 10;
  2. #N canvas 154 30 870 699 dispatch 0;
  3. #X obj 364 476 t b a;
  4. #X obj 364 158 t a a;
  5. #X obj 413 237 route bang;
  6. #X obj 413 158 r /ds/\$1\$2/redispatch;
  7. #X obj 364 1 r /ds/\$1\$2/dispatch;
  8. #X obj 762 431 list trim;
  9. #X obj 762 453 symbol;
  10. #X obj 762 89 list prepend \$2;
  11. #X obj 762 191 kdemux2;
  12. #X obj 801 143 t b a;
  13. #X msg 801 165 1;
  14. #X obj 801 214 list prepend;
  15. #X msg 801 236 \$1\$2;
  16. #X obj 762 341 kdemux2;
  17. #X obj 801 293 t b a;
  18. #X msg 801 315 1;
  19. #X msg 801 386 \$1\$2;
  20. #X obj 801 364 list append;
  21. #X obj 762 43 r \$0-init-complete;
  22. #X obj 801 271 r /ds/\$1\$2/name_append;
  23. #X obj 801 121 r /ds/\$1\$2/name_prepend;
  24. #X obj 364 403 kdemux2 1;
  25. #X obj 415 370 r /ds/\$1/transition/state;
  26. #X obj 413 215 list;
  27. #X obj 762 65 b;
  28. #X obj 415 438 s /ds/\$1\$2/transition/in;
  29. #X obj 415 476 r /ds/\$1\$2/transition/out;
  30. #X obj 364 609 s /ds/\$1\$2/dispatched;
  31. #N canvas 457 223 609 443 change 0;
  32. #X obj 105 43 inlet;
  33. #X obj 105 117 change;
  34. #X obj 105 329 outlet;
  35. #X obj 168 117 t a a;
  36. #X obj 207 142 list length;
  37. #X obj 207 164 > 1;
  38. #X obj 168 189 kdemux2;
  39. #X obj 208 231 symbol;
  40. #X obj 208 253 schange;
  41. #X obj 208 275 list trim;
  42. #X obj 105 75 route float;
  43. #X obj 287 27 r \$2;
  44. #X msg 287 71 set \$1;
  45. #X obj 350 71 t a a;
  46. #X obj 389 96 list length;
  47. #X obj 389 118 > 1;
  48. #X obj 350 143 kdemux2;
  49. #X obj 287 49 route float;
  50. #X text 380 220 todo: change for lists!;
  51. #X connect 0 0 10 0;
  52. #X connect 1 0 2 0;
  53. #X connect 3 0 6 0;
  54. #X connect 3 1 4 0;
  55. #X connect 4 0 5 0;
  56. #X connect 5 0 6 1;
  57. #X connect 6 0 7 0;
  58. #X connect 6 1 2 0;
  59. #X connect 7 0 8 0;
  60. #X connect 8 0 9 0;
  61. #X connect 9 0 2 0;
  62. #X connect 10 0 1 0;
  63. #X connect 10 1 3 0;
  64. #X connect 11 0 17 0;
  65. #X connect 12 0 1 0;
  66. #X connect 13 0 16 0;
  67. #X connect 13 1 14 0;
  68. #X connect 14 0 15 0;
  69. #X connect 15 0 16 1;
  70. #X connect 16 0 8 1;
  71. #X connect 17 0 12 0;
  72. #X connect 17 1 13 0;
  73. #X restore 403 322 pd change;
  74. #X obj 364 298 kdemux2;
  75. #X obj 565 147 r /ds/\$1\$2/change;
  76. #X obj 577 167 r /ds/\$1/change;
  77. #X obj 565 237 spigot 1;
  78. #X obj 610 213 == 0;
  79. #X obj 610 191 r /ds/\$1\$2/change/lock;
  80. #X obj 391 564 s;
  81. #X obj 47 124 list length;
  82. #X obj 364 124 list prepend 0;
  83. #X obj 364 32 t a a;
  84. #X obj 159 333 r /ds/\$1\$2/resize;
  85. #X obj 114 430 spigot 1;
  86. #X msg 47 452 const 0;
  87. #X obj 47 383 t b f;
  88. #X msg 114 452 resize \$1;
  89. #X obj 159 401 spigot 1;
  90. #X obj 204 377 == 0;
  91. #X obj 204 355 r /ds/\$1\$2/resize/lock;
  92. #X connect 0 0 27 0;
  93. #X connect 0 1 35 0;
  94. #X connect 1 0 29 0;
  95. #X connect 1 1 23 1;
  96. #X connect 2 1 29 0;
  97. #X connect 3 0 23 0;
  98. #X connect 4 0 38 0;
  99. #X connect 5 0 6 0;
  100. #X connect 6 0 35 1;
  101. #X connect 7 0 8 0;
  102. #X connect 8 0 13 0;
  103. #X connect 8 1 11 0;
  104. #X connect 9 0 10 0;
  105. #X connect 9 1 11 1;
  106. #X connect 10 0 8 1;
  107. #X connect 11 0 12 0;
  108. #X connect 12 0 13 0;
  109. #X connect 13 0 5 0;
  110. #X connect 13 1 17 0;
  111. #X connect 14 0 15 0;
  112. #X connect 14 1 17 1;
  113. #X connect 15 0 13 1;
  114. #X connect 16 0 5 0;
  115. #X connect 17 0 16 0;
  116. #X connect 18 0 24 0;
  117. #X connect 19 0 14 0;
  118. #X connect 20 0 9 0;
  119. #X connect 21 0 0 0;
  120. #X connect 21 1 25 0;
  121. #X connect 22 0 21 1;
  122. #X connect 23 0 2 0;
  123. #X connect 24 0 7 0;
  124. #X connect 26 0 35 0;
  125. #X connect 28 0 21 0;
  126. #X connect 29 0 21 0;
  127. #X connect 29 1 28 0;
  128. #X connect 30 0 32 0;
  129. #X connect 31 0 32 0;
  130. #X connect 32 0 29 1;
  131. #X connect 33 0 32 1;
  132. #X connect 34 0 33 0;
  133. #X connect 36 0 42 0;
  134. #X connect 37 0 1 0;
  135. #X connect 38 0 37 0;
  136. #X connect 38 1 36 0;
  137. #X connect 39 0 44 0;
  138. #X connect 40 0 43 0;
  139. #X connect 41 0 35 0;
  140. #X connect 42 0 41 0;
  141. #X connect 42 1 40 0;
  142. #X connect 43 0 35 0;
  143. #X connect 44 0 40 1;
  144. #X connect 45 0 44 1;
  145. #X connect 46 0 45 0;
  146. #X coords 0 699 1 698 85 60 0;
  147. #X restore 59 307 pd dispatch;
  148. #X obj 255 404 outlet slave-chain;
  149. #N canvas 488 22 784 717 fetch_and_route 0;
  150. #X obj 132 673 s /ds/\$1/fetched;
  151. #X obj 132 651 list prepend \$2;
  152. #X obj 51 219 t b b;
  153. #X msg 78 242 0;
  154. #X msg 171 337 1;
  155. #X obj 51 384 route bang set;
  156. #X obj 171 449 list trim;
  157. #X obj 241 493 s;
  158. #X obj 152 241 t b b a;
  159. #X text 161 202 route value;
  160. #X text 454 392 global route;
  161. #X text 464 414 local route;
  162. #X obj 51 359 list trim;
  163. #X obj 175 542 r /ds/\$1\$2/print;
  164. #X obj 175 586 list prepend \$0-print;
  165. #X obj 429 629 r \$0-print;
  166. #X obj -20 542 spigot;
  167. #X obj -20 564 t b b;
  168. #X msg -20 586 <not initialised>;
  169. #X msg 40 542 0;
  170. #X msg 13 515 1;
  171. #X obj 132 423 kdemux2;
  172. #X obj 90 91 r \$0-busy;
  173. #X obj 90 160 s \$0-print;
  174. #X obj 51 91 b;
  175. #X obj 51 115 kdemux2;
  176. #X msg 90 138 Busy! Could not be saved!;
  177. #X obj 175 608 s /ds/\$1\$2/route;
  178. #X obj 352 392 r /ds/\$1/route;
  179. #X obj 352 414 s /ds/\$1\$2/route;
  180. #X obj 152 219 r /ds/\$1\$2/route;
  181. #X obj 175 564 t b b;
  182. #X obj 429 651 print Kollabs/DS (\$1): \$2;
  183. #X obj 51 59 r /ds/\$1/fetch/tables;
  184. #X obj 51 337 ktabdump \$2;
  185. #X text 39 41 fetch table to storage;
  186. #X connect 1 0 0 0;
  187. #X connect 2 0 34 0;
  188. #X connect 2 1 3 0;
  189. #X connect 3 0 21 1;
  190. #X connect 4 0 21 1;
  191. #X connect 5 0 16 0;
  192. #X connect 5 1 21 0;
  193. #X connect 5 2 21 0;
  194. #X connect 6 0 7 0;
  195. #X connect 8 0 34 0;
  196. #X connect 8 1 4 0;
  197. #X connect 8 2 7 1;
  198. #X connect 12 0 5 0;
  199. #X connect 13 0 31 0;
  200. #X connect 14 0 27 0;
  201. #X connect 15 0 32 0;
  202. #X connect 16 0 17 0;
  203. #X connect 17 0 18 0;
  204. #X connect 17 1 19 0;
  205. #X connect 18 0 6 0;
  206. #X connect 19 0 16 1;
  207. #X connect 20 0 16 1;
  208. #X connect 21 0 1 0;
  209. #X connect 21 1 6 0;
  210. #X connect 22 0 25 1;
  211. #X connect 24 0 25 0;
  212. #X connect 25 0 2 0;
  213. #X connect 25 1 26 0;
  214. #X connect 26 0 23 0;
  215. #X connect 28 0 29 0;
  216. #X connect 30 0 8 0;
  217. #X connect 31 0 14 0;
  218. #X connect 31 1 20 0;
  219. #X connect 33 0 24 0;
  220. #X connect 34 0 12 0;
  221. #X restore 59 285 pd fetch_and_route;
  222. #X obj 355 309 s /ds/\$1\$2/dialog;
  223. #N canvas 354 38 930 709 init 0;
  224. #X obj 28 34 loadbang;
  225. #X obj 28 346 list split 1;
  226. #X obj 55 433 list trim;
  227. #X obj 28 322 list prepend \$15 \$14 \$13 \$12 \$11 \$10 \$9 \$8 \$7
  228. \$6 \$5 \$4 \$3;
  229. #X obj 105 34 r /ds/\$1/loadbang;
  230. #X obj 55 116 list prepend \$1 \$2 \$0;
  231. #X msg 184 616 1;
  232. #X obj 184 591 b;
  233. #X obj 28 1146 s \$0-init-complete;
  234. #X obj 78 1101 + 1;
  235. #X obj 62 368 t l;
  236. #X obj 28 1123 sel 12;
  237. #X obj 28 1101 f 0;
  238. #X obj 28 398 t b a;
  239. #X msg 227 616 1;
  240. #X obj 249 863 spigot;
  241. #X msg 306 875 0;
  242. #X obj 249 912 s /ds/\$1\$2/delay;
  243. #X obj 249 885 t f b;
  244. #X obj 113 1014 s /ds/\$1\$2/slave;
  245. #X obj 76 1039 s /ds/\$1\$2/slave/lock;
  246. #X msg 76 1011 1;
  247. #X obj 76 969 t b b;
  248. #X msg 113 992 1;
  249. #X obj 227 937 s /ds/\$1\$2/delay/lock;
  250. #X obj 227 591 b;
  251. #X msg 313 616 1;
  252. #X obj 335 591 b;
  253. #X msg 335 616 0;
  254. #X msg 583 659 1;
  255. #X obj 583 637 b;
  256. #X obj 583 681 s /ds/\$1\$2/occupy/lock;
  257. #X obj 583 605 t b b;
  258. #X msg 631 626 1;
  259. #X obj 631 648 s /ds/\$1\$2/occupy;
  260. #X obj 313 591 b;
  261. #X obj 270 616 b;
  262. #X msg 184 963 1;
  263. #X obj 211 963 s /ds/\$1\$2/change;
  264. #X obj 184 985 s /ds/\$1\$2/change/lock;
  265. #X obj 184 937 t b f;
  266. #X obj 28 89 t b b;
  267. #X msg 98 768 1;
  268. #X obj 98 726 t b b;
  269. #X obj 135 771 s /ds/\$1\$2/resize;
  270. #X obj 98 796 s /ds/\$1\$2/resize/lock;
  271. #X obj 120 676 t b b;
  272. #X msg 157 699 1;
  273. #X obj 157 721 s /ds/\$1\$2/resize;
  274. #X msg 135 749 0;
  275. #X msg 139 566 1;
  276. #X obj 139 541 b;
  277. #X obj 400 880 spigot;
  278. #X obj 400 902 t a b;
  279. #X msg 457 892 0;
  280. #X obj 400 966 symbol;
  281. #X obj 400 923 list prepend symbol;
  282. #X msg 400 945 symbol \$2;
  283. #X msg 162 566 1;
  284. #X obj 162 541 b;
  285. #X obj 702 881 spigot;
  286. #X obj 702 903 t a b;
  287. #X msg 759 893 0;
  288. #X obj 702 925 list prepend symbol;
  289. #X msg 702 947 symbol \$2;
  290. #X obj 702 969 symbol;
  291. #X obj 400 990 s /ds/\$1\$2/name_prepend;
  292. #X obj 702 990 s /ds/\$1\$2/name_append;
  293. #X obj 400 541 t a;
  294. #X obj 55 458 route nomorph slave noresize resize name_prepend name_append
  295. change bang delay float direct noslave nodelay nochange occupy nooccupy
  296. ;
  297. #X msg 55 148 \; /ds/\$1\$2/change 0 \; /ds/\$1\$2/change/lock 0 \;
  298. /ds/\$1\$2/name \$2 \;;
  299. #X connect 0 0 41 0;
  300. #X connect 1 0 13 0;
  301. #X connect 1 1 10 0;
  302. #X connect 2 0 69 0;
  303. #X connect 3 0 1 0;
  304. #X connect 4 0 41 0;
  305. #X connect 5 0 70 0;
  306. #X connect 6 0 40 0;
  307. #X connect 7 0 6 0;
  308. #X connect 9 0 12 1;
  309. #X connect 10 0 1 0;
  310. #X connect 11 0 8 0;
  311. #X connect 12 0 9 0;
  312. #X connect 12 0 11 0;
  313. #X connect 13 0 12 0;
  314. #X connect 13 1 2 0;
  315. #X connect 14 0 15 1;
  316. #X connect 14 0 24 0;
  317. #X connect 15 0 18 0;
  318. #X connect 16 0 15 1;
  319. #X connect 18 0 17 0;
  320. #X connect 18 1 16 0;
  321. #X connect 21 0 20 0;
  322. #X connect 22 0 21 0;
  323. #X connect 22 1 23 0;
  324. #X connect 23 0 19 0;
  325. #X connect 25 0 14 0;
  326. #X connect 26 0 24 0;
  327. #X connect 27 0 28 0;
  328. #X connect 28 0 40 0;
  329. #X connect 29 0 31 0;
  330. #X connect 30 0 29 0;
  331. #X connect 32 0 30 0;
  332. #X connect 32 1 33 0;
  333. #X connect 33 0 34 0;
  334. #X connect 35 0 26 0;
  335. #X connect 36 0 21 0;
  336. #X connect 37 0 39 0;
  337. #X connect 40 0 37 0;
  338. #X connect 40 1 38 0;
  339. #X connect 41 0 3 0;
  340. #X connect 41 1 5 0;
  341. #X connect 42 0 45 0;
  342. #X connect 43 0 42 0;
  343. #X connect 43 1 49 0;
  344. #X connect 46 0 42 0;
  345. #X connect 46 1 47 0;
  346. #X connect 47 0 48 0;
  347. #X connect 49 0 44 0;
  348. #X connect 50 0 52 1;
  349. #X connect 51 0 50 0;
  350. #X connect 52 0 53 0;
  351. #X connect 53 0 56 0;
  352. #X connect 53 1 54 0;
  353. #X connect 54 0 52 1;
  354. #X connect 55 0 66 0;
  355. #X connect 56 0 57 0;
  356. #X connect 57 0 55 0;
  357. #X connect 58 0 60 1;
  358. #X connect 59 0 58 0;
  359. #X connect 60 0 61 0;
  360. #X connect 61 0 63 0;
  361. #X connect 61 1 62 0;
  362. #X connect 62 0 60 1;
  363. #X connect 63 0 64 0;
  364. #X connect 64 0 65 0;
  365. #X connect 65 0 67 0;
  366. #X connect 68 0 60 0;
  367. #X connect 68 0 52 0;
  368. #X connect 69 1 22 0;
  369. #X connect 69 2 43 0;
  370. #X connect 69 3 46 0;
  371. #X connect 69 4 51 0;
  372. #X connect 69 5 59 0;
  373. #X connect 69 6 7 0;
  374. #X connect 69 8 25 0;
  375. #X connect 69 9 15 0;
  376. #X connect 69 9 68 0;
  377. #X connect 69 10 30 0;
  378. #X connect 69 10 35 0;
  379. #X connect 69 10 36 0;
  380. #X connect 69 11 36 0;
  381. #X connect 69 12 35 0;
  382. #X connect 69 13 27 0;
  383. #X connect 69 14 32 0;
  384. #X connect 69 15 30 0;
  385. #X connect 69 16 68 0;
  386. #X restore 59 252 pd init;
  387. #X obj 355 216 inlet settings;
  388. #X obj 355 246 route dialog bang;
  389. #X obj 404 279 s /ds/\$1\$2/slave/start;
  390. #X obj 255 372 r /ds/\$1\$2/dispatched;
  391. #X obj 631 202 r /ds/\$1/name/route;
  392. #X obj 631 224 s /ds/\$1\$2/name/route;
  393. #X obj 231 522 ds_transition_slot_table \$1 \$2;
  394. #X text 40 21 ds_reg_table <domain> <name> <arg1> <arg2> ...;
  395. #X text 37 62 registers table to state saving system;
  396. #X text 495 105 (c)2013 Marian Weger;
  397. #X obj 85 427 r /ds/\$1\$2/dispatched;
  398. #X obj 85 449 s /ds/\$1/dispatched;
  399. #X text 39 100 arguments: slave \, direct \, delay <time/s> \, noslave
  400. \, nodelay \, nochange \, occupy \, nooccupy \, resize \, noresize
  401. ;
  402. #X text 278 497 dynamisch!!!;
  403. #X obj 631 172 ds_route /ds/\$1\$2/name;
  404. #N canvas 760 269 450 300 route 0;
  405. #X obj 67 162 ds_route /ds/\$1\$2/name_prepend;
  406. #X obj 67 182 ds_route /ds/\$1\$2/name_append;
  407. #X restore 59 335 pd route;
  408. #X connect 5 0 6 0;
  409. #X connect 6 0 3 0;
  410. #X connect 6 1 7 0;
  411. #X connect 8 0 1 0;
  412. #X connect 9 0 10 0;
  413. #X connect 15 0 16 0;