[PD-cvs] pd/src desire.tk,1.1.2.600.2.273,1.1.2.600.2.274
Mathieu Bouchard
matju at users.sourceforge.net
Sat Aug 4 04:32:16 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25867
Modified Files:
Tag: desiredata
desire.tk
Log Message:
finally solved the mset mystery; also fixed defaults for #X coords
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.273
retrieving revision 1.1.2.600.2.274
diff -C2 -d -r1.1.2.600.2.273 -r1.1.2.600.2.274
*** desire.tk 3 Aug 2007 16:03:18 -0000 1.1.2.600.2.273
--- desire.tk 4 Aug 2007 02:32:12 -0000 1.1.2.600.2.274
***************
*** 73,77 ****
# set several variables from elements of a list
! proc mset {vars list} {uplevel 1 "foreach {$vars} {$list} {break}"}
# add or substract two lists
--- 73,80 ----
# set several variables from elements of a list
! # WARNING: for @-variables, use [list @a @b @c] instead of {@a @b @c}
! proc mset {vars list} {
! uplevel 1 "foreach {$vars} {$list} {break}"
! }
# add or substract two lists
***************
*** 1473,1479 ****
menu_openhtml $filename
} else {
! set help_directory [string range $filename 0 [expr [string last / $filename]-1]]
! set basename [string range $filename [expr [string last / $filename]+1] end]
! netsend [list pd open [enquote $basename] [enquote $help_directory]]
}
}
--- 1476,1483 ----
menu_openhtml $filename
} else {
! set i [string last / $filename]
! set help_directory [string range $filename 0 [expr $i-1]]
! set basename [string range $filename [expr $i+1] end]
! netsend [list pd open [enquote $basename] [enquote $help_directory]]
}
}
***************
*** 1623,1631 ****
# default #X coords line
set @coordsx1 0
! set @coordsy1 -1
set @coordsx2 1
set @coordsy2 1
! set @pixwidth 85
! set @pixheight 60
set @xmargin 0
set @ymargin 0
--- 1627,1635 ----
# default #X coords line
set @coordsx1 0
! set @coordsy1 0
set @coordsx2 1
set @coordsy2 1
! set @pixwidth 0
! set @pixheight 0
set @xmargin 0
set @ymargin 0
***************
*** 1645,1649 ****
1 {
set @subpatch 0
! mset {@fontsize} $args
set @name ""
set @mapped 1
--- 1649,1653 ----
1 {
set @subpatch 0
! mset [list @fontsize] $args
set @name ""
set @mapped 1
***************
*** 1651,1656 ****
2 {
set @subpatch 1
! set @name [lindex $args 0]
! set @mapped [lindex $args 1]
set @fontsize "what?"
}
--- 1655,1659 ----
2 {
set @subpatch 1
! mset [list @name @mapped] $args
set @fontsize "what?"
}
***************
*** 1673,1683 ****
}
coords {
! #mset {@coordsx1 @coordsy1 @coordsx2 @coordsy2 @pixwidth @pixheight} [lrange $mess 2 7]
! set @coordsx1 [lindex $mess 2]
! set @coordsy1 [lindex $mess 3]
! set @coordsx2 [lindex $mess 4]
! set @coordsy2 [lindex $mess 5]
! set @pixwidth [lindex $mess 6]
! set @pixheight [lindex $mess 7]
switch [llength $mess] {
8 {set @gop 0}
--- 1676,1680 ----
}
coords {
! mset [list @coordsx1 @coordsy1 @coordsx2 @coordsy2 @pixwidth @pixheight] [lrange $mess 2 7]
switch [llength $mess] {
8 {set @gop 0}
More information about the Pd-cvs
mailing list