pd/src desire.tk,1.1.2.600.2.46,1.1.2.600.2.47 - Pd-cvs

8 Dec 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28378
Modified Files:
      Tag: desiredata
    desire.tk 
Log Message:
fix array draw
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.46
retrieving revision 1.1.2.600.2.47
diff -C2 -d -r1.1.2.600.2.46 -r1.1.2.600.2.47
*** desire.tk	8 Dec 2006 16:40:44 -0000	1.1.2.600.2.46
--- desire.tk	8 Dec 2006 19:04:20 -0000	1.1.2.600.2.47
***************
*** 28,32 ****
  #
  #-----------------------------------------------------------------------------------#
!    
  # this command rebuilds the package index: echo pkg_mkIndex . | tclsh
--- 28,32 ----
  #
  #-----------------------------------------------------------------------------------#
!     
  # this command rebuilds the package index: echo pkg_mkIndex . | tclsh
***************
*** 5478,5482 ****
            #set canvas [$@canvas canvas]
    	set canvas [$self get_canvas]
- #		puts "             ....... Array: $self draw on canvas: $canvas  canvas:: $@canvas  width:: $width"
    	set i 0
    	foreach val $@data {
--- 5478,5481 ----
***************
*** 5486,5491 ****
    		set x2 [expr $x1 + $width]
    		set line [list $x1 $y $x2 $y]
! 			$canvas item ${self}ELEM${i} line $line -fill [$self look fg] -width 2 \
! 			    -tags "${self}ELEM${i} ${canvas}${self}ELEM${i} $self"
    		incr i
    	}
--- 5485,5489 ----
    		set x2 [expr $x1 + $width]
    		set line [list $x1 $y $x2 $y]
! 			$self item ${self}ELEM${i} line $line -fill [$self look fg] -width 2
    		incr i
    	}
***************
*** 5523,5527 ****
    	set line [list $x1 $y $x2 $y]
    	set val [expr (($c_height-$y)/$c_height) * ($yto-($yfrom)) + ($yfrom)]
! 		pd .$self $i $val
    } else {
    	mset {xfrom yto xto yfrom pixwidth pixheight} [$@canvas get_mess]
--- 5521,5525 ----
    	set line [list $x1 $y $x2 $y]
    	set val [expr (($c_height-$y)/$c_height) * ($yto-($yfrom)) + ($yfrom)]
! 		netsend [list .$self $i $val]
    } else {
    	mset {xfrom yto xto yfrom pixwidth pixheight} [$@canvas get_mess]
***************
*** 5530,5534 ****
    	set i [format %d [expr int(($x-$x_off)/$width)]]
    	set val [expr (($pixheight-$y+$y_off)/$pixheight) * ($yto-($yfrom)) + ($yfrom)]
! 		pd .$self $i $val
    }
  }
--- 5528,5532 ----
    	set i [format %d [expr int(($x-$x_off)/$width)]]
    	set val [expr (($pixheight-$y+$y_off)/$pixheight) * ($yto-($yfrom)) + ($yfrom)]
! 		netsend [list .$self $i $val]
    }
  }