[PD-cvs] pd/src u_object.tk,1.1.2.9,1.1.2.10

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv403

Modified Files:
      Tag: impd_0_37
	u_object.tk 
Log Message:
fixed some bugs about colours


Index: u_object.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/u_object.tk,v
retrieving revision 1.1.2.9
retrieving revision 1.1.2.10
diff -C2 -d -r1.1.2.9 -r1.1.2.10
*** u_object.tk	16 Mar 2004 21:53:16 -0000	1.1.2.9
--- u_object.tk	19 Mar 2004 01:57:36 -0000	1.1.2.10
***************
*** 5,9 ****
  	scan $colour         #%02x%02x%02x r g b
  	scan $look(sliderbg) #%02x%02x%02x R G B
! 	return [format #%02x%02x%02x [expr ($r*$R)>>8] [expr ($g*$G)>>8] [expr ($g*$B)>>8]]
  }
  
--- 5,9 ----
  	scan $colour         #%02x%02x%02x r g b
  	scan $look(sliderbg) #%02x%02x%02x R G B
! 	return [format #%02x%02x%02x [expr ($r*$R)>>8] [expr ($g*$G)>>8] [expr ($b*$B)>>8]]
  }
  
***************
*** 20,26 ****
  	regsub {;$} $c {} c
  	if {$c<0} {
! 		set r [expr 4*(((~$c)>> 0)&63)]
  		set g [expr 4*(((~$c)>> 6)&63)]
! 		set b [expr 4*(((~$c)>>12)&63)]
  		return [format #%02x%02x%02x $r $g $b]
  	} {
--- 20,26 ----
  	regsub {;$} $c {} c
  	if {$c<0} {
! 		set r [expr 4*(((~$c)>>12)&63)]
  		set g [expr 4*(((~$c)>> 6)&63)]
! 		set b [expr 4*(((~$c)>> 0)&63)]
  		return [format #%02x%02x%02x $r $g $b]
  	} {