[PD] sound controlled color change

robertgarvin at bellsouth.net robertgarvin at bellsouth.net
Thu Nov 10 16:05:52 CET 2005


If you look inside the [pd] object in the main patch window, you'll see the VU meters.. I'm just not sure how to send those color messages

-----Original Message-----
From: Hans-Christoph Steiner [mailto:hans at eds.org] 
Sent: Wednesday, November 09, 2005 6:57 PM
To: robertgarvin at bellsouth.net
Cc: pd-list at iem.at
Subject: Re: [PD] sound controlled color change


That's quite a nice little patch.  It'd be nice to turn the bang into a  
VU meter, with a smooth gradient of color based on amplitude.

.hc

On Nov 5, 2005, at 10:06 AM, <robertgarvin at bellsouth.net> wrote:

>  hello all,
>  I played around with PD for a while tonight, and came up with  
> something
>  I'd like to share.. nothing big, just something i think might be
>  interesting, and with improvement, would be really neat.
>  so here it is
>
> ----------------------------------------------------------------------- 
> ----------------------------------------------------------
> #N canvas 579 95 180 169 12;
> #X obj 40 5 bng 100 250 50 0 empty color_2 click_me 20 49 0 8 -24198
> -262144 -262144;
> #N canvas 141 6 405 670 Pd 0;
> #X obj -37 -16 inlet;
> #X obj 138 5 bng 15 75 50 0 empty color_2 10 3 8 0 7 -24198 -262144
> -262144;
> #X obj 36 31 osc~ 440;
> #X obj 37 68 *~;
> #X obj 9 167 vu 15 120 empty empty -1 -8 0 8 -66577 -1 1 0;
> #X obj 26 108 dac~;
> #N canvas 0 22 794 185 mySigToVU 0;
> #X obj 5 40 env~ 4096;
> #X obj 5 71 - 97;
> #X obj 5 10 inlet~;
> #X text 80 73 <= offset the number for 0dB Max display;
> #X text 79 42 <= output the RMS value;
> #X text 247 65 comment;
> #X text 100 53 of an incoming signal in dB;
> #X obj 5 106 outlet;
> #X obj 414 43 env~ 4096;
> #X obj 414 74 - 97;
> #X obj 414 13 inlet~;
> #X obj 414 109 outlet;
> #X text 78 12 <= Left input signal;
> #X text 471 13 <= Right input signal;
> #X text 83 108 <= send number to Left VU meter;
> #X text 467 109 <= send number to Right VU meter;
> #X connect 0 0 1 0;
> #X connect 1 0 7 0;
> #X connect 2 0 0 0;
> #X connect 8 0 9 0;
> #X connect 9 0 11 0;
> #X connect 10 0 8 0;
> #X restore 1 130 pd mySigToVU;
> #X obj 76 164 vu 15 120 empty empty -1 -8 0 8 -66577 -1 1 0;
> #X msg 137 23 1 10 0 \, 0 1000 10;
> #X obj 135 47 vline~;
> #X obj 8 308 abs;
> #X msg -11 529 color \$1 0 0;
> #X obj -10 560 s color_2;
> #X obj -11 501 *;
> #X obj -11 481 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
> 1;
> #X obj -65 382 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
> -1;
> #X obj -11 460 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
> -1;
> #X floatatom 8 384 5 0 0 0 - - -;
> #X obj -11 436 delay 50;
> #X obj 8 350 + 69;
> #X obj -65 358 loadbang;
> #X obj -93 411 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
> -1;
> #X obj -92 429 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
> -1;
> #X obj 145 345 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
> 1;
> #X text 134 311 Click to start and stop;
> #X text 140 360 [X] = on [ ] = Off;
> #X connect 0 0 1 0;
> #X connect 1 0 8 0;
> #X connect 2 0 3 0;
> #X connect 3 0 5 0;
> #X connect 3 0 5 1;
> #X connect 3 0 6 0;
> #X connect 3 0 6 1;
> #X connect 4 0 10 0;
> #X connect 6 0 4 0;
> #X connect 6 1 7 0;
> #X connect 8 0 9 0;
> #X connect 9 0 3 1;
> #X connect 10 0 19 0;
> #X connect 11 0 12 0;
> #X connect 13 0 11 0;
> #X connect 14 0 13 0;
> #X connect 15 0 18 0;
> #X connect 15 0 22 0;
> #X connect 16 0 14 0;
> #X connect 16 0 21 0;
> #X connect 17 0 13 1;
> #X connect 18 0 16 0;
> #X connect 19 0 17 0;
> #X connect 20 0 15 0;
> #X connect 21 0 15 0;
> #X connect 22 0 14 0;
> #X connect 23 0 15 0;
> #X restore 40 118 pd;
> #X connect 0 0 1 0;
>
>
> ----------------------------------------------------------------------- 
> ----------------------------------------------------
> let me know what you think (ie applications, improvements, comments,  
> etc.).
>
>  RG
>
>
>
> _______________________________________________
> PD-list at iem.at mailing list
> UNSUBSCRIBE and account-management ->  
> http://lists.puredata.info/listinfo/pd-list
>

________________________________________________________________________ 
____

"Information wants to be free."
                                      -Stewart Brand






More information about the Pd-list mailing list