mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
37 lines
1.0 KiB
Plaintext
37 lines
1.0 KiB
Plaintext
puts "========"
|
|
puts "OCC25340"
|
|
puts "========"
|
|
puts ""
|
|
#############################################################################################
|
|
# Visualization, AIS_InteractiveContext - properly apply selection filters at Neutral point
|
|
#############################################################################################
|
|
|
|
pload QAcommands
|
|
|
|
vinit
|
|
|
|
box b 1 2 3
|
|
vdisplay b
|
|
vfit
|
|
vtrihedron t
|
|
set color_1 [vreadpixel 87 25]
|
|
|
|
OCC25340
|
|
vselect 87 25
|
|
set color_2 [vreadpixel 87 25]
|
|
|
|
if {$color_2 != $color_1} {
|
|
puts "ERROR: OCC25340 is reproduced"
|
|
puts " initial color of trihedron is: $color_1"
|
|
puts " final color of trihedron is: $color_2"
|
|
}
|
|
|
|
if {$color_2 != "0.43137255311012268 0.48235294222831726 0.54509806632995605 1"} {
|
|
puts "ERROR: OCC25340 is reproduced"
|
|
puts " additional investigation is needed"
|
|
puts " expected color is: 0.43137255311012268 0.48235294222831726 0.54509806632995605 1"
|
|
puts " current color is: $_color_2"
|
|
}
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|