1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-09 18:50:54 +03:00
occt/tests/bugs/vis/bug71
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

54 lines
846 B
Plaintext
Executable File

puts "================"
puts "OCC71"
puts "BUC61045"
puts "================"
puts ""
# Data
set Triedron_X 29
set Triedron_Y 380
set Shape_X 120
set Shape_Y 250
# Display box
vinit
box b 10 10 10
vdisplay b
# Display triedron
OCC71
vfit
# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
# Shading box
vsetdispmode b 1
# Check box color
checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
# Select box
vselect ${Shape_X} ${Shape_Y}
# Check box color
checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
# Select empty view
vselect 1 1
# Check box color
checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
set only_screen 1