D 2018-04-20T11:28:28.279
J assignee nobody
J closer nobody
J cmimetype text/plain
J comment In\slibrary/palette.tcl\sthe\scomment\sto\sthe\sprocedure\s::tk::Darken\sclaims,\sthat\scolors\scan\sbe\sbrightened\s(tinted\sversus\swhite),\s"50\smeans\sdarken\sby\s50%,\s110\smeans\sbrighten\sby\s10%".\sHowever,\s[::tk::Darken\s#ff0000\s150]\sagain\syields\s#ff0000.\r\n\r\nEither\sthe\scomment\swith\srespect\sto\sbrightening\sshould\sbe\sremoved.\sOr,\sthe\scode\sshould\sbe\schanged\salong\sthe\sfollowing\slines:\r\n\r\n#\s::tk::Darken\s--\r\n#\sGiven\sa\scolor\sname,\scomputes\sa\snew\scolor\svalue\sthat\sdarkens\s(or\r\n#\sbrightens)\sthe\sgiven\scolor\sby\sa\sgiven\spercent.\r\n#\r\n#\sArguments:\r\n#\scolor\s-\tName\sof\sstarting\scolor.\r\n#\spercent\s-\tInteger\stelling\show\smuch\sto\sbrighten\sor\sdarken\sas\sa\r\n#\t\tpercent:\s50\smeans\sdarken\sby\s50%,\s110\smeans\sbrighten\r\n#\t\tby\s10%.\r\n\r\nproc\s::tk::Darken\s{color\spercent}\s{\r\n\s\s\s\sif\s{percent\s<\s0}\s{\r\n\treturn\s"black"\r\n\s\s\s\s}\selseif\s{percent\s>\s200}\s{\r\n\treturn\s"white"\r\n\s\s\s\s}\selseif\s{percent\s<=\s100}\s{\r\n\tforeach\s{red\sgreen\sblue}\s[winfo\srgb\s.\s$color]\s{\r\n\t\s\s\s\sset\sred\s[expr\s{($red/256)*$percent/100}]\r\n\t\s\s\s\sset\sgreen\s[expr\s{($green/256)*$percent/100}]\r\n\t\s\s\s\sset\sblue\s[expr\s{($blue/256)*$percent/100}]\r\n\t}\r\n\s\s\s\s}\selseif\s{percent\s>\s100}\s{\r\n\tforeach\s{red\sgreen\sblue}\s[winfo\srgb\s.\s$color]\s{\r\n\t\s\s\s\sset\sred\s[expr\s{255\s-\s((65535-$red)/256)*(200-$percent)/100}]\r\n\t\s\s\s\sset\sgreen\s[expr\s{255\s-\s((65535-$green)/256)*(200-$percent)/100}]\r\n\t\s\s\s\sset\sblue\s[expr\s{255\s-\s((65535-$blue)/256)*(200-$percent)/100}]\r\n\t}\r\n\s\s\s\s}\r\n\s\s\s\sreturn\s[format\s"#%02x%02x%02x"\s$red\s$green\s$blue]\r\n}
J foundin 8.6.0
J is_private 0
J login anonymous
J priority 5\sMedium
J private_contact d4b794bcf2aa1ce2572aef5684f59cb989d0c65a
J resolution None
J severity Minor
J status Open
J submitter anonymous
J subsystem 29.\sColormaps\sand\sVisuals
J title ::tk::Darken\sdoes\snot\sproperly\sbrighten\scolors
J type Bug
K 98c41cf3e7259ea0adab3e1e220dcf555d5bc88b
U anonymous
Z 2abbbece0897ae93e78aa8d08689c6cc
