[occt.git] / tests / bugs / vis / bug23539_2



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 58 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
Commit	Line	Data
6aac585a	1
6aac585a	2
4754e164	3	puts "============"
	4	puts "CR23539"
	5	puts "============"
	6	puts ""
	7	#############################
	8	## Test case for polygonal shift selection
	9	#############################
	10
	11	box a 10 10 10
	12	box b 50 50 50 10 10 10
	13	vinit
	14	vdisplay a b
	15	vfit
	16	vselmode 2 1
	17	vselect 0 0
f751596e	18	vselect 58 300
4754e164	19	vselect 300 200 300 60 400 60 407 150 1
	20
	21	set NbSelected1 [vnbselected]
	22	if { ${NbSelected1} != 13 } {
	23	puts "Error : Polygonal shift selection doesn't work properly"
	24	}
	25
	26	vselect 350 120 1
	27
	28	set NbSelected1 [vnbselected]
	29	if { ${NbSelected1} != 12 } {
	30	puts "Error : (case 2)"
	31	}
	32
f751596e	33	set only_screen 1