[occt.git] / tests / vselect / sphere / single_click_selection

puts "================================="
puts "0032182: Visualization - add Select3D_SensitiveSphere"
puts "Tests selection of Select3D_SenstiveSphere"
puts "================================="

psphere s 1
vdisplay -dispMode 1 s
vfit
vselect 300 200
if { ![string match "*Selected*" [vstate s]] } { puts "Error: sphere should be selected" }
vselect 195 110
if { [string match "*Selected*" [vstate s]] } { puts "Error: sphere should be unselected" } 
vselect 390 110
if { [string match "*Selected*" [vstate s]] } { puts "Error: sphere should be unselected" }
vselect 390 282
if { [string match "*Selected*" [vstate s]] } { puts "Error: sphere should be unselected" }
vselect 213 291
if { [string match "*Selected*" [vstate s]] } { puts "Error: sphere should be unselected" }
vselect 300 200 -allowoverlap 1
if { ![string match "*Selected*" [vstate s]] } { puts "Error: sphere should be selected" }
vselect 195 110 -allowoverlap 1
if { [string match "*Selected*" [vstate s]] } { puts "Error: sphere should be unselected" }
Commit	Line	Data
114e7a90	1	puts "================================="
	2	puts "0032182: Visualization - add Select3D_SensitiveSphere"
	3	puts "Tests selection of Select3D_SenstiveSphere"
	4	puts "================================="
	5
	6	psphere s 1
	7	vdisplay -dispMode 1 s
	8	vfit
	9	vselect 300 200
	10	if { ![string match "Selected" [vstate s]] } { puts "Error: sphere should be selected" }
	11	vselect 195 110
	12	if { [string match "Selected" [vstate s]] } { puts "Error: sphere should be unselected" }
	13	vselect 390 110
	14	if { [string match "Selected" [vstate s]] } { puts "Error: sphere should be unselected" }
	15	vselect 390 282
	16	if { [string match "Selected" [vstate s]] } { puts "Error: sphere should be unselected" }
	17	vselect 213 291
	18	if { [string match "Selected" [vstate s]] } { puts "Error: sphere should be unselected" }
	19	vselect 300 200 -allowoverlap 1
	20	if { ![string match "Selected" [vstate s]] } { puts "Error: sphere should be selected" }
	21	vselect 195 110 -allowoverlap 1
	22	if { [string match "Selected" [vstate s]] } { puts "Error: sphere should be unselected" }