[PD-cvs] pd/src desire.tk, 1.1.2.600.2.82, 1.1.2.600.2.83 desire.c, 1.1.2.217.2.71, 1.1.2.217.2.72

Mathieu Bouchard matju at users.sourceforge.net
Thu Dec 14 06:12:33 CET 2006


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





More information about the Pd-cvs mailing list