kpofquad.pd 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330
  1. #N canvas 739 503 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 627 159 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 612 195 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. #N canvas 1 52 450 300 touchblob 0;
  77. #X obj 28 88 pofcolor 0 1 0 1;
  78. #X msg 124 158 1;
  79. #X msg 168 158 0;
  80. #X obj 28 117 poftouch 20 20;
  81. #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
  82. #X obj 155 69 loadbang;
  83. #X obj 85 208 spigot;
  84. #X obj 85 184 r \$0-touch-move;
  85. #X obj 85 230 outlet;
  86. #X obj 28 50 inlet;
  87. #X obj 123 137 route down up;
  88. #X connect 0 0 3 0;
  89. #X connect 1 0 0 1;
  90. #X connect 1 0 6 1;
  91. #X connect 2 0 0 1;
  92. #X connect 2 0 6 1;
  93. #X connect 3 1 10 0;
  94. #X connect 4 0 3 0;
  95. #X connect 5 0 4 0;
  96. #X connect 6 0 8 0;
  97. #X connect 7 0 6 0;
  98. #X connect 9 0 0 0;
  99. #X connect 10 0 1 0;
  100. #X connect 10 1 2 0;
  101. #X restore 55 693 pd touchblob;
  102. #X obj 55 672 poftranslate -200 -150;
  103. #X obj 55 714 unpack f f;
  104. #X obj 55 739 s /kpof/\$1/corner/top/left/x;
  105. #X obj 122 763 s /kpof/\$1/corner/top/left/y;
  106. #X obj 105 629 r /kpof/\$1/corner/top/left/x;
  107. #X obj 155 653 r /kpof/\$1/corner/top/left/y;
  108. #N canvas 1 52 450 300 touchblob 0;
  109. #X obj 28 88 pofcolor 0 1 0 1;
  110. #X msg 124 158 1;
  111. #X msg 168 158 0;
  112. #X obj 28 117 poftouch 20 20;
  113. #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
  114. #X obj 155 69 loadbang;
  115. #X obj 85 208 spigot;
  116. #X obj 85 184 r \$0-touch-move;
  117. #X obj 85 230 outlet;
  118. #X obj 28 50 inlet;
  119. #X obj 123 137 route down up;
  120. #X connect 0 0 3 0;
  121. #X connect 1 0 0 1;
  122. #X connect 1 0 6 1;
  123. #X connect 2 0 0 1;
  124. #X connect 2 0 6 1;
  125. #X connect 3 1 10 0;
  126. #X connect 4 0 3 0;
  127. #X connect 5 0 4 0;
  128. #X connect 6 0 8 0;
  129. #X connect 7 0 6 0;
  130. #X connect 9 0 0 0;
  131. #X connect 10 0 1 0;
  132. #X connect 10 1 2 0;
  133. #X restore 73 523 pd touchblob;
  134. #X obj 73 502 poftranslate -200 -150;
  135. #X obj 73 544 unpack f f;
  136. #N canvas 1 52 450 300 touchblob 0;
  137. #X obj 28 88 pofcolor 0 1 0 1;
  138. #X msg 124 158 1;
  139. #X msg 168 158 0;
  140. #X obj 28 117 poftouch 20 20;
  141. #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
  142. #X obj 155 69 loadbang;
  143. #X obj 85 208 spigot;
  144. #X obj 85 184 r \$0-touch-move;
  145. #X obj 85 230 outlet;
  146. #X obj 28 50 inlet;
  147. #X obj 123 137 route down up;
  148. #X connect 0 0 3 0;
  149. #X connect 1 0 0 1;
  150. #X connect 1 0 6 1;
  151. #X connect 2 0 0 1;
  152. #X connect 2 0 6 1;
  153. #X connect 3 1 10 0;
  154. #X connect 4 0 3 0;
  155. #X connect 5 0 4 0;
  156. #X connect 6 0 8 0;
  157. #X connect 7 0 6 0;
  158. #X connect 9 0 0 0;
  159. #X connect 10 0 1 0;
  160. #X connect 10 1 2 0;
  161. #X restore 92 353 pd touchblob;
  162. #X obj 92 332 poftranslate -200 -150;
  163. #X obj 92 374 unpack f f;
  164. #N canvas 1 52 450 300 touchblob 0;
  165. #X obj 28 88 pofcolor 0 1 0 1;
  166. #X msg 124 158 1;
  167. #X msg 168 158 0;
  168. #X obj 28 117 poftouch 20 20;
  169. #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
  170. #X obj 155 69 loadbang;
  171. #X obj 85 208 spigot;
  172. #X obj 85 184 r \$0-touch-move;
  173. #X obj 85 230 outlet;
  174. #X obj 28 50 inlet;
  175. #X obj 123 137 route down up;
  176. #X connect 0 0 3 0;
  177. #X connect 1 0 0 1;
  178. #X connect 1 0 6 1;
  179. #X connect 2 0 0 1;
  180. #X connect 2 0 6 1;
  181. #X connect 3 1 10 0;
  182. #X connect 4 0 3 0;
  183. #X connect 5 0 4 0;
  184. #X connect 6 0 8 0;
  185. #X connect 7 0 6 0;
  186. #X connect 9 0 0 0;
  187. #X connect 10 0 1 0;
  188. #X connect 10 1 2 0;
  189. #X restore 110 183 pd touchblob;
  190. #X obj 110 162 poftranslate -200 -150;
  191. #X obj 110 204 unpack f f;
  192. #X obj 73 569 s /kpof/\$1/corner/top/right/x;
  193. #X obj 123 459 r /kpof/\$1/corner/top/right/x;
  194. #X obj 140 593 s /kpof/\$1/corner/top/right/y;
  195. #X obj 173 483 r /kpof/\$1/corner/top/right/y;
  196. #X obj 142 289 r /kpof/\$1/corner/bottom/right/x;
  197. #X obj 92 399 s /kpof/\$1/corner/bottom/right/x;
  198. #X obj 159 423 s /kpof/\$1/corner/bottom/right/y;
  199. #X obj 192 313 r /kpof/\$1/corner/bottom/right/y;
  200. #X obj 160 119 r /kpof/\$1/corner/bottom/left/x;
  201. #X obj 110 229 s /kpof/\$1/corner/bottom/left/x;
  202. #X obj 210 143 r /kpof/\$1/corner/bottom/left/y;
  203. #X obj 177 253 s /kpof/\$1/corner/bottom/left/y;
  204. #X text 150 18 principe touch :;
  205. #X text 149 34 une grande surface (taille affichage) pour capturer
  206. la position globale du touch;
  207. #X text 151 67 des surfaces d'interaction qui routent le signal global
  208. par spigot;
  209. #X connect 0 0 1 0;
  210. #X connect 1 0 6 0;
  211. #X connect 2 0 3 0;
  212. #X connect 3 0 10 0;
  213. #X connect 3 1 17 0;
  214. #X connect 3 2 20 0;
  215. #X connect 3 3 23 0;
  216. #X connect 3 4 4 0;
  217. #X connect 4 1 7 0;
  218. #X connect 5 0 0 0;
  219. #X connect 6 0 4 1;
  220. #X connect 6 1 4 2;
  221. #X connect 7 0 8 0;
  222. #X connect 9 0 11 0;
  223. #X connect 10 0 9 0;
  224. #X connect 11 0 12 0;
  225. #X connect 11 1 13 0;
  226. #X connect 14 0 10 1;
  227. #X connect 15 0 10 2;
  228. #X connect 16 0 18 0;
  229. #X connect 17 0 16 0;
  230. #X connect 18 0 25 0;
  231. #X connect 18 1 27 0;
  232. #X connect 19 0 21 0;
  233. #X connect 20 0 19 0;
  234. #X connect 21 0 30 0;
  235. #X connect 21 1 31 0;
  236. #X connect 22 0 24 0;
  237. #X connect 23 0 22 0;
  238. #X connect 24 0 34 0;
  239. #X connect 24 1 36 0;
  240. #X connect 26 0 17 1;
  241. #X connect 28 0 17 2;
  242. #X connect 29 0 20 1;
  243. #X connect 32 0 20 2;
  244. #X connect 33 0 23 1;
  245. #X connect 35 0 23 2;
  246. #X restore 454 277 pd \$0-touchPins;
  247. #N canvas 755 174 450 300 \$0-init 0;
  248. #X obj 98 76 loadbang;
  249. #X obj 98 98 list append \$1;
  250. #X obj 173 74 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
  251. -1;
  252. #X obj 102 37 declare -path kollabs;
  253. #X msg 98 121 \; /kpof/\$1/corner/top/left/x -200 \; /kpof/\$1/corner/top/left/y
  254. -200 \; /kpof/\$1/corner/top/right/x 200 \; /kpof/\$1/corner/top/right/y
  255. -200 \; /kpof/\$1/corner/bottom/right/x 200 \; /kpof/\$1/corner/bottom/right/y
  256. 200 \; /kpof/\$1/corner/bottom/left/x -200 \; /kpof/\$1/corner/bottom/left/y
  257. 200 \; /kpof/\$1/state 1;
  258. #X connect 0 0 1 0;
  259. #X connect 1 0 4 0;
  260. #X connect 2 0 1 0;
  261. #X restore 268 18 pd \$0-init;
  262. #N canvas 654 156 768 306 \$0-storage_&_osc 0;
  263. #X obj 369 11 osc_bi \$2 /kpof/\$1/corner/top/left/x;
  264. #X obj 369 31 osc_bi \$2 /kpof/\$1/corner/top/left/y;
  265. #X obj 39 71 ds_reg \$2 /kpof/\$1/corner/top/right/y;
  266. #X obj 39 91 ds_reg \$2 /kpof/\$1/corner/bottom/right/x;
  267. #X obj 39 111 ds_reg \$2 /kpof/\$1/corner/bottom/right/y;
  268. #X obj 39 131 ds_reg \$2 /kpof/\$1/corner/bottom/left/x;
  269. #X obj 39 151 ds_reg \$2 /kpof/\$1/corner/bottom/left/y;
  270. #X obj 369 51 osc_bi \$2 /kpof/\$1/corner/top/right/x;
  271. #X obj 369 71 osc_bi \$2 /kpof/\$1/corner/top/right/y;
  272. #X obj 369 91 osc_bi \$2 /kpof/\$1/corner/bottom/right/x;
  273. #X obj 369 111 osc_bi \$2 /kpof/\$1/corner/bottom/right/y;
  274. #X obj 369 131 osc_bi \$2 /kpof/\$1/corner/bottom/left/x;
  275. #X obj 369 151 osc_bi \$2 /kpof/\$1/corner/bottom/left/y;
  276. #X obj 39 251 ds_reg \$2 /kpof/\$1/state;
  277. #X obj 369 251 osc_bi \$2 /kpof/\$1/state;
  278. #X obj 39 51 ds_reg \$2 /kpof/\$1/corner/top/right/x;
  279. #X obj 39 31 ds_reg \$2 /kpof/\$1/corner/top/left/y;
  280. #X obj 39 11 ds_reg \$2 /kpof/\$1/corner/top/left/x;
  281. #X obj 369 181 osc_bi \$2 /kpof/\$1/pins;
  282. #X restore 268 38 pd \$0-storage_&_osc;
  283. #N canvas 391 845 254 87 \$0-cfg_\$1 0;
  284. #X obj 2 2 cnv 15 250 80 empty empty corners 2 7 0 14 -233017 -66577
  285. 0;
  286. #X obj 101 6 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/left/x
  287. /kpof/\$1/corner/top/left/x x -10 7 0 10 -261234 -1 -1 -200 256;
  288. #X obj 101 22 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/left/y
  289. /kpof/\$1/corner/top/left/y y -10 7 0 10 -261234 -1 -1 -200 256;
  290. #X obj 178 6 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/right/x
  291. /kpof/\$1/corner/top/right/x x -10 7 0 10 -261234 -1 -1 200 256;
  292. #X obj 178 22 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/right/y
  293. /kpof/\$1/corner/top/right/y y -10 7 0 10 -261234 -1 -1 -200 256;
  294. #X obj 101 43 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/left/x
  295. /kpof/\$1/corner/bottom/left/x x -10 7 0 10 -261234 -1 -1 -200 256
  296. ;
  297. #X obj 101 59 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/left/y
  298. /kpof/\$1/corner/bottom/left/y y -10 7 0 10 -261234 -1 -1 200 256;
  299. #X obj 178 43 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/right/x
  300. /kpof/\$1/corner/bottom/right/x x -10 7 0 10 -261234 -1 -1 200 256
  301. ;
  302. #X obj 178 59 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/right/y
  303. /kpof/\$1/corner/bottom/right/y y -10 7 0 10 -261234 -1 -1 200 256
  304. ;
  305. #X obj 5 57 tgl 15 1 /kpof/\$1/pins /kpof/\$1/pins pins 17 7 0 10 -228856
  306. -1 -1 1 1;
  307. #X coords 0 0 1 1 155 300 0;
  308. #X restore 268 137 pd \$0-cfg_\$1;
  309. #X obj 268 115 s pd-\$0-cfg_\$1;
  310. #X obj 454 101 t a a;
  311. #X obj 454 236 pofvisible 0;
  312. #X obj 472 187 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  313. 1;
  314. #X obj 135 77 tgl 15 1 /kpof/\$1/pins /kpof/\$1/pins pins 17 7 0 10
  315. -228856 -1 -1 1 1;
  316. #X obj 474 211 r /kpof/\$1/pins;
  317. #X obj 445 155 pofhead;
  318. #X connect 2 0 15 0;
  319. #X connect 3 0 2 0;
  320. #X connect 5 0 9 0;
  321. #X connect 7 0 16 0;
  322. #X connect 8 0 7 0;
  323. #X connect 10 0 7 0;
  324. #X connect 16 1 9 0;
  325. #X connect 17 0 11 0;
  326. #X connect 18 0 17 0;
  327. #X connect 20 0 17 0;
  328. #X connect 21 0 17 0;
  329. #X coords 0 -1 1 1 200 45 1 60 55;