1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-07-20 12:45:50 +03:00
occt/tests/bugs/vis/bug74
aba 4754e16481 0023539: QASelect and QAShiftSelect commands
Replaced QAMoveTo, QASelect and QAShiftSelect draw commands with vmoveto and vselect
Moved vselect and vmoveto draw commands to ViewerTest_ViewerCommands.cxx
Replaced  QAMoveTo and QASelect in test cases. Corrected returned error case result in vselect and vmoveto.
Added commands in ViewerTest_ViewerCommands from QADraw. Edited tests.
QACommands in tests were replaced with ViewerTest commands.
QAxwd command was removed from QADraw. Edited command wzoom and commands from ViewerTest.
Help for ViewerTest commands was edited
Small corrections. Added test cases for polygonal selection.
Small correction of test cases
2013-01-18 14:22:14 +04:00

209 lines
4.2 KiB
Plaintext
Executable File

puts "TODO ?OCC12345 ALL: An exception was caught"
puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
puts "TODO ?OCC12345 ALL: Colors are not equal in default coordinate and in the near coordinates too"
puts "================"
puts "OCC74"
puts "BUC61051"
puts "================"
puts ""
# Data
set Shape_X 100
set Shape_Y 346
set Vertex_X 29
set Vertex_Y 305
set Edge_X ${Shape_X}
set Edge_Y ${Shape_Y}
set Wire_X ${Shape_X}
set Wire_Y ${Shape_Y}
set Face_X ${Shape_X}
set Face_Y ${Shape_Y}
set Shell_X ${Shape_X}
set Shell_Y ${Shape_Y}
set Solid_X ${Shape_X}
set Solid_Y ${Shape_Y}
# Display box
vinit
box b 10 10 10
vdisplay b
vfit
### FIRST PART
# Check Shape color
checkcolor ${Shape_X} ${Shape_Y} 1 1 0
# Check Vertex color
checkcolor ${Vertex_X} ${Vertex_Y} 1 1 0
# Check Edge color
checkcolor ${Edge_X} ${Edge_Y} 1 1 0
# Check Wire color
checkcolor ${Wire_X} ${Wire_Y} 1 1 0
# Check Face color
checkcolor ${Face_X} ${Face_Y} 1 1 0
# Check Shell color
checkcolor ${Shell_X} ${Shell_Y} 1 1 0
# Check Solid color
checkcolor ${Solid_X} ${Solid_Y} 1 1 0
### SECOND PART
# Check Shape color
vmoveto 1 1
set SetSelectMode 0
OCC74_set b ${SetSelectMode}
set GetSelectMode [OCC74_get b]
if { ${GetSelectMode} != ${SetSelectMode} } {
puts "Select Mode = ${GetSelectMode}"
puts "OCC74: Get Select Mode Error "
}
vmoveto ${Shape_X} ${Shape_Y}
checkcolor ${Shape_X} ${Shape_Y} 0 1 1
# Check Vertex color
vmoveto 1 1
set SetSelectMode 1
OCC74_set b ${SetSelectMode}
set GetSelectMode [OCC74_get b]
if { ${GetSelectMode} != ${SetSelectMode} } then {
puts "Select Mode = ${GetSelectMode}"
puts "OCC74: Get Select Mode Error "
}
vmoveto ${Vertex_X} ${Vertex_Y}
checkcolor ${Vertex_X} ${Vertex_Y} 0 1 1
# Check Edge color
vmoveto 1 1
set SetSelectMode 2
OCC74_set b ${SetSelectMode}
set GetSelectMode [OCC74_get b]
if { ${GetSelectMode} != ${SetSelectMode} } then {
puts "Select Mode = ${GetSelectMode}"
puts "OCC74: Get Select Mode Error "
}
vmoveto ${Edge_X} ${Edge_Y}
checkcolor ${Edge_X} ${Edge_Y} 0 1 1
# Check Wire color
vmoveto 1 1
set SetSelectMode 3
OCC74_set b ${SetSelectMode}
set GetSelectMode [OCC74_get b]
if { ${GetSelectMode} != ${SetSelectMode} } then {
puts "Select Mode = ${GetSelectMode}"
puts "OCC74: Get Select Mode Error "
}
vmoveto ${Wire_X} ${Wire_Y}
checkcolor ${Wire_X} ${Wire_Y} 0 1 1
# Check Face color
vmoveto 1 1
set SetSelectMode 4
OCC74_set b ${SetSelectMode}
set GetSelectMode [OCC74_get b]
if { ${GetSelectMode} != ${SetSelectMode} } then {
puts "Select Mode = ${GetSelectMode}"
puts "OCC74: Get Select Mode Error "
}
vmoveto ${Face_X} ${Face_Y}
checkcolor ${Face_X} ${Face_Y} 0 1 1
# Check Shell color
vmoveto 1 1
set SetSelectMode 5
OCC74_set b ${SetSelectMode}
set GetSelectMode [OCC74_get b]
if { ${GetSelectMode} != ${SetSelectMode} } then {
puts "Select Mode = ${GetSelectMode}"
puts "OCC74: Get Select Mode Error "
}
vmoveto ${Shell_X} ${Shell_Y}
checkcolor ${Shell_X} ${Shell_Y} 0 1 1
# Check Solid color
vmoveto 1 1
set SetSelectMode 6
OCC74_set b ${SetSelectMode}
set GetSelectMode [OCC74_get b]
if { ${GetSelectMode} != ${SetSelectMode} } then {
puts "Select Mode = ${GetSelectMode}"
puts "OCC74: Get Select Mode Error "
}
vmoveto ${Solid_X} ${Solid_Y}
checkcolor ${Solid_X} ${Solid_Y} 0 1 1
### THIRD PART
set SetSelectMode -1
OCC74_set b ${SetSelectMode}
set GetSelectMode [OCC74_get b]
if { ${GetSelectMode} != ${SetSelectMode} } then {
puts "Select Mode = ${GetSelectMode}"
puts "OCC74: Get Select Mode Error "
}
# Check Shape color
vmoveto 1 1
vmoveto ${Shape_X} ${Shape_Y}
checkcolor ${Shape_X} ${Shape_Y} 1 1 0
# Check Vertex color
vmoveto 1 1
vmoveto ${Vertex_X} ${Vertex_Y}
checkcolor ${Vertex_X} ${Vertex_Y} 1 1 0
# Check Edge color
vmoveto 1 1
vmoveto ${Edge_X} ${Edge_Y}
checkcolor ${Edge_X} ${Edge_Y} 1 1 0
# Check Wire color
vmoveto 1 1
vmoveto ${Wire_X} ${Wire_Y}
checkcolor ${Wire_X} ${Wire_Y} 1 1 0
# Check Face color
vmoveto 1 1
vmoveto ${Face_X} ${Face_Y}
checkcolor ${Face_X} ${Face_Y} 1 1 0
# Check Shell color
vmoveto 1 1
vmoveto ${Shell_X} ${Shell_Y}
checkcolor ${Shell_X} ${Shell_Y} 1 1 0
# Check Solid color
vmoveto 1 1
vmoveto ${Solid_X} ${Solid_Y}
checkcolor ${Solid_X} ${Solid_Y} 1 1 0
set only_screen 1