From 04c235c6ac5f36b507c629de5634d5e6d326222b Mon Sep 17 00:00:00 2001 From: "N.N." Date: Tue, 4 Oct 2005 02:04:42 +0000 Subject: adding abstractions and helpfiles svn path=/trunk/; revision=3647 --- externals/gridflow/pd_examples/photo_pianoroll.pd | 159 ++++++++++++++++++++++ 1 file changed, 159 insertions(+) create mode 100644 externals/gridflow/pd_examples/photo_pianoroll.pd (limited to 'externals/gridflow/pd_examples/photo_pianoroll.pd') diff --git a/externals/gridflow/pd_examples/photo_pianoroll.pd b/externals/gridflow/pd_examples/photo_pianoroll.pd new file mode 100644 index 00000000..b97e2008 --- /dev/null +++ b/externals/gridflow/pd_examples/photo_pianoroll.pd @@ -0,0 +1,159 @@ +#N canvas 476 141 695 640 10; +#X obj 146 24 #in lada.jpg; +#X obj 58 479 #out window; +#X obj 28 -9 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1; +#X obj 58 93 #store; +#X obj 164 3 loadbang; +#X text 268 -34 How to play a car; +#X obj 146 4 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 406 488 dac~; +#X obj 333 54 +; +#X msg 333 33 1; +#X obj 361 54 % 365; +#N canvas 0 0 450 300 fft 0; +#X obj 23 68 rifft~; +#X obj 23 88 outlet~; +#X obj 359 16 block~ 1024; +#X obj 23 48 tabreceive~ array2; +#X connect 0 0 1 0; +#X connect 3 0 0 0; +#X restore 405 448 pd fft; +#X obj 7 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1 +; +#X obj 28 40 t b b; +#X msg 284 418 4 2 # 0 0 0 502 1 502 1 0; +#X obj 284 437 # +; +#X obj 58 418 t a b; +#X msg 311 437 \$1 0; +#X obj 58 439 #greyscale_to_rgb; +#X obj 477 135 #store; +#X obj 476 214 #export_list; +#X obj 517 234 s array1; +#X obj 477 174 #cast float32; +#X obj 186 126 # inv+ 255; +#X obj 146 64 # min 255; +#X obj 146 45 # * 3; +#X msg 477 113 1 1 # \$1; +#X obj 444 14 table array1 502; +#X obj 477 234 t b a; +#X obj 350 437 r row; +#X obj 361 76 s row; +#X obj 478 285 t f f; +#X obj 480 392 tabwrite array2; +#X obj 479 326 exp; +#X obj 137 221 #mouse \, ...; +#X obj 272 242 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X obj 224 243 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X obj 165 374 #draw_polygon put; +#X msg 272 259 1 # 255; +#X msg 223 261 1 # 0; +#X obj 169 350 spigot; +#X obj 280 292 t a a; +#X obj 294 374 # +; +#X obj 146 139 t a; +#X msg 280 314 4 2 # 0 0 0 1 1 1 1 0; +#X obj 280 336 # *; +#X obj 357 333 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10 +-262131 -1 -1 20 256; +#X msg 185 182 365 502 1 # 255; +#X text 296 182 clear; +#X obj 480 373 tabread4 array1; +#X obj 477 265 for 0 64 1; +#X obj 477 154 #fade 5; +#X obj 444 35 table array2 1024; +#X obj 406 468 lop~ 1000; +#X obj 479 305 / 20; +#X obj 480 346 * 22; +#X obj 28 19 metro 46.44; +#X obj 357 350 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10 +-262131 -1 -1 1 256; +#X obj 325 373 #pack 2; +#X obj 475 194 # / ( float32 # 4000 ); +#X obj 186 155 #convolve ( 1 7 # 1 1 2 8 2 1 1 ); +#X obj 514 90 # >> 4; +#X obj 146 84 #convolve ( 2 2 # 1 ); +#X obj 146 103 # >> 2; +#X obj 58 459 #draw_polygon put (3 # 255 0 0); +#X obj -18 524 cnv 15 700 30 empty empty empty 20 12 0 14 -200249 -66577 +0; +#X text -10 531 GridFlow 0.8.0; +#X text -10 531 GridFlow 0.8.0; +#X obj -18 -85 cnv 15 700 30 empty empty empty 20 12 0 14 -233017 -66577 +0; +#X text -3 -86 photo_pianoroll.pd; +#X text -5 -72 Copyright 2004 Mathieu Bouchard; +#X connect 0 0 25 0; +#X connect 1 0 34 0; +#X connect 2 0 56 0; +#X connect 3 0 16 0; +#X connect 3 0 40 0; +#X connect 4 0 0 0; +#X connect 6 0 0 0; +#X connect 8 0 10 0; +#X connect 9 0 8 0; +#X connect 10 0 8 1; +#X connect 10 0 30 0; +#X connect 10 0 26 0; +#X connect 11 0 53 0; +#X connect 12 0 13 0; +#X connect 13 0 9 0; +#X connect 13 1 3 0; +#X connect 14 0 15 0; +#X connect 15 0 64 2; +#X connect 16 0 18 0; +#X connect 16 1 14 0; +#X connect 17 0 15 1; +#X connect 18 0 64 0; +#X connect 19 0 51 0; +#X connect 20 0 28 0; +#X connect 22 0 59 0; +#X connect 23 0 60 0; +#X connect 24 0 62 0; +#X connect 25 0 24 0; +#X connect 26 0 19 0; +#X connect 28 0 50 0; +#X connect 28 1 21 0; +#X connect 29 0 17 0; +#X connect 31 0 54 0; +#X connect 31 1 32 1; +#X connect 33 0 55 0; +#X connect 34 0 41 0; +#X connect 34 1 41 0; +#X connect 34 4 36 0; +#X connect 34 4 40 1; +#X connect 34 6 35 0; +#X connect 34 6 40 1; +#X connect 35 0 38 0; +#X connect 36 0 39 0; +#X connect 37 0 43 0; +#X connect 38 0 37 1; +#X connect 39 0 37 1; +#X connect 40 0 37 0; +#X connect 41 0 44 0; +#X connect 41 1 42 1; +#X connect 42 0 37 2; +#X connect 43 0 3 1; +#X connect 43 0 23 0; +#X connect 44 0 45 0; +#X connect 45 0 42 0; +#X connect 46 0 58 0; +#X connect 47 0 43 0; +#X connect 49 0 32 0; +#X connect 50 0 31 0; +#X connect 51 0 22 0; +#X connect 53 0 7 0; +#X connect 53 0 7 1; +#X connect 54 0 33 0; +#X connect 55 0 49 0; +#X connect 56 0 13 0; +#X connect 57 0 58 1; +#X connect 58 0 45 1; +#X connect 59 0 20 0; +#X connect 60 0 61 0; +#X connect 61 0 19 1; +#X connect 62 0 63 0; +#X connect 63 0 43 0; +#X connect 64 0 1 0; -- cgit v1.2.1