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) {