mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
25 lines
568 B
Plaintext
25 lines
568 B
Plaintext
puts "=================================="
|
|
puts "AIS_ViewCube - check view affinity"
|
|
puts "=================================="
|
|
|
|
set anImage1 $imagedir/${casename}_1.png
|
|
set anImage2 $imagedir/${casename}_2.png
|
|
|
|
vclear
|
|
vclose ALL
|
|
vinit view1
|
|
|
|
vviewcube -enable
|
|
if {[vreadpixel 150 220 name] != "GRAY68 1"} {
|
|
puts "ERROR: display of View Cube in view1 fails."
|
|
}
|
|
vdump $anImage1
|
|
vviewcube -remove
|
|
|
|
vinit view2
|
|
vviewcube -enable
|
|
if {[vreadpixel 150 220 name] != "GRAY68 1"} {
|
|
puts "ERROR: View Cube should not be displayed in view1."
|
|
}
|
|
vdump $anImage2
|
|
vviewcube -remove |