kpofquad.pd 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428
  1. #N canvas 731 499 965 433 10;
  2. #X declare -path kollabs;
  3. #X obj 61 73 cnv 15 198 25 empty empty empty 20 12 0 14 -233017 -66577
  4. 0;
  5. #X obj 65 77 tgl 15 1 /kpof/\$1/state /kpof/\$1/state on/off 17 7 0
  6. 10 -4034 -1 -1 1 1;
  7. #X msg 268 91 vis 1;
  8. #X obj 193 77 bng 15 250 50 0 empty empty corners 17 7 0 10 -159808
  9. -1 -1;
  10. #X obj 14 282 cnv 15 360 60 empty empty creation_arguments: 3 8 0 12
  11. -191407 -1 0;
  12. #N canvas 1086 311 507 632 corners 0;
  13. #X obj 58 568 outlet;
  14. #X obj 58 28 r /kpof/\$1/corner/top/left/x;
  15. #X obj 79 52 r /kpof/\$1/corner/top/left/y;
  16. #X obj 91 151 r /kpof/\$1/corner/top/right/x;
  17. #X obj 116 175 r /kpof/\$1/corner/top/right/y;
  18. #X obj 142 273 r /kpof/\$1/corner/bottom/right/x;
  19. #X obj 167 300 r /kpof/\$1/corner/bottom/right/y;
  20. #X obj 201 425 r /kpof/\$1/corner/bottom/left/x;
  21. #X obj 226 452 r /kpof/\$1/corner/bottom/left/y;
  22. #X msg 58 120 corner 0 \$1 \$2;
  23. #X msg 91 239 corner 1 \$1 \$2;
  24. #X msg 142 366 corner 2 \$1 \$2;
  25. #X msg 201 519 corner 3 \$1 \$2;
  26. #X obj 58 94 pack f f;
  27. #X obj 91 219 pack f f;
  28. #X obj 142 345 pack f f;
  29. #X obj 201 496 pack f f;
  30. #X obj 79 74 t b f;
  31. #X obj 116 195 t b f;
  32. #X obj 167 324 t b f;
  33. #X obj 226 472 t b f;
  34. #X connect 1 0 13 0;
  35. #X connect 2 0 17 0;
  36. #X connect 3 0 14 0;
  37. #X connect 4 0 18 0;
  38. #X connect 5 0 15 0;
  39. #X connect 6 0 19 0;
  40. #X connect 7 0 16 0;
  41. #X connect 8 0 20 0;
  42. #X connect 9 0 0 0;
  43. #X connect 10 0 0 0;
  44. #X connect 11 0 0 0;
  45. #X connect 12 0 0 0;
  46. #X connect 13 0 9 0;
  47. #X connect 14 0 10 0;
  48. #X connect 15 0 11 0;
  49. #X connect 16 0 12 0;
  50. #X connect 17 0 13 0;
  51. #X connect 17 1 13 1;
  52. #X connect 18 0 14 0;
  53. #X connect 18 1 14 1;
  54. #X connect 19 0 15 0;
  55. #X connect 19 1 15 1;
  56. #X connect 20 0 16 0;
  57. #X connect 20 1 16 1;
  58. #X restore 621 129 pd corners;
  59. #X text 19 301 1st: module ID \, needs to be unique \; 2nd: storage
  60. domain;
  61. #X obj 454 69 pofvisible 1;
  62. #X obj 494 31 r /kpof/\$1/state;
  63. #X obj 606 165 pofquad 200 200;
  64. #X obj 454 8 inlet;
  65. #N canvas 1 52 736 811 \$0-touchPins 0;
  66. #X obj 575 35 pofwin;
  67. #X obj 575 56 route window;
  68. #X obj 55 53 inlet;
  69. #X obj 55 85 t a a a a a;
  70. #X obj 517 102 poftouch 1280 720;
  71. #X obj 575 16 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
  72. -1;
  73. #X obj 575 78 unpack f f;
  74. #X obj 633 123 route move;
  75. #X obj 633 145 s \$0-touch-move;
  76. #X obj 55 672 poftranslate -200 -150;
  77. #X obj 55 714 unpack f f;
  78. #X obj 55 739 s /kpof/\$1/corner/top/left/x;
  79. #X obj 122 763 s /kpof/\$1/corner/top/left/y;
  80. #X obj 105 629 r /kpof/\$1/corner/top/left/x;
  81. #X obj 155 653 r /kpof/\$1/corner/top/left/y;
  82. #X obj 73 502 poftranslate -200 -150;
  83. #X obj 73 544 unpack f f;
  84. #X obj 92 332 poftranslate -200 -150;
  85. #X obj 92 374 unpack f f;
  86. #N canvas 549 160 537 508 touchblob 0;
  87. #X obj 28 88 pofcolor 0 1 0 1;
  88. #X msg 124 343 1;
  89. #X msg 168 343 0;
  90. #X obj 28 302 poftouch 20 20;
  91. #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
  92. #X obj 155 69 loadbang;
  93. #X obj 85 393 spigot;
  94. #X obj 85 369 r \$0-touch-move;
  95. #X obj 85 410 outlet;
  96. #X obj 28 50 inlet;
  97. #X obj 123 322 route down up;
  98. #X obj 28 175 pofgetmatrix;
  99. #X obj 128 192 route scale;
  100. #X obj 128 214 unpack f f f;
  101. #X obj 28 282 pofscale;
  102. #X obj 167 114 r /fromkpofwin;
  103. #X obj 167 136 route window;
  104. #X obj 167 158 bang;
  105. #X msg 128 236 1 \$1;
  106. #X obj 128 258 /;
  107. #X msg 168 236 1 \$1;
  108. #X obj 168 258 /;
  109. #X connect 0 0 11 0;
  110. #X connect 1 0 0 1;
  111. #X connect 1 0 6 1;
  112. #X connect 2 0 0 1;
  113. #X connect 2 0 6 1;
  114. #X connect 3 1 10 0;
  115. #X connect 4 0 3 0;
  116. #X connect 5 0 4 0;
  117. #X connect 6 0 8 0;
  118. #X connect 7 0 6 0;
  119. #X connect 9 0 0 0;
  120. #X connect 10 0 1 0;
  121. #X connect 10 1 2 0;
  122. #X connect 11 0 14 0;
  123. #X connect 11 2 12 0;
  124. #X connect 12 0 13 0;
  125. #X connect 13 0 18 0;
  126. #X connect 13 1 20 0;
  127. #X connect 14 0 3 0;
  128. #X connect 15 0 16 0;
  129. #X connect 16 0 17 0;
  130. #X connect 17 0 11 0;
  131. #X connect 18 0 19 0;
  132. #X connect 19 0 14 1;
  133. #X connect 20 0 21 0;
  134. #X connect 21 0 14 2;
  135. #X restore 110 183 pd touchblob;
  136. #X obj 110 162 poftranslate -200 -150;
  137. #X obj 110 204 unpack f f;
  138. #X obj 73 569 s /kpof/\$1/corner/top/right/x;
  139. #X obj 123 459 r /kpof/\$1/corner/top/right/x;
  140. #X obj 140 593 s /kpof/\$1/corner/top/right/y;
  141. #X obj 173 483 r /kpof/\$1/corner/top/right/y;
  142. #X obj 142 289 r /kpof/\$1/corner/bottom/right/x;
  143. #X obj 92 399 s /kpof/\$1/corner/bottom/right/x;
  144. #X obj 159 423 s /kpof/\$1/corner/bottom/right/y;
  145. #X obj 192 313 r /kpof/\$1/corner/bottom/right/y;
  146. #X obj 160 119 r /kpof/\$1/corner/bottom/left/x;
  147. #X obj 110 229 s /kpof/\$1/corner/bottom/left/x;
  148. #X obj 210 143 r /kpof/\$1/corner/bottom/left/y;
  149. #X obj 177 253 s /kpof/\$1/corner/bottom/left/y;
  150. #X text 150 18 principe touch :;
  151. #X text 149 34 une grande surface (taille affichage) pour capturer
  152. la position globale du touch;
  153. #X text 151 67 des surfaces d'interaction qui routent le signal global
  154. par spigot;
  155. #N canvas 1 52 537 508 touchblob 0;
  156. #X obj 28 88 pofcolor 0 1 0 1;
  157. #X msg 124 343 1;
  158. #X msg 168 343 0;
  159. #X obj 28 302 poftouch 20 20;
  160. #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
  161. #X obj 155 69 loadbang;
  162. #X obj 85 393 spigot;
  163. #X obj 85 369 r \$0-touch-move;
  164. #X obj 85 410 outlet;
  165. #X obj 28 50 inlet;
  166. #X obj 123 322 route down up;
  167. #X obj 28 175 pofgetmatrix;
  168. #X obj 128 192 route scale;
  169. #X obj 128 214 unpack f f f;
  170. #X obj 28 282 pofscale;
  171. #X obj 167 114 r /fromkpofwin;
  172. #X obj 167 136 route window;
  173. #X obj 167 158 bang;
  174. #X msg 128 236 1 \$1;
  175. #X obj 128 258 /;
  176. #X msg 168 236 1 \$1;
  177. #X obj 168 258 /;
  178. #X connect 0 0 11 0;
  179. #X connect 1 0 0 1;
  180. #X connect 1 0 6 1;
  181. #X connect 2 0 0 1;
  182. #X connect 2 0 6 1;
  183. #X connect 3 1 10 0;
  184. #X connect 4 0 3 0;
  185. #X connect 5 0 4 0;
  186. #X connect 6 0 8 0;
  187. #X connect 7 0 6 0;
  188. #X connect 9 0 0 0;
  189. #X connect 10 0 1 0;
  190. #X connect 10 1 2 0;
  191. #X connect 11 0 14 0;
  192. #X connect 11 2 12 0;
  193. #X connect 12 0 13 0;
  194. #X connect 13 0 18 0;
  195. #X connect 13 1 20 0;
  196. #X connect 14 0 3 0;
  197. #X connect 15 0 16 0;
  198. #X connect 16 0 17 0;
  199. #X connect 17 0 11 0;
  200. #X connect 18 0 19 0;
  201. #X connect 19 0 14 1;
  202. #X connect 20 0 21 0;
  203. #X connect 21 0 14 2;
  204. #X restore 92 352 pd touchblob;
  205. #N canvas 1 52 537 508 touchblob 0;
  206. #X obj 28 88 pofcolor 0 1 0 1;
  207. #X msg 124 343 1;
  208. #X msg 168 343 0;
  209. #X obj 28 302 poftouch 20 20;
  210. #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
  211. #X obj 155 69 loadbang;
  212. #X obj 85 393 spigot;
  213. #X obj 85 369 r \$0-touch-move;
  214. #X obj 85 410 outlet;
  215. #X obj 28 50 inlet;
  216. #X obj 123 322 route down up;
  217. #X obj 28 175 pofgetmatrix;
  218. #X obj 128 192 route scale;
  219. #X obj 128 214 unpack f f f;
  220. #X obj 28 282 pofscale;
  221. #X obj 167 114 r /fromkpofwin;
  222. #X obj 167 136 route window;
  223. #X obj 167 158 bang;
  224. #X msg 128 236 1 \$1;
  225. #X obj 128 258 /;
  226. #X msg 168 236 1 \$1;
  227. #X obj 168 258 /;
  228. #X connect 0 0 11 0;
  229. #X connect 1 0 0 1;
  230. #X connect 1 0 6 1;
  231. #X connect 2 0 0 1;
  232. #X connect 2 0 6 1;
  233. #X connect 3 1 10 0;
  234. #X connect 4 0 3 0;
  235. #X connect 5 0 4 0;
  236. #X connect 6 0 8 0;
  237. #X connect 7 0 6 0;
  238. #X connect 9 0 0 0;
  239. #X connect 10 0 1 0;
  240. #X connect 10 1 2 0;
  241. #X connect 11 0 14 0;
  242. #X connect 11 2 12 0;
  243. #X connect 12 0 13 0;
  244. #X connect 13 0 18 0;
  245. #X connect 13 1 20 0;
  246. #X connect 14 0 3 0;
  247. #X connect 15 0 16 0;
  248. #X connect 16 0 17 0;
  249. #X connect 17 0 11 0;
  250. #X connect 18 0 19 0;
  251. #X connect 19 0 14 1;
  252. #X connect 20 0 21 0;
  253. #X connect 21 0 14 2;
  254. #X restore 73 522 pd touchblob;
  255. #N canvas 1 52 537 508 touchblob 0;
  256. #X obj 28 88 pofcolor 0 1 0 1;
  257. #X msg 124 343 1;
  258. #X msg 168 343 0;
  259. #X obj 28 302 poftouch 20 20;
  260. #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
  261. #X obj 155 69 loadbang;
  262. #X obj 85 393 spigot;
  263. #X obj 85 369 r \$0-touch-move;
  264. #X obj 85 410 outlet;
  265. #X obj 28 50 inlet;
  266. #X obj 123 322 route down up;
  267. #X obj 28 175 pofgetmatrix;
  268. #X obj 128 192 route scale;
  269. #X obj 128 214 unpack f f f;
  270. #X obj 28 282 pofscale;
  271. #X obj 167 114 r /fromkpofwin;
  272. #X obj 167 136 route window;
  273. #X obj 167 158 bang;
  274. #X msg 128 236 1 \$1;
  275. #X obj 128 258 /;
  276. #X msg 168 236 1 \$1;
  277. #X obj 168 258 /;
  278. #X connect 0 0 11 0;
  279. #X connect 1 0 0 1;
  280. #X connect 1 0 6 1;
  281. #X connect 2 0 0 1;
  282. #X connect 2 0 6 1;
  283. #X connect 3 1 10 0;
  284. #X connect 4 0 3 0;
  285. #X connect 5 0 4 0;
  286. #X connect 6 0 8 0;
  287. #X connect 7 0 6 0;
  288. #X connect 9 0 0 0;
  289. #X connect 10 0 1 0;
  290. #X connect 10 1 2 0;
  291. #X connect 11 0 14 0;
  292. #X connect 11 2 12 0;
  293. #X connect 12 0 13 0;
  294. #X connect 13 0 18 0;
  295. #X connect 13 1 20 0;
  296. #X connect 14 0 3 0;
  297. #X connect 15 0 16 0;
  298. #X connect 16 0 17 0;
  299. #X connect 17 0 11 0;
  300. #X connect 18 0 19 0;
  301. #X connect 19 0 14 1;
  302. #X connect 20 0 21 0;
  303. #X connect 21 0 14 2;
  304. #X restore 55 692 pd touchblob;
  305. #X connect 0 0 1 0;
  306. #X connect 1 0 6 0;
  307. #X connect 2 0 3 0;
  308. #X connect 3 0 9 0;
  309. #X connect 3 1 15 0;
  310. #X connect 3 2 17 0;
  311. #X connect 3 3 20 0;
  312. #X connect 3 4 4 0;
  313. #X connect 4 1 7 0;
  314. #X connect 5 0 0 0;
  315. #X connect 6 0 4 1;
  316. #X connect 6 1 4 2;
  317. #X connect 7 0 8 0;
  318. #X connect 9 0 39 0;
  319. #X connect 10 0 11 0;
  320. #X connect 10 1 12 0;
  321. #X connect 13 0 9 1;
  322. #X connect 14 0 9 2;
  323. #X connect 15 0 38 0;
  324. #X connect 16 0 22 0;
  325. #X connect 16 1 24 0;
  326. #X connect 17 0 37 0;
  327. #X connect 18 0 27 0;
  328. #X connect 18 1 28 0;
  329. #X connect 19 0 21 0;
  330. #X connect 20 0 19 0;
  331. #X connect 21 0 31 0;
  332. #X connect 21 1 33 0;
  333. #X connect 23 0 15 1;
  334. #X connect 25 0 15 2;
  335. #X connect 26 0 17 1;
  336. #X connect 29 0 17 2;
  337. #X connect 30 0 20 1;
  338. #X connect 32 0 20 2;
  339. #X connect 37 0 18 0;
  340. #X connect 38 0 16 0;
  341. #X connect 39 0 10 0;
  342. #X restore 454 357 pd \$0-touchPins;
  343. #N canvas 755 174 450 300 \$0-init 0;
  344. #X obj 98 76 loadbang;
  345. #X obj 98 98 list append \$1;
  346. #X obj 173 74 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
  347. -1;
  348. #X obj 102 37 declare -path kollabs;
  349. #X msg 98 121 \; /kpof/\$1/corner/top/left/x -200 \; /kpof/\$1/corner/top/left/y
  350. -200 \; /kpof/\$1/corner/top/right/x 200 \; /kpof/\$1/corner/top/right/y
  351. -200 \; /kpof/\$1/corner/bottom/right/x 200 \; /kpof/\$1/corner/bottom/right/y
  352. 200 \; /kpof/\$1/corner/bottom/left/x -200 \; /kpof/\$1/corner/bottom/left/y
  353. 200 \; /kpof/\$1/state 1;
  354. #X connect 0 0 1 0;
  355. #X connect 1 0 4 0;
  356. #X connect 2 0 1 0;
  357. #X restore 268 18 pd \$0-init;
  358. #N canvas 654 156 768 306 \$0-storage_&_osc 0;
  359. #X obj 369 11 osc_bi \$2 /kpof/\$1/corner/top/left/x;
  360. #X obj 369 31 osc_bi \$2 /kpof/\$1/corner/top/left/y;
  361. #X obj 39 71 ds_reg \$2 /kpof/\$1/corner/top/right/y;
  362. #X obj 39 91 ds_reg \$2 /kpof/\$1/corner/bottom/right/x;
  363. #X obj 39 111 ds_reg \$2 /kpof/\$1/corner/bottom/right/y;
  364. #X obj 39 131 ds_reg \$2 /kpof/\$1/corner/bottom/left/x;
  365. #X obj 39 151 ds_reg \$2 /kpof/\$1/corner/bottom/left/y;
  366. #X obj 369 51 osc_bi \$2 /kpof/\$1/corner/top/right/x;
  367. #X obj 369 71 osc_bi \$2 /kpof/\$1/corner/top/right/y;
  368. #X obj 369 91 osc_bi \$2 /kpof/\$1/corner/bottom/right/x;
  369. #X obj 369 111 osc_bi \$2 /kpof/\$1/corner/bottom/right/y;
  370. #X obj 369 131 osc_bi \$2 /kpof/\$1/corner/bottom/left/x;
  371. #X obj 369 151 osc_bi \$2 /kpof/\$1/corner/bottom/left/y;
  372. #X obj 39 251 ds_reg \$2 /kpof/\$1/state;
  373. #X obj 369 251 osc_bi \$2 /kpof/\$1/state;
  374. #X obj 39 51 ds_reg \$2 /kpof/\$1/corner/top/right/x;
  375. #X obj 39 31 ds_reg \$2 /kpof/\$1/corner/top/left/y;
  376. #X obj 39 11 ds_reg \$2 /kpof/\$1/corner/top/left/x;
  377. #X obj 369 181 osc_bi \$2 /kpof/\$1/pins;
  378. #X restore 268 38 pd \$0-storage_&_osc;
  379. #N canvas 389 871 254 87 \$0-cfg_\$1 1;
  380. #X obj 2 2 cnv 15 250 80 empty empty corners 2 7 0 14 -233017 -66577
  381. 0;
  382. #X obj 101 6 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/left/x
  383. /kpof/\$1/corner/top/left/x x -10 7 0 10 -261234 -1 -1 -163 256;
  384. #X obj 101 22 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/left/y
  385. /kpof/\$1/corner/top/left/y y -10 7 0 10 -261234 -1 -1 -98 256;
  386. #X obj 178 6 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/right/x
  387. /kpof/\$1/corner/top/right/x x -10 7 0 10 -261234 -1 -1 120 256;
  388. #X obj 178 22 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/right/y
  389. /kpof/\$1/corner/top/right/y y -10 7 0 10 -261234 -1 -1 -104 256;
  390. #X obj 101 43 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/left/x
  391. /kpof/\$1/corner/bottom/left/x x -10 7 0 10 -261234 -1 -1 -200 256
  392. ;
  393. #X obj 101 59 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/left/y
  394. /kpof/\$1/corner/bottom/left/y y -10 7 0 10 -261234 -1 -1 129 256;
  395. #X obj 178 43 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/right/x
  396. /kpof/\$1/corner/bottom/right/x x -10 7 0 10 -261234 -1 -1 200 256
  397. ;
  398. #X obj 178 59 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/right/y
  399. /kpof/\$1/corner/bottom/right/y y -10 7 0 10 -261234 -1 -1 129 256
  400. ;
  401. #X obj 5 57 tgl 15 1 /kpof/\$1/pins /kpof/\$1/pins pins 17 7 0 10 -228856
  402. -1 -1 1 1;
  403. #X coords 0 0 1 1 155 300 0;
  404. #X restore 268 137 pd \$0-cfg_\$1;
  405. #X obj 268 115 s pd-\$0-cfg_\$1;
  406. #X obj 454 101 t a a;
  407. #X obj 454 316 pofvisible 0;
  408. #X obj 472 267 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  409. 1;
  410. #X obj 135 77 tgl 15 1 /kpof/\$1/pins /kpof/\$1/pins pins 17 7 0 10
  411. -228856 -1 -1 1 1;
  412. #X obj 474 291 r /kpof/\$1/pins;
  413. #X obj 445 155 pofhead;
  414. #X obj 445 180 kpofautoscalewin;
  415. #X connect 2 0 15 0;
  416. #X connect 3 0 2 0;
  417. #X connect 5 0 9 0;
  418. #X connect 7 0 16 0;
  419. #X connect 8 0 7 0;
  420. #X connect 10 0 7 0;
  421. #X connect 16 1 9 0;
  422. #X connect 17 0 11 0;
  423. #X connect 18 0 17 0;
  424. #X connect 20 0 17 0;
  425. #X connect 21 0 22 0;
  426. #X connect 22 0 17 0;
  427. #X coords 0 -1 1 1 200 45 1 60 55;