mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-26 10:19:45 +03:00
6b62b2da81
Make vcamera command syntax more clear. Restore command vraytrace as alias to vrenderparams. Replace occurencies of atof() by Draw::Atof() in ViewerTest_ViewerCommands.cxx.
94 lines
2.3 KiB
Plaintext
94 lines
2.3 KiB
Plaintext
puts "============"
|
|
puts "OCC25230"
|
|
puts "============"
|
|
puts ""
|
|
####################################################################################
|
|
# Visualization - Test case for selection in perspective views
|
|
# Test is made using comparison of selected points with expected to be selected points.
|
|
# In case of mismatching test will report about an error of certain type:
|
|
# point selection, rectangle selection or polygon selection is broken.
|
|
####################################################################################
|
|
vinit View1
|
|
vsetdispmode 1
|
|
#draw grid of points 7x7
|
|
set j 0
|
|
for {set x 0} {$x<7} {incr x} {
|
|
for {set y 0} {$y<7} {incr y} {
|
|
vpoint $j $x $y 10
|
|
incr j
|
|
}
|
|
}
|
|
for {set x 0} {$x<7} {incr x} {
|
|
for {set y 0} {$y<7} {incr y} {
|
|
vpoint $j $x $y 0
|
|
incr j
|
|
}
|
|
}
|
|
|
|
#prepare view
|
|
vtop
|
|
vcamera -persp
|
|
vfit
|
|
vback
|
|
vtop
|
|
|
|
#check rectagle selection
|
|
vselect 200 200 0 0
|
|
set stat 0
|
|
set result [vstate]
|
|
set newlist {}
|
|
set ref_selected {55 6 69 18 13 67 54 68 19 12 62 5 53 60 4 61 20 11}
|
|
set asplit [split $result "\n"]
|
|
for {set i 0} {$i < [llength $ref_selected]} {incr i} {
|
|
lappend newlist [lindex [lindex $asplit $i] 0]
|
|
}
|
|
set newsorted [lsort $newlist]
|
|
set refsorted [lsort $ref_selected]
|
|
for {set i 0} {$i < [llength $refsorted]} {incr i} {
|
|
if {[lindex $refsorted $i] != [lindex $newsorted $i]} {
|
|
set stat 1
|
|
break
|
|
}
|
|
}
|
|
|
|
#check point selection
|
|
vselect 0 0
|
|
vselect 27 28
|
|
set stat1 0
|
|
set result [vstate]
|
|
if {[lindex $result 0] != 6} {
|
|
set stat1 1
|
|
}
|
|
|
|
#check polygon selection
|
|
vselect 70 70 0 600 200 600 200 200 600 200 600 70
|
|
set stat2 0
|
|
set result [vstate]
|
|
set newlist {}
|
|
set ref_selected {67 97 47 32 12 33 49 74 54 8 50 19\
|
|
9 63 83 56 39 26 66 75 18 95 81 15 89 51 46 76 57 90\
|
|
82 58 65 10 11 25 62 59 14 52 40 60 68 16 55 7 64 61\
|
|
88 69 53 17 96}
|
|
set asplit [split $result "\n"]
|
|
for {set i 0} {$i < [llength $ref_selected]} {incr i} {
|
|
lappend newlist [lindex [lindex $asplit $i] 0]
|
|
}
|
|
set newsorted [lsort $newlist]
|
|
set refsorted [lsort $ref_selected]
|
|
for {set i 0} {$i < [llength $refsorted]} {incr i} {
|
|
if {[lindex $refsorted $i] != [lindex $newsorted $i]} {
|
|
set stat2 1
|
|
break
|
|
}
|
|
}
|
|
|
|
if {$stat == 1} {
|
|
puts "Error : Perspective selection by rectangle is broken."
|
|
}
|
|
if {$stat1 == 1} {
|
|
puts "Error : Perspective selection by point is broken."
|
|
}
|
|
if {$stat2 == 1} {
|
|
puts "Error : Perspective selection by polygon is broken."
|
|
}
|