[PD-cvs] extensions/gui/ix ngrid.wid,1.1,1.2
carmen rocco
ix9 at users.sourceforge.net
Mon May 2 13:01:11 CEST 2005
- Previous message: [PD-cvs] externals/nusmuk/msd2D/editor butterfly.txt, 1.1, 1.2 dancer.txt, 1.1, 1.2 link2masses.pd, 1.1, 1.2 morelinks.pd, 1.3, 1.4 msd2d-editor.pd, 1.4, 1.5 msd_append.pd, 1.2, 1.3 structures.pd, 1.1, 1.2 ilinker.pd, 1.1, NONE
- Next message: [PD-cvs] externals/nusmuk/msd2D/editor mass-set.pd,1.1,1.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/extensions/gui/ix
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26751
Modified Files:
ngrid.wid
Log Message:
.:.
Index: ngrid.wid
===================================================================
RCS file: /cvsroot/pure-data/extensions/gui/ix/ngrid.wid,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ngrid.wid 24 Apr 2005 12:10:00 -0000 1.1
--- ngrid.wid 2 May 2005 11:01:09 -0000 1.2
***************
*** 1,10 ****
namespace eval ::ix {
! proc random_int {} {
! return [expr "int(floor(rand()*16))"]
! }
proc random_clr {} {
return [format "\#%1X%1X%1X%1X%1X%1X" [random_int] [random_int] [random_int] [random_int] [random_int] [random_int]]
}
variable _
proc ngrid_new {path target w h bg ln div move spread radius max} {
variable _
--- 1,9 ----
namespace eval ::ix {
! proc random_int {} {return [expr "int(floor(rand()*16))"]}
proc random_clr {} {
return [format "\#%1X%1X%1X%1X%1X%1X" [random_int] [random_int] [random_int] [random_int] [random_int] [random_int]]
}
variable _
+
proc ngrid_new {path target w h bg ln div move spread radius max} {
variable _
***************
*** 23,37 ****
set _($target:spread) $spread
set _($target:radius) $radius
! set _($target:max) $max
! }
! proc ngrid_pos {which path target what where} {
variable _
array set dm {x width y height}
for {set n 0 } {$n <= $_($target:n)} {incr n} {
foreach xy {x y} {
! if {[info exists _($target:box$n:$xy)] && [lindex $_($target:box$n:$xy) 0] eq $what} {
set x [expr [lindex [$path.ngrid coords sqr_$n] 0] + $_($target:radius)]
set y [expr [lindex [$path.ngrid coords sqr_$n] 1] + $_($target:radius)]
! set $xy [expr ($where - [lindex $_($target:box$n:$xy) 1 ].0) / ([lindex $_($target:box$n:$xy) 2] - [lindex $_($target:box$n:$xy) 1 ].0) * [winfo $dm($xy) $path.ngrid]]
switch $which {
setpos {$path.ngrid coords sqr_$n [expr $x - $_($target:radius)] [expr $y - $_($target:radius)] [expr $x + $_($target:radius)] [expr $y + $_($target:radius)]}
--- 22,36 ----
set _($target:spread) $spread
set _($target:radius) $radius
! set _($target:max) $max}
!
! proc ngrid_find {which path target what udata} {
variable _
array set dm {x width y height}
for {set n 0 } {$n <= $_($target:n)} {incr n} {
foreach xy {x y} {
! if {[$path.ngrid find withtag name_${xy}_$n] ne "" && [string match "$what*" [lindex $_($target:box$n:$xy) 0]]} {
set x [expr [lindex [$path.ngrid coords sqr_$n] 0] + $_($target:radius)]
set y [expr [lindex [$path.ngrid coords sqr_$n] 1] + $_($target:radius)]
! set $xy [expr ($udata - [lindex $_($target:box$n:$xy) 1 ] + 0.0) / ([lindex $_($target:box$n:$xy) 2] - [lindex $_($target:box$n:$xy) 1 ] + 0.0) * [winfo $dm($xy) $path.ngrid]]
switch $which {
setpos {$path.ngrid coords sqr_$n [expr $x - $_($target:radius)] [expr $y - $_($target:radius)] [expr $x + $_($target:radius)] [expr $y + $_($target:radius)]}
***************
*** 40,93 ****
ngrid_click $path $target $x $y
}
! }
! }
! }
! }
! }
! proc ngrid_vset {path target what where} {
! variable _
! set _($target:$what) $where
! }
proc ngrid_add {path target name cur min max} {
variable _
! set fill [random_clr]
! set n $_($target:n)
! set ni 0
! while {$ni <= $n} {
! foreach xy {x y} {if {[$path.ngrid itemcget name_${xy}_$ni -text] eq $name} {return}}
! incr ni}
! if {[$path.ngrid itemcget name_x_$n -text] eq ""} {
! set _($target:box$n:x) [list $name $min $max $fill]
! $path.ngrid create oval 0 0 0 0 -tags sqr_$n -fill $fill -outline white -width 2
! $path.ngrid create line 0 0 0 0 -tags hist_$n -fill $fill
! $path.ngrid create text 0 [expr 5 + $n * 8.0] -tags name_y_$n -fill $fill -font {{Bitstream Vera Sans} 8} -text "" -anchor w -justify left
! $path.ngrid create text [winfo width $path.ngrid] [expr 5 + $n * 8.0] -tags name_x_$n -fill $fill -font {{Bitstream Vera Sans} 8} -text "$name" -anchor e -justify right
! $path.ngrid lower name_x_$n
! $path.ngrid lower name_y_$n
! set b1 "set ::ix::_($target:recent) $n; ::ix::ngrid_click $path $target %x %y"
! $path.ngrid bind sqr_$n <1> $b1
! $path.ngrid bind sqr_$n <B1-Motion> $b1
! foreach el [list sqr_$n name_x_$n name_y_$n] {
! $path.ngrid bind $el <Enter> "::ix::ngrid_highlight $path $target $n grey96"
! $path.ngrid bind $el <Leave> "::ix::ngrid_highlight $path $target $n -"
}
! ngrid_move $path $target $n [expr ($cur - $min) / ($max - $min.0) * [winfo width $path.ngrid]] [expr rand() * [winfo height $path.ngrid]]
! } else {
! set _($target:box$n:y) [list $name $min $max]
! $path.ngrid itemconfigure name_y_$n -text "$name"
! ngrid_move $path $target $n [expr [lindex [$path.ngrid coords sqr_$n] 0] + $_($target:radius)] [expr ($cur - $min.0) / ($max - $min) * [winfo height $path.ngrid]]
! incr _($target:n)
! }
! }
proc ngrid_highlight {path target n color} {
variable _
foreach el [list name_y_$n name_x_$n sqr_$n] {
! if {$color eq "-"} {
! set color [lindex $_($target:box$n:x) 3]
! }
$path.ngrid itemconfigure $el -fill $color
! set _($target:recent) $n
! }
! }
proc ngrid_click {path target x y} {
variable _
--- 39,96 ----
ngrid_click $path $target $x $y
}
! remove {
! $path.ngrid delete name_${xy}_$n
! if {[$path.ngrid find withtag name_x_$n] eq "" && [$path.ngrid find withtag name_x_$n] eq ""} {
! $path.ngrid delete sqr_$n; $path.ngrid delete hist_$n}}}}}}}
!
! proc ngrid_vset {path target what where} {variable _; set _($target:$what) $where}
!
proc ngrid_add {path target name cur min max} {
variable _
! if {$max == $min} {set max 1.0; set min 0.0}
! array set justify {x left y right}
! array set anchor {y e x w}
! for {set n 0 } {$n <= $_($target:n)} {incr n} {foreach xy {x y} {
! if {[$path.ngrid itemcget name_${xy}_$n -text] eq $name} {return}}}
!
! for {set n 0 } {$n <= $_($target:n)} {incr n} {foreach xy {x y} {
! if {[$path.ngrid find withtag name_x_$n] eq "" && [$path.ngrid find withtag name_y_$n] eq ""} {
! set fill [set _($target:box$n:fill) [random_clr]]
! $path.ngrid create oval 0 0 0 0 -tags sqr_$n -fill $fill -outline white -width 2
! set rx [expr rand() * [winfo width $path.ngrid]]; set ry [expr rand() * [winfo height $path.ngrid]]
! $path.ngrid create line $rx $ry $rx $ry -tags hist_$n -fill $fill
! $path.ngrid bind sqr_$n <1> "set ::ix::_($target:recent) $n; ::ix::ngrid_click $path $target %x %y"
! $path.ngrid bind sqr_$n <B1-Motion> [$path.ngrid bind sqr_$n <1>]
! $path.ngrid bind sqr_$n <Enter> "::ix::ngrid_highlight $path $target $n grey96"
! $path.ngrid bind sqr_$n <Leave> "::ix::ngrid_highlight $path $target $n -"
! ngrid_move $path $target $n $rx $ry
! incr _($target:n)
}
! if {[$path.ngrid find withtag name_${xy}_$n] eq ""} {
! set _($target:box$n:$xy) [list $name $min $max]
! puts "adding $xy $n $name $min $max"
! switch $xy {
! x {
! set tl [concat 0 [expr 5 + $n * 8.0]]
! set qx [expr ($cur - $min) / ($max - $min + 0.0) * [winfo width $path.ngrid]]
! set qy [expr [lindex [$path.ngrid coords sqr_$n] 1] + $_($target:radius)]}
! y {
! set tl [concat [winfo width $path.ngrid] [expr 5 + $n * 8.0]]
! set qx [expr [lindex [$path.ngrid coords sqr_$n] 0] + $_($target:radius)]
! set qy [expr ($cur - $min) / ($max - $min + 0.0) * [winfo height $path.ngrid]]}}
! $path.ngrid create text $tl -tags name_${xy}_$n -fill $_($target:box$n:fill) -font {{Bitstream Vera Sans} 8} -text $name -anchor $anchor($xy) -justify $justify($xy)
! $path.ngrid lower name_${xy}_$n
! $path.ngrid bind name_${xy}_$n <Enter> "::ix::ngrid_highlight $path $target $n grey96"
! $path.ngrid bind name_${xy}_$n <Leave> "::ix::ngrid_highlight $path $target $n -"
! ngrid_move $path $target $n $qx $qy
! return}}}}
!
proc ngrid_highlight {path target n color} {
variable _
foreach el [list name_y_$n name_x_$n sqr_$n] {
! if {$color eq "-"} {set color $_($target:box$n:fill)}
$path.ngrid itemconfigure $el -fill $color
! set _($target:recent) $n}}
!
proc ngrid_click {path target x y} {
variable _
***************
*** 95,114 ****
swarm {
for {set n 0} {$n <= $_($target:n)} {incr n} {
! ngrid_move $path $target $n [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $x] [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $y]
! }
! }
trails {
for {set n 0} {$n <= $_($target:n)} {incr n} {
if {[expr rand() > 0.96] == 1} {
! ngrid_move $path $target $n [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $x] [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $y]
! }
! }
! }
! error {
! ngrid_move $path $target $_($target:recent) [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $x] [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $y]
! }
! default {ngrid_move $path $target $_($target:recent) $x $y}
! }
! }
proc ngrid_move {path target n px py} {
variable _
--- 98,109 ----
swarm {
for {set n 0} {$n <= $_($target:n)} {incr n} {
! ngrid_move $path $target $n [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $x] [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $y]}}
trails {
for {set n 0} {$n <= $_($target:n)} {incr n} {
if {[expr rand() > 0.96] == 1} {
! ngrid_move $path $target $n [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $x] [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $y]}}}
! error {ngrid_move $path $target $_($target:recent) [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $x] [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $y]}
! default {ngrid_move $path $target $_($target:recent) $x $y}}}
!
proc ngrid_move {path target n px py} {
variable _
***************
*** 117,121 ****
set w [winfo width $path.ngrid]
foreach xy {x y} {
! if {[info exists _($target:box$n:$xy)]} {
set l $_($target:box$n:$xy)
set name [lindex $l 0]
--- 112,116 ----
set w [winfo width $path.ngrid]
foreach xy {x y} {
! if {[$path.ngrid find withtag name_${xy}_$n] ne ""} {
set l $_($target:box$n:$xy)
set name [lindex $l 0]
***************
*** 123,130 ****
set max [lindex $l 2]
if {[expr $min == 0] && [expr $max == 0]} {set max $_($target:max)}
! pd "$target.rp _cb [pdtk_enquote $name] [expr ($max - $min) * [set p$xy] / $w.0 + $min] \;"
! }
! }
! }
proc ngrid_gridlines {path target ln lines} {
variable _
--- 118,123 ----
set max [lindex $l 2]
if {[expr $min == 0] && [expr $max == 0]} {set max $_($target:max)}
! pd "$target.rp _cb [pdtk_enquote $name] [expr ($max - $min) * [set p$xy] / $w.0 + $min] \;"}}}
!
proc ngrid_gridlines {path target ln lines} {
variable _
***************
*** 139,148 ****
set ow [expr $gw.0 * $x.0 / $lines.0]
$w create line $ow 0 $ow $gh -fill $ln -tags gridlines
! $w create line 0 $oh $gw $oh -fill $ln -tags gridlines
! set fontsize [expr int(80.0/$lines.0)]
! }
! }
! }
! }
#> ngrid frame
#. -bd 3 #w 384 #h 144 #bg gray10 #ln gray35 #div 6 #n 3
--- 132,137 ----
set ow [expr $gw.0 * $x.0 / $lines.0]
$w create line $ow 0 $ow $gh -fill $ln -tags gridlines
! $w create line 0 $oh $gw $oh -fill $ln -tags gridlines}}}}
!
#> ngrid frame
#. -bd 3 #w 384 #h 144 #bg gray10 #ln gray35 #div 6 #n 3
***************
*** 150,155 ****
#. @list ::ix::ngrid_add .- .| {.#1} .#2 .#3 .#4
#. @add ::ix::ngrid_add .- .| {.#1} .#2 .#3 .#4
! #. @pos ::ix::ngrid_pos pos .- .| {.#1} .#2
! #. @setpos ::ix::ngrid_pos setpos .- .| {.#1} .#2
#. @clear ::ix::ngrid_clear .- .| all
#. @radius ::ix::ngrid_vset .- .| radius .#1
--- 139,145 ----
#. @list ::ix::ngrid_add .- .| {.#1} .#2 .#3 .#4
#. @add ::ix::ngrid_add .- .| {.#1} .#2 .#3 .#4
! #. @pos ::ix::ngrid_find pos .- .| {.#1} .#2
! #. @setpos ::ix::ngrid_find setpos .- .| {.#1} .#2
! #. @delete ::ix::ngrid_find remove .- .| {.#1} 0
#. @clear ::ix::ngrid_clear .- .| all
#. @radius ::ix::ngrid_vset .- .| radius .#1
- Previous message: [PD-cvs] externals/nusmuk/msd2D/editor butterfly.txt, 1.1, 1.2 dancer.txt, 1.1, 1.2 link2masses.pd, 1.1, 1.2 morelinks.pd, 1.3, 1.4 msd2d-editor.pd, 1.4, 1.5 msd_append.pd, 1.2, 1.3 structures.pd, 1.1, 1.2 ilinker.pd, 1.1, NONE
- Next message: [PD-cvs] externals/nusmuk/msd2D/editor mass-set.pd,1.1,1.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list