[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