Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug173_3
1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
2 puts "========"
3 puts "OCC173"
4 puts "(case 3)"
5 puts "========"
6 puts ""
7 ###########################################################
8 ## Impossible to change the material or the transparency of the attached BREP shape. 
9 ###########################################################
10
11 restore [locate_data_file OCC173.brep] result
12
13 puts [checkshape result]
14
15 vinit
16 tclean result
17 vdisplay result
18 vfit
19 vsetdispmode result 1
20
21 set color1 [QAGetPixelColor 175 195]
22 regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
23 regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
24 regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
25
26 ########################################################
27 vsettransparency result 0.5
28
29 QAUpdateLights
30 set color2 [QAGetPixelColor 175 195]
31 regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2
32 regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2
33 regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2
34
35 if { ${rd2} == ${rd1} || ${gr2} == ${gr1} || ${bl2} == ${bl1} } {
36     puts "Error : vsettransparency of shape was NOT made"
37 }
38
39 set only_screen 1
40