Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25850
Modified Files: Tag: desiredata desire.tk desire.c Log Message: fix [vu]
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.82 retrieving revision 1.1.2.600.2.83 diff -C2 -d -r1.1.2.600.2.82 -r1.1.2.600.2.83 *** desire.tk 14 Dec 2006 04:41:46 -0000 1.1.2.600.2.82 --- desire.tk 14 Dec 2006 05:12:26 -0000 1.1.2.600.2.83 *************** *** 2091,2095 **** -highlightthickness 0 -font $font_str -fg [$self look fg] -insertbackground [$self look fg] bind $t <Key> "$self resize %K; $self key_input %W %x %y %K %A 0" ! bind $t <Control-Return> "$self key_input %W %x %y 10 %A 0" bind $t <Return> "$self unedit" bind $t <Escape> "$self unedit 0" --- 2091,2095 ---- -highlightthickness 0 -font $font_str -fg [$self look fg] -insertbackground [$self look fg] bind $t <Key> "$self resize %K; $self key_input %W %x %y %K %A 0" ! bind $t <Control-Return> "$self key_input %W %x %y 10 %A 0" bind $t <Return> "$self unedit" bind $t <Escape> "$self unedit 0" *************** *** 5193,5197 **** set y [expr $y1 + ($led_size+1)*(41-$@value) - ($led_size+1)/2] $self item MASK rectangle [list $x3 $y1 $x4 $y] -width 0 -fill [color_* [$self look bg] $colour] ! set c [lindex $vu_col $@peak] set y [expr $y1 + ($led_size+1)*(41-$@peak) - ($led_size+1)/2] $self item PEAK rectangle [list $x1 $y $x2 [expr $y+$led_size]] \ --- 5193,5197 ---- set y [expr $y1 + ($led_size+1)*(41-$@value) - ($led_size+1)/2] $self item MASK rectangle [list $x3 $y1 $x4 $y] -width 0 -fill [color_* [$self look bg] $colour] ! set c [lindex $vu_col [expr int($@peak)]] set y [expr $y1 + ($led_size+1)*(41-$@peak) - ($led_size+1)/2] $self item PEAK rectangle [list $x1 $y $x2 [expr $y+$led_size]] \ *************** *** 5199,5202 **** --- 5199,5205 ---- }
+ def Vu rms= {rms } {set @value $rms; $self changed rms} + def Vu peak= {peak} {set @peak $peak; $self changed peak} + def Vu set {i j} { set @value $i
Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.71 retrieving revision 1.1.2.217.2.72 diff -C2 -d -r1.1.2.217.2.71 -r1.1.2.217.2.72 *** desire.c 14 Dec 2006 04:01:08 -0000 1.1.2.217.2.71 --- desire.c 14 Dec 2006 05:12:28 -0000 1.1.2.217.2.72 *************** *** 7119,7126 **** static void vu_float0(t_vu *x, t_floatarg v) { SET(rms, vuify(x,v)); SET(fr,vu_round(v)); outlet_float(x->out_rms, x->fr); ! sys_mgui(x,"rms=","f",x->rms);} static void vu_float1(t_vu *x, t_floatarg v) { SET(peak,vuify(x,v)); SET(fp,vu_round(v)); outlet_float(x->out_peak,x->fp); ! sys_mgui(x,"peak=","f",x->peak);}
static void vu_bang(t_vu *x) { --- 7119,7126 ---- static void vu_float0(t_vu *x, t_floatarg v) { SET(rms, vuify(x,v)); SET(fr,vu_round(v)); outlet_float(x->out_rms, x->fr); ! sys_mgui(x,"rms=","i",x->rms);} static void vu_float1(t_vu *x, t_floatarg v) { SET(peak,vuify(x,v)); SET(fp,vu_round(v)); outlet_float(x->out_peak,x->fp); ! sys_mgui(x,"peak=","i",x->peak);}
static void vu_bang(t_vu *x) {