正しい色の用語を使用していない可能性がありますが、基本的には、添付の画像と同様の色をスケーリングできるようにしたいと考えています。私はこれを行うために彩度を探していました。右のバージョンは左の彩度の低いバージョンであるように見えるからです。
私はこれを試していました(私が見つけました)が、それはまったく正しく見えません:
Public Shared Function GetDesaturatedColor(color As Color) As Color
Const kValue As Double = 0.01R
Dim greyLevel = (color.R * 0.299R) + _
(color.G * 0.587R) + _
(color.B * 0.144R)
Dim r = greyLevel * kValue + (color.R) * (1 - kValue)
Dim g = greyLevel * kValue + (color.G) * (1 - kValue)
Dim b = greyLevel * kValue + (color.B) * (1 - kValue)
' ColorUtils.ToByte converts the double value
' to a byte safely
Return color.FromArgb(255, _
ColorUtils.ToByte(r), _
ColorUtils.ToByte(g), _
ColorUtils.ToByte(b))
End Function
誰かがこれを行うことができるいくつかのアルゴリズムを知っていますか?