pd/src desire.tk,1.1.2.600.2.399,1.1.2.600.2.400 - Pd-cvs

19 Aug 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