mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
4754e16481
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
36 lines
645 B
Plaintext
Executable File
36 lines
645 B
Plaintext
Executable File
puts "==========="
|
|
puts "BUC60688"
|
|
puts "==========="
|
|
puts "=================================="
|
|
puts "It takes visual check for this BUG"
|
|
puts "=================================="
|
|
|
|
vinit
|
|
vertex v_1 .003 .0 .0
|
|
vertex v_2 .003 .0 .003
|
|
vertex v_3 .0 .0 .003
|
|
vertex v_4 .0 .0 .0
|
|
edge e_1 v_1 v_2
|
|
edge e_2 v_2 v_3
|
|
edge e_3 v_3 v_4
|
|
edge e_4 v_4 v_1
|
|
wire w_1 e_1 e_2 e_3 e_4
|
|
mkplane r w_1
|
|
vdisplay r
|
|
vfit
|
|
vselect 120 21
|
|
|
|
puts "WARNING : The rectangular MUST be highlighted !"
|
|
puts ""
|
|
|
|
set x_coord 88
|
|
set y_coord 272
|
|
|
|
checkcolor $x_coord $y_coord 0.8 0.8 0.8
|
|
|
|
if {$stat != 1} {
|
|
puts "Error : The rectangular is NOT highlighted."
|
|
}
|
|
|
|
set only_screen 1
|