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