0023410: QA commands don't work properly in new testing system
[occt.git] / tests / bugs / demo / CR23410
1 puts "============"
2 puts "CR23410"
3 puts "============"
4 puts ""
5 #######################################################################
6 # QA comamnds don't work properly in new testing system
7 #######################################################################
8 pload QAcommands
9
10 set R_check 0.45098000764846802
11 set G_check 1
12 set B_check 0.066666000000000003
13 set x1 128
14 set y1 235
15 box result 100 100 100
16 vdisplay result
17 vsetdispmode 1
18 vfit
19 vsetcolor result GREEN
20 set color [ QAGetPixelColor ${x1} ${y1} ]
21 regexp {RED +: +([-0-9.+eE]+)} $color full rd
22 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
23 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
24
25 if { $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 }
29 set 3dviewer 1
30
31
32
33
34