38d
@verb #9982:"_idle_colour _ic" any none none rxdo #9982
@program #9982:"_idle_colour _ic" any none none
"Copied from fossil utilities (#1383):_idle_colour by killeen (#562) Jan  7 18:36:26 2003"
"Guts of $fossil_utils:idle_colour."
"Calculations are done here to create idle colours."
idle = args[1]
red = 0
green = 0
blue = 0
if (idle < 300)
  "<5 minutes"
  red = 0
  green = 255
  blue = idle * 256 / 300
elseif (idle < 600)
  "5-10 minutes"
  red = (idle - 300) * 255 / 300
  green = 255
  blue = 255
elseif (idle < 1200)
  "10-20 minutes"
  red = 255
  green = 255
  blue = 255 - (idle - 600) * 256 / 600
elseif (idle < 1800)
  "20-30 minutes"
  red = 255
  green = 255 - (idle - 600) * 256 / 600
  blue = 0
else
  ">30 minutes"
  red = 127
  green = 0
  blue = 0
endif
colour = red * 256 * 256 + green * 256 + blue
return "#" + $math_utils:inttohex(colour)[3..$]
.

0