mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
33 lines
566 B
Plaintext
33 lines
566 B
Plaintext
|
|
|
|
puts "============"
|
|
puts "CR23539"
|
|
puts "============"
|
|
puts ""
|
|
#############################
|
|
## Test case for polygonal shift selection
|
|
#############################
|
|
|
|
box a 10 10 10
|
|
box b 50 50 50 10 10 10
|
|
vinit
|
|
vdisplay a b
|
|
vfit
|
|
vselmode 2 1
|
|
vselect 0 0
|
|
vselect 60 300
|
|
vselect 300 200 300 60 400 60 407 150 1
|
|
|
|
set NbSelected1 [vnbselected]
|
|
if { ${NbSelected1} != 13 } {
|
|
puts "Error : Polygonal shift selection doesn't work properly"
|
|
}
|
|
|
|
vselect 350 120 1
|
|
|
|
set NbSelected1 [vnbselected]
|
|
if { ${NbSelected1} != 12 } {
|
|
puts "Error : (case 2)"
|
|
}
|
|
|
|
set only_screen 1 |