mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-16 10:54:53 +03:00
ccadc126ba
Usage of QAGetPixelColor were checked and corrected. Using simple comparison instead of regexp. Improved usage of command vreadpixel for standard colors. Command QAGetPixelColor was dropped from TKQADraw. Procedures "checkcolor" and auxiliary "checkpoint" were moved to DrawResources/TestCommands.tcl Some test cases using "checkcolor" for picking line color were simplified. Procedures checkcolor and checkpoint were changed to handle situation when pixel is out of view. Removed unnecessary use of command "vaspects -setwidth" in tests. Revert -setwidth change in test bugs/vis/bug23525
40 lines
948 B
Plaintext
Executable File
40 lines
948 B
Plaintext
Executable File
puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
|
|
puts "========"
|
|
puts "OCC173"
|
|
puts "(case 3)"
|
|
puts "========"
|
|
puts ""
|
|
###########################################################
|
|
## Impossible to change the material or the transparency of the attached BREP shape.
|
|
###########################################################
|
|
|
|
restore [locate_data_file OCC173.brep] result
|
|
|
|
checkshape result
|
|
|
|
vinit
|
|
tclean result
|
|
vdisplay result
|
|
vfit
|
|
vsetdispmode result 1
|
|
|
|
set color1 [vreadpixel 175 195 rgb]
|
|
set rd1 [lindex $color1 0]
|
|
set gr1 [lindex $color1 1]
|
|
set bl1 [lindex $color1 2]
|
|
|
|
########################################################
|
|
vsettransparency result 0.5
|
|
|
|
set color2 [vreadpixel 175 195 rgb]
|
|
set rd2 [lindex $color2 0]
|
|
set gr2 [lindex $color2 1]
|
|
set bl2 [lindex $color2 2]
|
|
|
|
if { ${rd2} == ${rd1} || ${gr2} == ${gr1} || ${bl2} == ${bl1} } {
|
|
puts "Error : vsettransparency of shape was NOT made"
|
|
}
|
|
|
|
set only_screen 1
|
|
|