animate.pd 8.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362
  1. #N canvas 1210 191 838 577 10;
  2. #X obj 578 131 table \$0x 100;
  3. #X obj 578 174 table \$0y 100;
  4. #X obj 245 278 delay;
  5. #X obj 241 200 random 2000;
  6. #X obj 83 130 t b b b;
  7. #X obj 319 222 t b b;
  8. #X msg 299 263 stop;
  9. #X obj 578 152 table \$0xt 100;
  10. #X obj 579 196 table \$0yt 100;
  11. #N canvas 0 0 834 623 restore 0;
  12. #X obj 520 148 f;
  13. #X obj 518 193 until;
  14. #X obj 539 242 f;
  15. #X obj 622 267 + 1;
  16. #X msg 612 215 0;
  17. #X obj 521 169 t f b;
  18. #X obj 537 272 t f f f f;
  19. #X obj 571 348 tabread \$0x;
  20. #X obj 661 348 tabread \$0y;
  21. #X obj 589 386 pack;
  22. #X obj 255 19 inlet doit;
  23. #X obj 552 46 r \$0count;
  24. #X obj 423 53 t b b;
  25. #X msg 435 93 0;
  26. #X obj 562 430 iemguts/canvasobjectposition 2 0;
  27. #X connect 0 0 5 0;
  28. #X connect 1 0 2 0;
  29. #X connect 2 0 6 0;
  30. #X connect 3 0 2 1;
  31. #X connect 4 0 2 1;
  32. #X connect 5 0 1 0;
  33. #X connect 5 1 4 0;
  34. #X connect 6 0 7 0;
  35. #X connect 6 1 8 0;
  36. #X connect 6 2 14 1;
  37. #X connect 6 3 3 0;
  38. #X connect 7 0 9 0;
  39. #X connect 8 0 9 1;
  40. #X connect 9 0 14 0;
  41. #X connect 10 0 12 0;
  42. #X connect 11 0 0 1;
  43. #X connect 12 0 13 0;
  44. #X connect 12 1 0 0;
  45. #X connect 13 0 0 1;
  46. #X restore 355 344 pd restore;
  47. #N canvas 1273 155 720 553 save 0;
  48. #X obj 126 163 t b b f b;
  49. #X obj 266 479 unpack f f;
  50. #X obj 265 517 tabwrite \$0x;
  51. #X obj 358 517 tabwrite \$0y;
  52. #X obj 109 67 until;
  53. #X msg 118 39 100;
  54. #X obj 142 273 spigot;
  55. #X msg 184 231 1;
  56. #X obj 265 437 t l b;
  57. #X msg 341 450 0;
  58. #X obj 96 97 f;
  59. #X obj 179 122 + 1;
  60. #X obj 57 299 f;
  61. #X obj 94 127 t f f f;
  62. #X obj 267 226 t f f;
  63. #X obj 375 467 t f f;
  64. #X obj 41 63 t b b b;
  65. #X msg 169 70 0;
  66. #X obj 51 354 s \$0count;
  67. #X obj 49 12 inlet;
  68. #X obj 265 407 iemguts/canvasobjectposition 2 0;
  69. #X connect 0 0 6 0;
  70. #X connect 0 1 20 0;
  71. #X connect 0 2 14 0;
  72. #X connect 0 3 7 0;
  73. #X connect 1 0 2 0;
  74. #X connect 1 1 3 0;
  75. #X connect 4 0 10 0;
  76. #X connect 5 0 4 0;
  77. #X connect 6 0 4 1;
  78. #X connect 7 0 6 1;
  79. #X connect 8 0 1 0;
  80. #X connect 8 1 9 0;
  81. #X connect 9 0 6 1;
  82. #X connect 10 0 13 0;
  83. #X connect 11 0 10 1;
  84. #X connect 12 0 18 0;
  85. #X connect 13 0 0 0;
  86. #X connect 13 1 12 1;
  87. #X connect 13 2 11 0;
  88. #X connect 14 0 15 0;
  89. #X connect 14 1 20 1;
  90. #X connect 15 0 2 1;
  91. #X connect 15 1 3 1;
  92. #X connect 16 0 12 0;
  93. #X connect 16 1 5 0;
  94. #X connect 16 2 17 0;
  95. #X connect 17 0 10 1;
  96. #X connect 17 0 12 1;
  97. #X connect 19 0 16 0;
  98. #X connect 20 0 8 0;
  99. #X restore 130 295 pd save;
  100. #N canvas 48 0 912 684 animate 0;
  101. #X obj 109 4 inlet;
  102. #X obj 249 81 r \$0count;
  103. #X obj 209 115 f;
  104. #X obj 267 224 until;
  105. #X obj 279 262 f;
  106. #X obj 362 287 + 1;
  107. #X msg 366 129 0;
  108. #X obj 280 285 t f f;
  109. #X obj 404 354 t b b f f;
  110. #X obj 401 40 inlet stop;
  111. #X obj 352 551 tabwrite \$0xt;
  112. #X obj 491 525 tabwrite \$0yt;
  113. #X obj 432 82 t b b;
  114. #X obj 112 64 t f b b;
  115. #X obj 397 323 zexy/demultiplex 0 1;
  116. #X obj 639 39 inlet animation;
  117. #X obj 593 486 tabwrite \$0xt;
  118. #X obj 717 486 tabwrite \$0yt;
  119. #X obj 624 368 t f b f f;
  120. #N canvas 1197 215 779 663 smooth 0;
  121. #X obj 231 415 tabread \$0xt;
  122. #X obj 156 413 tabread \$0x;
  123. #X obj 152 345 t f f;
  124. #X obj 328 335 t f f;
  125. #X obj 358 379 t f f;
  126. #X obj 135 496 pack;
  127. #X obj 348 413 tabread \$0y;
  128. #X obj 423 414 tabread \$0yt;
  129. #X obj 111 466 expr $f3*($f2-$f1)+$f1;
  130. #X obj 310 466 expr $f3*($f2-$f1)+$f1;
  131. #X obj 156 299 t f f f;
  132. #X obj 258 150 unpack f f;
  133. #X obj 302 26 inlet;
  134. #X obj 149 543 s \$0pos;
  135. #X obj 378 541 s \$0index;
  136. #X connect 0 0 8 1;
  137. #X connect 1 0 8 0;
  138. #X connect 2 0 1 0;
  139. #X connect 2 1 0 0;
  140. #X connect 3 0 8 2;
  141. #X connect 3 1 9 2;
  142. #X connect 4 0 6 0;
  143. #X connect 4 1 7 0;
  144. #X connect 5 0 13 0;
  145. #X connect 6 0 9 0;
  146. #X connect 7 0 9 1;
  147. #X connect 8 0 5 0;
  148. #X connect 9 0 5 1;
  149. #X connect 10 0 2 0;
  150. #X connect 10 1 4 0;
  151. #X connect 10 2 14 0;
  152. #X connect 11 0 10 0;
  153. #X connect 11 1 3 0;
  154. #X connect 12 0 11 0;
  155. #X restore 17 480 pd smooth;
  156. #X obj 428 144 s \$0stop;
  157. #X obj 514 285 unpack;
  158. #X msg 635 254 1 1;
  159. #X msg 611 424 0;
  160. #N canvas 1614 215 779 663 accelerate 0;
  161. #X obj 231 415 tabread \$0xt;
  162. #X obj 156 413 tabread \$0x;
  163. #X obj 152 345 t f f;
  164. #X obj 328 335 t f f;
  165. #X obj 135 496 pack;
  166. #X obj 348 413 tabread \$0y;
  167. #X obj 423 414 tabread \$0yt;
  168. #X obj 132 33 inlet;
  169. #X obj 358 379 t f f f;
  170. #X obj 310 466 expr pow($f3 \, 2)*$f2+$f1;
  171. #X obj 110 466 expr pow($f3 \, 2)*$f2+$f1;
  172. #X obj 157 300 t f f f;
  173. #X obj 172 176 unpack f f;
  174. #X obj 159 553 s \$0pos;
  175. #X obj 330 553 s \$0index;
  176. #X connect 0 0 10 1;
  177. #X connect 1 0 10 0;
  178. #X connect 2 0 1 0;
  179. #X connect 2 1 0 0;
  180. #X connect 3 0 10 2;
  181. #X connect 3 1 9 2;
  182. #X connect 4 0 13 0;
  183. #X connect 5 0 9 0;
  184. #X connect 6 0 9 1;
  185. #X connect 7 0 12 0;
  186. #X connect 8 0 5 0;
  187. #X connect 8 1 6 0;
  188. #X connect 9 0 4 1;
  189. #X connect 10 0 4 0;
  190. #X connect 11 0 2 0;
  191. #X connect 11 1 8 0;
  192. #X connect 11 2 14 0;
  193. #X connect 12 0 11 0;
  194. #X connect 12 1 3 0;
  195. #X restore 86 481 pd accelerate;
  196. #X obj 698 415 random 500;
  197. #X obj 703 448 + 300;
  198. #N canvas 1446 285 856 573 steady 0;
  199. #X obj 241 425 tabread \$0xt;
  200. #X obj 166 423 tabread \$0x;
  201. #X obj 162 355 t f f;
  202. #X obj 338 345 t f f;
  203. #X obj 368 389 t f f;
  204. #X obj 145 506 pack;
  205. #X obj 358 423 tabread \$0y;
  206. #X obj 433 424 tabread \$0yt;
  207. #X obj 142 43 inlet;
  208. #X obj 121 476 expr $f3*$f2+$f1;
  209. #X obj 320 476 expr $f3*$f2+$f1;
  210. #X obj 171 203 unpack f f;
  211. #X obj 167 311 t f f f;
  212. #X obj 128 547 s \$0pos;
  213. #X obj 266 540 s \$0index;
  214. #X connect 0 0 9 1;
  215. #X connect 1 0 9 0;
  216. #X connect 2 0 1 0;
  217. #X connect 2 1 0 0;
  218. #X connect 3 0 9 2;
  219. #X connect 3 1 10 2;
  220. #X connect 4 0 6 0;
  221. #X connect 4 1 7 0;
  222. #X connect 5 0 13 0;
  223. #X connect 6 0 10 0;
  224. #X connect 7 0 10 1;
  225. #X connect 8 0 11 0;
  226. #X connect 9 0 5 0;
  227. #X connect 10 0 5 1;
  228. #X connect 11 0 12 0;
  229. #X connect 11 1 3 0;
  230. #X connect 12 0 2 0;
  231. #X connect 12 1 4 0;
  232. #X connect 12 2 14 0;
  233. #X restore 175 484 pd steady;
  234. #X obj 46 362 zexy/demultiplex 0 1 3;
  235. #X msg 571 249 3 0;
  236. #X obj 412 502 tabread \$0x;
  237. #X obj 367 522 +;
  238. #X obj 514 468 tabread \$0y;
  239. #X obj 497 502 +;
  240. #N canvas 0 0 604 527 timeline 0;
  241. #X obj 168 284 f;
  242. #X obj 261 295 + 1;
  243. #X msg 222 243 0;
  244. #X obj 161 206 r \$0count;
  245. #X obj 151 228 f;
  246. #X obj 153 256 until;
  247. #X msg 248 63 stop;
  248. #X obj 132 171 t b b f;
  249. #X msg 132 66 0 \, 1 \$1;
  250. #X obj 250 41 r \$0stop;
  251. #X obj 139 28 inlet;
  252. #X obj 152 459 outlet;
  253. #X obj 170 310 t f f;
  254. #X obj 181 407 pack f f;
  255. #X obj 285 153 moses 0.5;
  256. #X floatatom 346 213 5 0 0 0 - - -;
  257. #X obj 337 175 expr 0.5-($f1-0.5);
  258. #X obj 137 116 line 0 50;
  259. #X connect 0 0 12 0;
  260. #X connect 1 0 0 1;
  261. #X connect 2 0 0 1;
  262. #X connect 3 0 4 1;
  263. #X connect 4 0 5 0;
  264. #X connect 5 0 0 0;
  265. #X connect 6 0 17 0;
  266. #X connect 7 0 4 0;
  267. #X connect 7 1 2 0;
  268. #X connect 7 2 13 1;
  269. #X connect 8 0 17 0;
  270. #X connect 9 0 6 0;
  271. #X connect 10 0 8 0;
  272. #X connect 12 0 13 0;
  273. #X connect 12 1 1 0;
  274. #X connect 13 0 11 0;
  275. #X connect 14 0 7 0;
  276. #X connect 14 0 15 0;
  277. #X connect 14 1 16 0;
  278. #X connect 16 0 7 0;
  279. #X connect 16 0 15 0;
  280. #X connect 17 0 7 0;
  281. #X restore 93 285 pd timeline;
  282. #X obj 359 421 random 2000;
  283. #X obj 365 481 - 1000;
  284. #X obj 444 401 random 2000;
  285. #X obj 460 452 - 1000;
  286. #X obj 605 194 route bang fall;
  287. #X connect 0 0 13 0;
  288. #X connect 1 0 2 1;
  289. #X connect 2 0 3 0;
  290. #X connect 3 0 4 0;
  291. #X connect 4 0 7 0;
  292. #X connect 5 0 4 1;
  293. #X connect 6 0 4 1;
  294. #X connect 7 0 14 0;
  295. #X connect 7 1 5 0;
  296. #X connect 8 0 35 0;
  297. #X connect 8 1 37 0;
  298. #X connect 8 2 10 1;
  299. #X connect 8 2 30 0;
  300. #X connect 8 3 11 1;
  301. #X connect 8 3 32 0;
  302. #X connect 9 0 12 0;
  303. #X connect 12 0 20 0;
  304. #X connect 13 0 34 0;
  305. #X connect 13 1 2 0;
  306. #X connect 13 2 6 0;
  307. #X connect 14 0 8 0;
  308. #X connect 14 1 18 0;
  309. #X connect 15 0 39 0;
  310. #X connect 18 0 23 0;
  311. #X connect 18 1 25 0;
  312. #X connect 18 2 16 1;
  313. #X connect 18 3 17 1;
  314. #X connect 21 0 28 1;
  315. #X connect 21 1 14 1;
  316. #X connect 22 0 21 0;
  317. #X connect 23 0 16 0;
  318. #X connect 25 0 26 0;
  319. #X connect 26 0 17 0;
  320. #X connect 28 0 19 0;
  321. #X connect 28 1 24 0;
  322. #X connect 28 2 27 0;
  323. #X connect 29 0 21 0;
  324. #X connect 30 0 31 1;
  325. #X connect 31 0 10 0;
  326. #X connect 32 0 33 1;
  327. #X connect 33 0 11 0;
  328. #X connect 34 0 28 0;
  329. #X connect 35 0 36 0;
  330. #X connect 36 0 31 0;
  331. #X connect 37 0 38 0;
  332. #X connect 38 0 33 0;
  333. #X connect 39 0 29 0;
  334. #X connect 39 1 22 0;
  335. #X restore 121 364 pd animate;
  336. #X obj 316 306 t b b;
  337. #X obj 92 279 f;
  338. #X obj 241 227 + 2000;
  339. #X obj 536 -26 inlet;
  340. #X obj 482 341 iemguts/canvasobjectposition 1 0;
  341. #X obj 481 299 r \$0pos;
  342. #X obj 672 302 r \$0index;
  343. #X obj 304 58 t b a;
  344. #X connect 2 0 12 0;
  345. #X connect 3 0 14 0;
  346. #X connect 4 0 13 0;
  347. #X connect 4 1 10 0;
  348. #X connect 4 2 3 0;
  349. #X connect 5 0 6 0;
  350. #X connect 5 1 12 0;
  351. #X connect 6 0 2 0;
  352. #X connect 12 0 11 1;
  353. #X connect 12 1 9 0;
  354. #X connect 13 0 11 0;
  355. #X connect 14 0 2 0;
  356. #X connect 14 0 13 1;
  357. #X connect 15 0 19 0;
  358. #X connect 17 0 16 0;
  359. #X connect 18 0 16 1;
  360. #X connect 19 0 4 0;
  361. #X connect 19 1 11 2;