Adding new testing cases for chl grid

[occt.git] / tests / bugs / vis / bug85_1

diff --git a/tests/bugs/vis/bug85_1 b/tests/bugs/vis/bug85_1
index 2e808e5..ae8e489 100755 (executable)
--- a/tests/bugs/vis/bug85_1
+++ b/tests/bugs/vis/bug85_1
@@ -43,37 +43,14 @@ SetShape D 0:1:4 b
 AISSet D 0:1:4 NS
 AISDisplay D 0:1:4
 
-if { [array get env os_type] != "" } {
-    set os $env(os_type)
-}
-if { [string compare $os "windows"] == 0 } {
-    set x1 260
-    set y1 170
-    set rd_ch 77647
-    set gr_ch 54901
-    set bl_ch 9019
-} else {
-    set x1 255
-    set y1 105
-    set rd_ch 78039
-    set gr_ch 55294
-    set bl_ch 9411
-}
+set x_coord 273
+set y_coord 115
 
 QAUpdateLights
-set color [QAGetPixelColor ${x1} ${y1}]
-regexp {RED +: +([-0-9.+eE]+)} $color full rd
-regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
-regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
 
-set rd_int [expr int($rd * 1.e+05)]
-set gr_int [expr int($gr * 1.e+05)]
-set bl_int [expr int($bl * 1.e+05)]
-
-if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } {
-    puts "Error : colors are not equal"
-}
+checkcolor $x_coord $y_coord 0.78 0.55 0.9
 
 set only_screen 1
 
 
+