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
43 lines
728 B
Plaintext
Executable File
43 lines
728 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC11615"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Anisotropic scaling in 3D view
|
|
######################################################
|
|
|
|
set BugNumber OCC11615
|
|
|
|
box b 10 10 10
|
|
vinit
|
|
vdisplay b
|
|
vfit
|
|
vscale 1 1 1
|
|
|
|
set x1 [list 165 340 70]
|
|
set y1 [list 384 283 79]
|
|
|
|
puts ""
|
|
for {set i 0} {$i < 3} {incr i} {
|
|
set x_coord [lindex ${x1} $i]
|
|
set y_coord [lindex ${y1} $i]
|
|
|
|
checkcolor $x_coord $y_coord 1 1 0
|
|
}
|
|
|
|
vscale 0.5 1.5 0.7
|
|
vfit
|
|
|
|
set x2 [list 80 390 25]
|
|
set y2 [list 390 218 167]
|
|
|
|
puts ""
|
|
for {set i 0} {$i < 3} {incr i} {
|
|
set x_coord [lindex ${x2} $i]
|
|
set y_coord [lindex ${y2} $i]
|
|
|
|
checkcolor $x_coord $y_coord 1 1 0
|
|
}
|
|
|
|
set only_screen 1
|