mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
9f37b47ddd
Corrected DRAWEXE "vselmode" command. Added test case. corrected test cases - 24293 failed due to initialization view without "name". - 24374 adjusted, the test case was initially incorrect. Modified test cases bugs/vis/bug24293 and bugs/vis/bug24374
72 lines
1.8 KiB
Plaintext
72 lines
1.8 KiB
Plaintext
puts "============"
|
|
puts "CR24396"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# "vselmode" - disable auto loading of objects into Local Context
|
|
#######################################################################
|
|
|
|
set trihedron_axis_pick_x 29
|
|
set trihedron_axis_pick_y 56
|
|
|
|
set trihedron_axis_check_x 29
|
|
set trihedron_axis_check_y 79
|
|
|
|
set trihedron_point_pick_x 29
|
|
set trihedron_point_pick_y 305
|
|
|
|
set trihedron_point_check_x 24
|
|
set trihedron_point_check_y 305
|
|
|
|
vinit View1
|
|
vclear
|
|
vaxo
|
|
vtrihedron tri
|
|
box b 10 10 10
|
|
vdisplay b
|
|
vselmode b 1 1
|
|
vfit
|
|
|
|
# --------------------------------------------------- #
|
|
# check that there is no selection of trihedron axis #
|
|
# --------------------------------------------------- #
|
|
|
|
vmoveto $trihedron_axis_pick_x $trihedron_axis_pick_y
|
|
|
|
checkcolor $trihedron_axis_pick_x $trihedron_axis_pick_y 0 0 0
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : The trihedron should not be highlighted."
|
|
}
|
|
|
|
vselmode b 0 0
|
|
vselmode 0 0
|
|
verase b
|
|
vselmode 1 1
|
|
|
|
# ----------------------------------------------- #
|
|
# check that selection of trihedron point is ok #
|
|
# ----------------------------------------------- #
|
|
|
|
vmoveto $trihedron_point_pick_x $trihedron_point_pick_y
|
|
|
|
checkcolor $trihedron_point_check_x $trihedron_point_check_y 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : The trihedron point highlight is incorrect."
|
|
}
|
|
|
|
# --------------------------------------------------------- #
|
|
# check that there is still no selection of trihedron axis #
|
|
# --------------------------------------------------------- #
|
|
|
|
vmoveto $trihedron_axis_pick_x $trihedron_axis_pick_y
|
|
|
|
checkcolor $trihedron_axis_pick_x $trihedron_axis_pick_y 0 0 0
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : The trihedron should not be highlighted."
|
|
}
|
|
|
|
set only_screen 1
|