pd/src desire.tk,1.1.2.454,1.1.2.455 - Pd-cvs

4 Sep 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27298
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
support for #X coords
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.454
retrieving revision 1.1.2.455
diff -C2 -d -r1.1.2.454 -r1.1.2.455
*** desire.tk	4 Sep 2006 01:11:04 -0000	1.1.2.454
--- desire.tk	4 Sep 2006 03:40:06 -0000	1.1.2.455
***************
*** 1327,1331 ****
    }
    coords {
! 	  error what do i do with this?
    }
        }
--- 1327,1347 ----
    }
    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; set @goprect 0}
! 	    9  {set @gop [lindex $mess 8]; set @goprect 0}
! 	    10 {
! 		set @gop [lindex $mess 8]
! 		set @goprect 1
! 		set @xmargin [lindex $mess 9]
! 		set @ymargin [lindex $mess 10]
! 	    }
!           }
    }
        }