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

puts "============"
puts "OCC727"
puts "============"
puts ""
#############################
## The second object can not be deselected.
#############################

box a 10 10 10
box b 50 50 50 10 10 10

vinit
vdisplay a
vdisplay b
vfit

set x1 60
set y1 300
set x2 350
set y2 120

vselect 0 0
vselect ${x1} ${y1}
vselect ${x2} ${y2} 1

set NbSelected1 [vnbselected]
if { ${NbSelected1} != 2 } {
  puts "Error : (case 1)"
}

vselect ${x2} ${y2} 1

set NbSelected1 [vnbselected]
if { ${NbSelected1} != 1 } {
  puts "Error : (case 2)"
}

set only_screen 1
Commit	Line	Data
352ffd73	1	puts "============"
	2	puts "OCC727"
	3	puts "============"
	4	puts ""
	5	#############################
	6	## The second object can not be deselected.
	7	#############################
	8
	9	box a 10 10 10
	10	box b 50 50 50 10 10 10
	11
	12	vinit
	13	vdisplay a
	14	vdisplay b
	15	vfit
	16
	17	set x1 60
	18	set y1 300
	19	set x2 350
	20	set y2 120
	21
4754e164	22	vselect 0 0
	23	vselect ${x1} ${y1}
	24	vselect ${x2} ${y2} 1
352ffd73	25
4754e164	26	set NbSelected1 [vnbselected]
352ffd73	27	if { ${NbSelected1} != 2 } {
	28	puts "Error : (case 1)"
	29	}
	30
4754e164	31	vselect ${x2} ${y2} 1
352ffd73	32
4754e164	33	set NbSelected1 [vnbselected]
352ffd73	34	if { ${NbSelected1} != 1 } {
	35	puts "Error : (case 2)"
	36	}
	37
	38	set only_screen 1