1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
7 ###########################################################
8 ## Impossible to change the material or the transparency of the attached BREP shape.
9 ###########################################################
11 restore [locate_data_file OCC173.brep] result
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
25 vsetmaterial result ALUMINIUM
27 set color2 [QAGetPixelColor 175 195]
28 regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2
29 regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2
30 regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2
32 if { ${rd2} == ${rd1} || ${gr2} == ${gr1} || ${bl2} == ${bl1} } {
33 puts "Error : material of the shape was NOT changed"