[PD-cvs] pd/src desire.tk,1.1.2.600.2.399,1.1.2.600.2.400

Mathieu Bouchard matju at users.sourceforge.net
Sun Aug 19 23:03:04 CEST 2007


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19533

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
changed meaning of [inside] to only half-open interval.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.399
retrieving revision 1.1.2.600.2.400
diff -C2 -d -r1.1.2.600.2.399 -r1.1.2.600.2.400
*** desire.tk	19 Aug 2007 01:52:36 -0000	1.1.2.600.2.399
--- desire.tk	19 Aug 2007 21:02:59 -0000	1.1.2.600.2.400
***************
*** 140,145 ****
  }
  
! # intervals
! proc inside {x x0 x1}      {return [expr $x>=$x0 && $x<=$x1]}
  proc overlap {y0 y1 x0 x1} {return [expr [inside $y0 $x0 $x1] || [inside $y1 $x0 $x1]]}
  
--- 140,145 ----
  }
  
! # one-dimensional intervals (left-closed, right-open); not much in use at the moment, not that they wouldn't deserve to!
! proc inside      {x x0 x1} {return [expr $x>=$x0 && $x<$x1]}
  proc overlap {y0 y1 x0 x1} {return [expr [inside $y0 $x0 $x1] || [inside $y1 $x0 $x1]]}
  
***************
*** 4055,4059 ****
  	
  	# iolist stores in/outlets to be conected inside the subpatch
! 	foreach in $ins {mset {idx p} $in; lappend iolist [list i [$self idx_map $idx] $p]}
  	foreach out $outs {mset {idx p} $out; lappend iolist [list o [$self idx_map $idx] $p]}
  	puts "\t \t Cutting..............."
--- 4055,4059 ----
  	
  	# iolist stores in/outlets to be conected inside the subpatch
! 	foreach in   $ins {mset {idx p}  $in; lappend iolist [list i [$self idx_map $idx] $p]}
  	foreach out $outs {mset {idx p} $out; lappend iolist [list o [$self idx_map $idx] $p]}
  	puts "\t \t Cutting..............."
***************
*** 7379,7383 ****
  	set sel [$listbox curselection]
  	if {$sel == ""} {return}
! 	if {![inside [expr $sel+$dir] 0 [expr [$listbox size] - 1]]} {return}
  	set line [$listbox get $sel]
  	$listbox delete $sel
--- 7379,7383 ----
  	set sel [$listbox curselection]
  	if {$sel == ""} {return}
! 	if {![inside [expr $sel+$dir] 0 [$listbox size]]} {return}
  	set line [$listbox get $sel]
  	$listbox delete $sel





More information about the Pd-cvs mailing list