Index: openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl,v
diff -u -r1.1.2.11 -r1.1.2.12
--- openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl	1 Mar 2021 16:30:44 -0000	1.1.2.11
+++ openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl	2 Mar 2021 09:06:12 -0000	1.1.2.12
@@ -149,7 +149,10 @@
     } elseif {$percentage > 50.0 && $percentage <= 100.0} {
         set red [expr {int(-510 * $percentage/100.0 + 510)}]
     }
-    set luminance [expr {0.2126*$red + 0.7152*$green + 0.0722*0}]
+    # 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"}] \