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] } {