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

puts "============"
puts "CR24420"
puts "============"
puts ""

#######################################################################
#  Test for type of sensitivity of AIS_Plane
#######################################################################

set aV "Driver1/Viewer1/View1"
vinit name=$aV l=32 t=32 w=400 h=400
vactivate $aV
vclear

vpoint p1 0 0 0
vpoint p2 1 0 0
vpoint p3 0 1 0

puts "Testing Select3D_TOS_INTERIOR type of sensitivity:"
vplane pl1 p1 p2 p3 0
vfit

vmoveto 200 200
checkcolor 395 200 0 1 1

if { $stat != 1 } {
  puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_INTERIOR!"
}

verase pl1

puts "Testing Select3D_TOS_BOUNDARY type of sensitivity:"

vplane pl2 p1 p2 p3 1
vfit

vmoveto 200 200
checkcolor 395 200 0.5 0.8 0.9

if { $stat != 1 } {
  puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_BOUNDARY!"
}

vmoveto 395 200
checkcolor 395 200 0 1 1

if { $stat != 1 } {
  puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_BOUNDARY!"
}
Commit	Line	Data
9e8804b6	1	puts "============"
	2	puts "CR24420"
	3	puts "============"
	4	puts ""
	5
	6	#######################################################################
	7	# Test for type of sensitivity of AIS_Plane
	8	#######################################################################
	9
	10	set aV "Driver1/Viewer1/View1"
	11	vinit name=$aV l=32 t=32 w=400 h=400
	12	vactivate $aV
	13	vclear
	14
	15	vpoint p1 0 0 0
	16	vpoint p2 1 0 0
	17	vpoint p3 0 1 0
	18
	19	puts "Testing Select3D_TOS_INTERIOR type of sensitivity:"
	20	vplane pl1 p1 p2 p3 0
	21	vfit
	22
	23	vmoveto 200 200
	24	checkcolor 395 200 0 1 1
	25
	26	if { $stat != 1 } {
	27	puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_INTERIOR!"
	28	}
	29
	30	verase pl1
	31
	32	puts "Testing Select3D_TOS_BOUNDARY type of sensitivity:"
	33
	34	vplane pl2 p1 p2 p3 1
	35	vfit
	36
	37	vmoveto 200 200
	38	checkcolor 395 200 0.5 0.8 0.9
	39
	40	if { $stat != 1 } {
	41	puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_BOUNDARY!"
	42	}
	43
	44	vmoveto 395 200
	45	checkcolor 395 200 0 1 1
	46
	47	if { $stat != 1 } {
	48	puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_BOUNDARY!"
	49	}