mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-20 14:19:53 +08:00
38 lines
1.0 KiB
Plaintext
Executable File
38 lines
1.0 KiB
Plaintext
Executable File
puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
|
|
puts "========"
|
|
puts "OCC173"
|
|
puts "(case 2)"
|
|
puts "========"
|
|
puts ""
|
|
###########################################################
|
|
## Impossible to change the material or the transparency of the attached BREP shape.
|
|
###########################################################
|
|
|
|
restore [locate_data_file OCC173.brep] result
|
|
puts [checkshape result]
|
|
|
|
vinit
|
|
tclean result
|
|
vdisplay result
|
|
vfit
|
|
vsetdispmode result 1
|
|
|
|
set color1 [QAGetPixelColor 175 195]
|
|
regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
|
|
regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
|
|
regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
|
|
|
|
vsetmaterial result ALUMINIUM
|
|
|
|
QAUpdateLights
|
|
set color2 [QAGetPixelColor 175 195]
|
|
regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2
|
|
regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2
|
|
regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2
|
|
|
|
if { ${rd2} == ${rd1} || ${gr2} == ${gr1} || ${bl2} == ${bl1} } {
|
|
puts "Error : material of the shape was NOT changed"
|
|
}
|
|
|
|
set only_screen 1
|