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

puts "============"
puts "CR23539"
puts "============"
puts ""
######################################################
# Test case for polygonal selection
######################################################

box b 10 10 10
vinit
vdisplay b
vfit
vselmode 2 1
vselect 1 1 1 407 407 407 407 1

set NbSelected1 [vnbselected]
if { ${NbSelected1} != 12 } {
   puts "Error : Bad number of selected edges after polygonal selection of all edges"
}

vselect 10 10 10 20 20 20 20 10

set NbSelected2 [vnbselected]
if { ${NbSelected2} != 0 } {
   puts "Error : Bad number of selected edges after polyginal selection of empty space"
}

set only_screen 1
Commit	Line	Data
4754e164	1	puts "============"
	2	puts "CR23539"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# Test case for polygonal selection
	7	######################################################
	8
	9	box b 10 10 10
	10	vinit
	11	vdisplay b
	12	vfit
	13	vselmode 2 1
	14	vselect 1 1 1 407 407 407 407 1
	15
	16	set NbSelected1 [vnbselected]
	17	if { ${NbSelected1} != 12 } {
	18	puts "Error : Bad number of selected edges after polygonal selection of all edges"
	19	}
	20
	21	vselect 10 10 10 20 20 20 20 10
	22
	23	set NbSelected2 [vnbselected]
	24	if { ${NbSelected2} != 0 } {
	25	puts "Error : Bad number of selected edges after polyginal selection of empty space"
	26	}
	27
	28	set only_screen 1