Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug185
1 puts "========"
2 puts "OCC185"
3 puts "========"
4
5 pload XDE
6
7 igesbrep [locate_data_file OCC185.igs] a *
8
9 tpcompound result
10 tclean result
11
12 vinit
13 vdisplay result
14 vfit
15
16 set rd_ch 78039
17 set gr_ch 55294
18 set bl_ch 9411
19
20 vsetdispmode result 1
21 QAUpdateLights
22 set color [QAGetPixelColor 235 214]
23 regexp {RED +: +([-0-9.+eE]+)} $color full rd
24 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
25 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
26
27 set rd_int [expr int($rd * 1.e+05)]
28 set gr_int [expr int($gr * 1.e+05)]
29 set bl_int [expr int($bl * 1.e+05)]
30
31 if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } {
32     puts "Error : colors are not equal"
33     puts "Error : Shading is OFF, but should be ON"
34 }
35
36 vsetdispmode result 0
37
38 QAUpdateLights
39 set color0 [QAGetPixelColor 235 214]
40 regexp {RED +: +([-0-9.+eE]+)} $color0 full rd0
41 regexp {GREEN +: +([-0-9.+eE]+)} $color0 full gr0
42 regexp {BLUE +: +([-0-9.+eE]+)} $color0 full bl0
43
44 if { ${rd0} != 0 || ${gr0} != 1 || ${bl0} != 0 } {
45     puts "Error : colors are not equal"
46     puts "Error : Shading is ON, but should be OFF"
47 }
48
49 set only_screen 1