0023409: Tricheck command doesn't report problem when triangulation has unexpected...
[occt.git] / tests / bugs / demo / CR23410
CommitLineData
319e4241 1puts "============"
2puts "CR23410"
3puts "============"
4puts ""
5#######################################################################
6# QA comamnds don't work properly in new testing system
7#######################################################################
8pload QAcommands
9
10set R_check 0.45098000764846802
11set G_check 1
12set B_check 0.066666000000000003
13set x1 128
14set y1 235
15box result 100 100 100
16vdisplay result
17vsetdispmode 1
18vfit
19vsetcolor result GREEN
20set color [ QAGetPixelColor ${x1} ${y1} ]
21regexp {RED +: +([-0-9.+eE]+)} $color full rd
22regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
23regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
24
25if { $rd != $R_check || $gr != $G_check || $bl != $B_check} {
26 puts "Error : color are not equal"
27 puts "Error : QA command QAGetPixelColor doesn't work properly"
28}
29set 3dviewer 1
30
31
32
33
34