aa::percentage_to_color (private)
aa::percentage_to_color percentage
Defined in packages/acs-automated-testing/tcl/coverage-procs.tcl
Calculates background and foreground color from a percentage. 0 gives red, 100 gives green.
- Parameters:
- percentage - A value between 0 and 100.0
- Returns:
- color code in hex (three double-digit figures)
- Author:
- Gustaf neumann
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set red 255 set green 255 if {$percentage >= 0 && $percentage <= 50} { set green [expr {int(510 * $percentage/100.0)}] } elseif {$percentage > 50.0 && $percentage <= 100.0} { set red [expr {int(-510 * $percentage/100.0 + 510)}] } # Luminance as defined by HDTV #set luminance [expr {0.2126*$red + 0.7152*$green + 0.0722*0}] # luminance as defined by UHDTV, HDR set luminance [expr {0.2627*$red + 0.6780*$green + 0.0593*0}] return [list background #[format %.2x $red][format %.2x $green]00 foreground [expr {$luminance < 120 ? "#ffffff": "#000000"}] ]XQL Not present: Generic, PostgreSQL, Oracle