Làm thế nào để Desaturate một màu?

Question

Tôi có thể không sử dụng thuật ngữ màu chính xác nhưng tôi muốn cơ bản có thể mở rộng màu tương tự như hình ảnh đính kèm. Tôi đã tìm kiếm sự bão hòa để làm điều này, vì nó xuất hiện đúng phiên bản chỉ là một phiên bản ít bão hòa phải của bên trái.

Tôi đã cố gắng này (mà tôi tìm thấy) nhưng nó không phải là tìm cách chính xác tại tất cả:

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 

Có ai biết về một số thuật toán có thể làm điều này?

Answer 1

Như @Brad đã đề cập trong nhận xét cho bài đăng của bạn, bước đầu tiên của bạn là chuyển đổi màu từ RGB thành HSL or HSV. Từ đó, giảm độ bão hòa là tầm thường - chỉ cần trừ hoặc chia độ bão hòa bằng một giá trị để giảm nó.

Sau đó, chuyển đổi màu HSL/HSV của bạn trở lại thành RGB và sẵn sàng để sử dụng.

How to change RGB color to HSV? có ví dụ tốt về cách thực hiện điều này, cũng như Manipulating colors in .net.

Answer 2

Nó xuất hiện bằng thử nghiệm mà chỉ giảm độ bão hòa là không đủ để có được kết quả được hiển thị trong hình. Tôi đã sử dụng các màu từ câu hỏi của OP trong đoạn mã dưới đây. Nếu bạn chỉ làm giảm độ bão hòa, đây là những gì bạn nhận được:

Nếu bạn cũng giảm alpha/độ mờ đục của màu sắc mới, bạn có thể đạt được một kết quả tốt hơn:

tôi giả sử nếu bạn chơi với các thông số, bạn sẽ có thể có được một trận đấu hoàn hảo. Hãy thử thay đổi alpha cho reducedSaturation2 (hiện tại = 40) và GetSaturation chia (hiện tại = 1.3)

Đây là mẫu mã của tôi:

Public Function HSVToColor(ByVal H As Double, ByVal S As Double, ByVal V As Double) As Color 
    Dim Hi As Integer = (H/60) Mod 6 
    Dim f As Double = H/60 Mod 1 
    Dim p As Integer = V * (1 - S) * 255 
    Dim q As Integer = V * (1 - f * S) * 255 
    Dim t As Integer = V * (1 - (1 - f) * S) * 255 
    Select Case Hi 
    Case 0 : Return Color.FromArgb(V * 255, t, p) 
    Case 1 : Return Color.FromArgb(q, V * 255, p) 
    Case 2 : Return Color.FromArgb(p, V * 255, t) 
    Case 3 : Return Color.FromArgb(p, V * 255, q) 
    Case 4 : Return Color.FromArgb(t, p, V * 255) 
    Case 5 : Return Color.FromArgb(V * 255, q, p) 
    End Select 
End Function 

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
    Dim normalSaturation As Color = Color.FromArgb(255, 216, 53, 45) 
    Me.CreateGraphics.FillRectangle(New SolidBrush(normalSaturation), 100, 0, 100, 100) 
    Dim reducedSaturation As Color = HSVToColor(normalSaturation.GetHue, normalSaturation.GetSaturation/1.3, normalSaturation.GetBrightness) 
    Dim reducedSaturation2 As Color = Color.FromArgb(40, reducedSaturation) 
    Me.CreateGraphics.FillRectangle(New SolidBrush(reducedSaturation2), 0, 0, 100, 100) 
End Sub 

Answer 3

Đối với những người muốn tránh chuyển đổi tất cả mọi thứ để HSL/HSV và lưng, điều này hoạt động khá tốt (nếu không chính xác tùy thuộc vào những gì người cho rằng hình ảnh bão hòa "chính xác" là):

f = 0.2; // desaturate by 20% 
L = 0.3*r + 0.6*g + 0.1*b; 
new_r = r + f * (L - r); 
new_g = g + f * (L - g); 
new_b = b + f * (L - b);