mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-31 11:15:31 +03:00
33 lines
840 B
Plaintext
33 lines
840 B
Plaintext
puts "====================================="
|
|
puts "AIS_ViewCube - test custom appearance"
|
|
puts "====================================="
|
|
|
|
set anImage1 $imagedir/${casename}_1.png
|
|
set anImage2 $imagedir/${casename}_2.png
|
|
set anImage3 $imagedir/${casename}_3.png
|
|
|
|
vclear
|
|
vclose ALL
|
|
vinit
|
|
|
|
vviewcube -enable -hideedges
|
|
if {[vreadpixel 186 236 name] != "BLACK 1"} {
|
|
puts "ERROR: Invalid display of View Cube without edges."
|
|
}
|
|
vdump $anImage1
|
|
|
|
vviewcube -showedges -hidevertices
|
|
if {[vreadpixel 150 258 name] != "BLACK 0"} {
|
|
puts "ERROR: Invalid display of View Cube without vertices."
|
|
}
|
|
vdump $anImage2
|
|
|
|
vviewcube -hideedges -hidevertices
|
|
|
|
if {[vreadpixel 186 236 name] != "BLACK 1" || [vreadpixel 150 258 name] != "BLACK 0"} {
|
|
puts "ERROR: Invalid display of View Cube without edges & vertices."
|
|
}
|
|
vdump $anImage3
|
|
|
|
vviewcube -remove
|
|
vclear |