[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

vaspects -setwidth 5
vmoveto 200 200
if { "[vreadpixel 200 200 rgb name]" != "CYAN1"  } {
  puts "Error : The box is not selectable!"
}

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

vmoveto 200 200
if { "[vreadpixel 199 200 rgb name]" != "CYAN1"  } {
  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
ccadc126	26	vaspects -setwidth 5
28ee613b	27	vmoveto 200 200
28ee613b	28	if { "[vreadpixel 200 200 rgb name]" != "CYAN1" } {
51f8f60c	29	puts "Error : The box is not selectable!"
	30	}
	31
	32	puts "Testing box selection over the plane in axonometry projection:"
	33	vaxo
	34	vfit
	35
f751596e	36	vmoveto 200 200
ccadc126	37	if { "[vreadpixel 199 200 rgb name]" != "CYAN1" } {
51f8f60c	38	puts "Error : The box is not selectable!"
51f8f60c	39	}