Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug173_2
1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
2 puts "========"
3 puts "OCC173"
4 puts "(case 2)"
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 puts [checkshape result]
13
14 vinit
15 tclean result
16 vdisplay result
17 vfit
18 vsetdispmode result 1
19
20 set color1 [QAGetPixelColor 175 195]
21 regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
22 regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
23 regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
24
25 vsetmaterial result ALUMINIUM
26
27 QAUpdateLights
28 set color2 [QAGetPixelColor 175 195]
29 regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2
30 regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2
31 regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2
32
33 if { ${rd2} == ${rd1} || ${gr2} == ${gr1} || ${bl2} == ${bl1} } {
34    puts "Error : material of the shape was NOT changed"
35 }
36
37 set only_screen 1