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/bug60
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

33 lines
450 B
Plaintext
Executable File

puts "========"
puts "OCC60"
puts "SAM723"
puts "BUC60916"
puts "========"
vinit
box b 10 10 10
vdisplay b
vfit
set x_coord 83
set y_coord 337
checkcolor $x_coord $y_coord 1 1 0
set xmin 1
set ymin 1
set xmax 409
set ymax 300
# Select part of box
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
set Selection_R 0.8
set Selection_G 0.8
set Selection_B 0.8
checkcolor $x_coord $y_coord 0.8 0.8 0.8
set only_screen 1