nonkit

Sub Color_Blacken
  ' Color | blacken given color
  ' param c - given color
  ' param rate - 0..1
  ' return c - color blackened
  Color_NameToColor()
  Color_ColorToRGB()
  r = Math.Floor(r * (1 - rate))
  g = Math.Floor(g * (1 - rate))
  b = Math.Floor(b * (1 - rate))