Greetings Ant!

Perhaps try looking at  [pix_mean_color] object? Attached is a patch that
I've cleaned up- it just extracts RGA values from loaded video then unpacks
them for 3 [osc~] objects-crude but could be starting point I hope

...best!

Al

On Sun, Apr 5, 2015 at 3:51 PM, Antonio Roberts <[email protected]>
wrote:

> I've been studying the work of Neil Harbisson for awhile and I'm
> looking to try and replicate in part the functionality of his eyeborg
> using Pure Data. I have already built a simple patch to convert pixels
> to sound but now I want to expand on it. Here's my initial research:
> http://www.hellocatfood.com/sonification-studiespixel-waves/
>
> Colours don't directly relate to sound and so Harbisson and others
> must use a scale to assign colours to sounds. Some initial research
> brought these up:
>
>
> http://blogs.plos.org/neuroanthropology/files/2014/03/Harbisson-The-Sound-of-Colors-TED.jpg
> http://www.bbc.co.uk/news/magazine-16681630
> http://www.lunarplanner.com/Harmonics/planetary-harmonics.html
> http://www.flutopedia.com/sound_color.htm
>
> Can anyone think of a way to translate this into pd? In the end I
> would like to be able to display a block of colour on screen and have
> that generate a specific note.
>
> Any help is appreciated.
>
> Antonio
>
> --
> ============================
> [email protected]
> http://www.hellocatfood.com
> ============================
>
> _______________________________________________
> [email protected] mailing list
> UNSUBSCRIBE and account-management ->
> http://lists.puredata.info/listinfo/pd-list
>
#N canvas 306 117 851 558 10;
#X obj -55 -2454 cnv 15 100 60 empty empty empty 20 12 0 14 -195568
-66577 0;
#N canvas 0 0 450 300 gemwin 0;
#X obj 113 117 gemwin;
#X obj 57 76 outlet;
#X obj 57 9 inlet;
#X obj 57 35 route create;
#X msg 57 60 set destroy;
#X msg 122 58 set create;
#X msg 113 96 create \, 1;
#X msg 170 96 destroy;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 3 1 5 0;
#X connect 3 1 7 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X restore -48 -2418 pd gemwin;
#X msg -48 -2435 destroy;
#X text -46 -2455 Create window:;
#X obj 87 -2367 pix_texture;
#X obj 98 -2404 pix_mean_color;
#X obj 85 -2343 square 4;
#N canvas 0 0 450 300 unpacker 0;
#X obj 100 -75 unpack f f f;
#X floatatom 97 -22 5 0 0 0 - - -, f 5;
#X floatatom 137 -21 5 0 0 0 - - -, f 5;
#X floatatom 176 -21 5 0 0 0 - - -, f 5;
#X obj 96 -46 * 500;
#X obj 136 -40 * 500;
#X obj 177 -44 * 500;
#X obj 97 -2 outlet;
#X obj 139 0 outlet;
#X obj 187 0 outlet;
#X obj 108 -111 inlet;
#X obj 281 -86 inlet;
#X connect 0 0 4 0;
#X connect 0 1 5 0;
#X connect 0 2 6 0;
#X connect 1 0 7 0;
#X connect 2 0 8 0;
#X connect 3 0 9 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 3 0;
#X connect 10 0 0 0;
#X connect 11 0 4 1;
#X connect 11 0 5 1;
#X connect 11 0 6 1;
#X restore 313 -2399 pd unpacker;
#X floatatom 390 -2427 5 0 0 0 - - -, f 5;
#X msg 388 -2469 216;
#X obj 384 -2503 loadbang;
#X obj 124 -2613 gemhead;
#X obj 133 -2507 pix_film;
#X obj 184 -2667 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 184 -2646 openpanel;
#X msg 184 -2625 open \$1;
#X msg 271 -2591 auto 1;
#X obj 179 -2452 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 155 -2462 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 269 -2628 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X msg 211 -2506 0;
#X floatatom 302 -2353 5 0 0 0 - - -, f 5;
#X floatatom 347 -2345 5 0 0 0 - - -, f 5;
#X floatatom 387 -2350 5 0 0 0 - - -, f 5;
#X obj 302 -2332 sig~;
#X obj 302 -2311 osc~;
#X obj 351 -2322 sig~;
#X obj 351 -2301 osc~;
#X obj 390 -2318 sig~;
#X obj 390 -2297 osc~;
#X obj 360 -2245 dac~;
#X connect 1 0 2 0;
#X connect 2 0 1 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 5 1 7 0;
#X connect 7 0 21 0;
#X connect 7 1 22 0;
#X connect 7 2 23 0;
#X connect 8 0 7 1;
#X connect 9 0 7 1;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 5 0;
#X connect 12 1 18 0;
#X connect 12 2 17 0;
#X connect 12 2 20 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 12 0;
#X connect 16 0 12 0;
#X connect 19 0 16 0;
#X connect 20 0 12 1;
#X connect 21 0 24 0;
#X connect 22 0 26 0;
#X connect 22 0 27 0;
#X connect 23 0 28 0;
#X connect 24 0 25 0;
#X connect 25 0 30 0;
#X connect 25 0 30 1;
#X connect 26 0 27 0;
#X connect 27 0 30 0;
#X connect 27 0 30 1;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 30 1;
_______________________________________________
[email protected] mailing list
UNSUBSCRIBE and account-management -> 
http://lists.puredata.info/listinfo/pd-list

Reply via email to