colors - 在 Tcl 中操纵颜色

Question

我想要一种颜色并获得更深的颜色。颜色可以采用 Tcl 中允许的颜色形式，即 blue 或 #0000FF 或 tcl 识别为颜色的任何其他形式。

有办法做到这一点吗？

我需要的示例是，当我获得一种颜色时，我想从其红色、蓝色和绿色值中减去一个常数(或常数部分，即 * 0.8)，使其成为相同颜色的较暗阴影。

Answer 1

要获取颜色的 RGB 值，请使用 winfo rgb:

lassign [winfo rgb . $thecolor] r g b

唉，您返回的值在 0–65535 范围内。当你想将它们重新打包成可解析的颜色时，你需要做一些工作:

set thecolor [format "#%02x%02x%02x" [expr {$r/256}] [expr {$g/256}] [expr {$b/256}]]

因此，要获得更深的颜色，请执行以下操作:

proc darker {color {ratio 0.8}} {
    lassign [winfo rgb . $color] r g b

    set r [expr {$r * $ratio}]
    set g [expr {$g * $ratio}]
    set b [expr {$b * $ratio}]

    return [format "#%02x%02x%02x" \
            [expr {int($r/256)}] [expr {int($g/256)}] [expr {int($b/256)}]]
}