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

puts "============"
puts "CR24564"
puts "============"
puts ""

#######################################################################
#  Test for sensitivity of box located over AIS_Plane
#######################################################################

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

puts "Testing box selection over the plane in orthogonal projection:"
vpoint p1 0 0 0
vpoint p2 1 0 0
vpoint p3 0 1 0

vplane pl1 p1 p2 p3 0
box b 50 50 50
vdisplay b
vfit
vtop

vmoveto 199 200
checkcolor 199 200 0 1 1

if { $stat != 1 } {
  puts "Error : The box is not selectable!"
}

puts "Testing box selection over the plane in axonometry projection:"
vaxo
vfit

vmoveto 199 200
checkcolor 199 200 0 1 1

if { $stat != 1 } {
  puts "Error : The box is not selectable!"
}
Commit	Line	Data
51f8f60c	1	puts "============"
	2	puts "CR24564"
	3	puts "============"
	4	puts ""
	5
	6	#######################################################################
	7	# Test for sensitivity of box located over 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	puts "Testing box selection over the plane in orthogonal projection:"
	16	vpoint p1 0 0 0
	17	vpoint p2 1 0 0
	18	vpoint p3 0 1 0
	19
	20	vplane pl1 p1 p2 p3 0
	21	box b 50 50 50
	22	vdisplay b
	23	vfit
	24	vtop
	25
	26	vmoveto 199 200
	27	checkcolor 199 200 0 1 1
	28
	29	if { $stat != 1 } {
	30	puts "Error : The box is not selectable!"
	31	}
	32
	33	puts "Testing box selection over the plane in axonometry projection:"
	34	vaxo
	35	vfit
	36
	37	vmoveto 199 200
	38	checkcolor 199 200 0 1 1
	39
	40	if { $stat != 1 } {
	41	puts "Error : The box is not selectable!"
	42	}