[PD-cvs] pd/src desire.tk,1.1.2.477,1.1.2.478
chunlee
chunlee at users.sourceforge.net
Fri Sep 22 03:24:17 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21946
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
array draws
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.477
retrieving revision 1.1.2.478
diff -C2 -d -r1.1.2.477 -r1.1.2.478
*** desire.tk 21 Sep 2006 22:33:28 -0000 1.1.2.477
--- desire.tk 22 Sep 2006 01:24:14 -0000 1.1.2.478
***************
*** 1298,1302 ****
1 {
set @subpatch 0
- set @graph1 0
mset {@fontsize} $args
set @name ""
--- 1298,1301 ----
***************
*** 1348,1351 ****
--- 1347,1358 ----
}
+ def Canvas get_mess {} {
+ return [list $@coordsx1 $@coordsy1 $@coordsx2 $@coordsy2 $@pixwidth $@pixheight]
+ }
+
+ def Canvas get_dimen {} {
+ return [list $@canvasxs $@canvasys]
+ }
+
def Canvas getscroll {} {}
***************
*** 1772,1776 ****
def TextBox update_size {} {
global font
! if {[info exists @graph1]} {if {$@graph1} return}
set l {};set nl 1
foreach char [split $@text ""] {lappend l [scan $char %c]}
--- 1779,1783 ----
def TextBox update_size {} {
global font
! if {$@gop} {set @xs $@pixwidth; set @ys $@pixheight; return}
set l {};set nl 1
foreach char [split $@text ""] {lappend l [scan $char %c]}
***************
*** 1937,1940 ****
--- 1944,1949 ----
}
+ def Canvas mapped {} {return $@mapped}
+
def Canvas children {} {return $@children}
***************
*** 4497,4508 ****
global font
mset {x1 y1} {0 0}
! #set @name (unknown)
! puts " my name is $@name"
! #$self item TEXT text [list $x1 $y1] \
! # -font $font(str) -text "an array named '$@name' should appear in this patch" \
! # -fill [$self look fg] -anchor nw
! $self item TEXT text [list $x1 $y1] \
! -font [$self look fontstring] -text "an array named '$@name' should appear in this patch" \
! -fill [$self look fg] -anchor nw
}
--- 4506,4535 ----
global font
mset {x1 y1} {0 0}
! puts " my canvas is: $@canvas"
! if {![$@canvas mapped]} return
! set mess [$@canvas get_mess]
! mset {c_width c_height} [$@canvas get_dimen]
! #set @width [winfo width .$@canvas.c]
! #set @height [winfo height .$@canvas.c]
! set xfrom [lindex $mess 0]
! set yfrom [lindex $mess 3]
! set xto [lindex $mess 2]
! set yto [lindex $mess 1]
! set width [expr $c_width / $@length]
! #puts "w: $width | h: $height | length: $length | xfrom: $xfrom | xto: $xto | yfrom: $yfrom | yto: $yto"
! puts "data: $@data"
! set i 0
! foreach val $@data {
! set y [expr $c_height - (($val/$yto) * $c_height)]
! set x1 [expr $width * $i]
! set x2 [expr $x1 + $width]
! set line [list $x1 $y $x2 $y]
! set tag ${self}${i}
! $self item $tag line $line -fill [$@canvas look compfg] -width 2
! incr i
! }
! # $self item TEXT text [list $x1 $y1] \
! # -font [$self look fontstring] -text "an array named '$@name' should appear in this patch" \
! # -fill [$self look fg] -anchor nw
}
More information about the Pd-cvs
mailing list